По номеру месяца указать, к какому времени года он относится - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Используя оператор выбора, составить программу решения задач: № 2. По номеру месяца указать, к какому времени года он относится.

Решение задачи: «По номеру месяца указать, к какому времени года он относится»

textual
Листинг программы
var x:integer;
begin
writeln('Введите номер месяца');
readln(x);
case x of
1..2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else
Writeln('Неверно введен месяц');
end;
Readln;
end.

Объяснение кода листинга программы

  1. Объявлена переменная x типа integer для хранения номера месяца.
  2. Выводится запрос на ввод номера месяца.
  3. С помощью функции readln() происходит считывание введенного значения и сохранение его в переменной x.
  4. С помощью оператора case проверяется значение переменной x.
  5. Для значения x равного 1 или 2, или 12 выводится сообщение Зима.
  6. Для значения x равного 3, 4 или 5 выводится сообщение Весна.
  7. Для значения x равного 6, 7 или 8 выводится сообщение Лето.
  8. Для значения x равного 9, 10 или 11 выводится сообщение Осень.
  9. Если значение x не соответствует ни одному из указанных вариантов, выводится сообщение Неверно введен месяц.
  10. Выводится пустая строка для завершения работы программы.
  11. Код не содержит ошибок и корректно работает при вводе номера месяца от 1 до 12.

Оцени полезность:

11   голосов , оценка 3.273 из 5
Похожие ответы