Операторы цикла языка «Pascal». Изучение типов данных, определяемых пользователем. Определение месяца по введённому сезону

ЛАБОРАТОРНАЯ РАБОТА №6

Тема: Операторы цикла языка «Pascal» .

Цель работы:  Изучение типов данных, определяемых пользователем.

Постановка задачи:  Определить месяц по введённому сезону.

Псевдокод программы:

Program lab6;

Type {Описание типов}

tyear {Перечислимый тип}

var {Описание переменных}

n: {Переменная определяющая значение перечеслимого типа}

year: {Переменная перечислимого типа}

begin

{Запрос ввода числа, соответствующего поре года}

repeat

{Расчёт значения перечислимого типа}

until (n in [1..4]);

{Вывод на экран сообщения с помощью Case}

end.

Контрольный пример:

Программа просит ввести номер, соответствующий поре года. Вводим значение 5. Программа проверяет значение, и запрашивает ввод ещё раз, так как значение не соответствует ранее выведенным примерам. Вводим значение 3(Осень). Программа вывела на экран сообщение с перечисленными месяцами «Сентябрь, Октябрь, Ноябрь», что соответствует поре года, которую мы выбрали.

Результат работы программы:

Рисунок 1 – Результат работы программы

Текст программы:

Program lab6;

type

tyear = (Spring,Summer,Autumn,Winter);

var

n: integer;

year: tyear;

begin

writeln('Весна - 1');

writeln('Лето - 2');

writeln('Осень - 3');

writeln('Зима - 4');

repeat

write('Введите номер времени года: ');

readln(n);

year:=tyear(n-1);

until (n in [1..4]);

case year of

Spring:  writeln('У данной поры года следующие месяца: Март, Апрель, Май');

Summer:  writeln('У данной поры года следующие месяца: Июнь, Илюль, Август');

Autumn:  writeln('У данной поры года следующие месяца: Сентябрь, Октябрь, Ноябрь');

Winter:  writeln('У данной поры года следующие месяца: Декабрь, Январь, Февраль');

end;

end.