Question

Составить программу на Паскале, которая запрашивает у пользователя номер месяца и выводит соответствующее название времени года. Использовать оператор Case … of…

Answer 1

var

m: integer;

begin

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

read(m);

case m of

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

3..5: write('Весна');

6..8: write('Лето');

9..11: write('Осень');

end;

end.

Answer 2

Приведенный ниже код на Паскале реализует программу, которая запрашивает у пользователя номер месяца и выводит соответствующее название времени года, используя оператор Case...of.

program Seasons;

var
  month: integer;

begin
  writeln('Введите номер месяца: ');
  readln(month);

case month of
    1, 2, 12: writeln('Зима');
    3, 4, 5: writeln('Весна');
    6, 7, 8: writeln('Лето');
    9, 10, 11: writeln('Осень');
    else writeln('Некорректный номер месяца');
  end;

readln;
end.

В этой программе мы сначала запрашиваем у пользователя номер месяца с помощью функции `readln`. Затем мы используем оператор `case` для проверки значения переменной `month`. В каждом `case` мы указываем диапазон номеров месяцев, соответствующих определенному времени года, и выводим соответствующее название времени года с помощью функции `writeln`. Если введен некорректный номер месяца, мы выводим сообщение об ошибке.

Например, если пользователь вводит номер месяца 4, программа выведет "Весна". Если пользователь вводит номер месяца 13, программа выведет "Некорректный номер месяца".