Листинг 1. «Месяц (решение с помощью оператора варианта case)»

Задание:

Пользователь вводит в программу число – номер месяца. Вывести название месяца, количество дней, время года, сообщить? если месяц не является первым в году, сообщить если месяц не является последним в году.

Для вывода названия, количества дней и времени года в алгоритме программы воспользоваться оператором варианта.

Листинг:

program Number_of_month;

var

month : byte; 

begin

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

readln(month);

if (month < 1) or (month > 12) then

     writeln('Вы ввели неправильный номер месяца!')

else

begin

     write('Названиемесяца:');

     case month of

          1: writeln('Январь');

          2: writeln('Февраль');

          3: writeln('Март');

          4: writeln('Апрель');

          5: writeln('Май');

          6: writeln('Июнь');

          7: writeln('Июль');

          8: writeln('Август');

          9: writeln('Сентябрь');

          10: writeln('Октябрь');

          11: writeln('Ноябрь');

          12: writeln('Декабрь');

end;   

write('Количество дней в месяце: ');

case month of

          1, 3, 5, 7, 8, 10, 12: writeln('31');

          4, 6, 9, 11: writeln('30');

          2: writeln('28 или 29');

     end;   

     write('Времягода: ');

     case month of

          1, 2, 12: writeln('Зима');

          3, 4, 5: writeln('Весна');

          6, 7, 8: writeln('Лето');

          9, 10, 11: writeln('Осень');

     end;

     if not (month = 1) then writeln('Этонепервыймесяцвгоду');

     if not (month = 12) then writeln('Этонепоследниймесяцвгоду'); 

end;

end.

Тестирование программы:

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.