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