Лабораторная работа 3

Цель работы: познакомиться с операторами ввода/вывода, присвоения, безусловного перехода, составными и пустыми операторами языка Pascal. Научиться применять оператор условного перехода.

Задача:

Используя оператор условного перехода, напишите программу, которая запрашивает у пользователя номер одного из зимних месяцев, и выводит количество дней в этом месяце. Программа должна проверять, является ли введенный месяц зимним;

Исходный код:

uses crt;

Var

n: integer;

Begin

writeln('Введите номер зимнего месяца: ');

readln(N);

if (n< > 1) and (n< > 12) and (n< > 2) then writeln('Месяц не зимний');

if (n=1) then writeln('Январь 31');

if (n=2) then writeln('Февраль 29');

if (n=12) then writeln('Декабрь 31');

readln;

end.

Рис. 5 – Результат работы программы

Вывод: в ходе работы мною были изучены операторы условного перехода и написана программа с их использованием.

Лабораторная работа 4

Цель работы: Научиться работать с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.

Задача:

заменить последний элемент массива минимальным (10);

Исходный код:

uses crt;

Var

a: array [1..10] of integer;

t, min, i: integer;

Begin

writeln(' Массив a: ');

i: =1;

min: =10000;

Whilei< 11 do

Begin

write(' a[', i, ']=');

read(a[i]);

if a[i]< min then min: =a[i];

i: =i+1;

end;

a[10]: =min;

writeln(' Массив a после обработки: ');

i: =0;

Repeat

i: =i+1;

if a[i]> 0 then a[i]: =a[i]+1;

write(a[i], ' ');

until i=10;

writeln;

readln;

end.

Рис. 6 – Результат работы программы

Вывод: в ходе работы мною были изучены методы работы с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.