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

Цель работы: познакомиться с операторами ввода/вывода, присвоения, безусловного перехода, составными и пустыми операторами языка 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;