Как ввести номер месяца и вывести название времени года на языке Паскаля

Чтобы в языке программирования Паскаль ввести номер месяца и вывести название времени года, нужно использовать конструкцию case или условные операторы if. Ниже приведён пример решения задачи с использованием оператора case.

Пример кода:

pascal
program Seasons;
var
  month: integer;
begin
  writeln('Введите номер месяца (1-12): ');
  readln(month);
  
  case month of
    1, 2, 12: writeln('Зима');
    3, 4, 5: writeln('Весна');
    6, 7, 8: writeln('Лето');
    9, 10, 11: writeln('Осень');
  else
    writeln('Неверный номер месяца!');
  end;
end.

Разбор кода:

1. Переменная month — это переменная типа integer, в которой будет храниться номер месяца, введённый пользователем.
2. Ввод данных — через команду readln(month) программа ожидает ввода номера месяца от пользователя.
3. Оператор case — этот оператор проверяет номер месяца и выводит соответствующее название времени года:
   • Если месяц 1, 2 или 12, программа выведет "Зима".
   • Если месяц 3, 4 или 5, программа выведет "Весна".
   • Если месяц 6, 7 или 8, программа выведет "Лето".
   • Если месяц 9, 10 или 11, программа выведет "Осень".
4. Ветка else — если пользователь введёт число, которое не является номером месяца (например, 0 или 13), программа выведет сообщение об ошибке.

Альтернативное решение с использованием оператора if:

pascal
program Seasons;
var
  month: integer;
begin
  writeln('Введите номер месяца (1-12): ');
  readln(month);
  
  if (month = 1) or (month = 2) or (month = 12) then
    writeln('Зима')
  else if (month >= 3) and (month <= 5) then
    writeln('Весна')
  else if (month >= 6) and (month <= 8) then
    writeln('Лето')
  else if (month >= 9) and (month <= 11) then
    writeln('Осень')
  else
    writeln('Неверный номер месяца!');
end.

В этом примере используется условный оператор if для проверки, какой диапазон месяцев был введён.

Заключение:

Оба варианта решения задачи — с использованием case или if — работают одинаково. Выбор зависит от ваших предпочтений и читаемости кода.