Определить время года по названию месяца - Turbo Pascal

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

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

Помогите, пожалуйста! не могу найти ошибку!

Решение задачи: «Определить время года по названию месяца»

textual
Листинг программы
program sezon;
var m, vesna, leto, zima, osen, oshibka: byte;
begin
writeln('ââåäèòå ìåñÿö');
readln(m);
case m of
12, 1, 2: writeln ('zima');
3, 4, 5: writeln ('vesna');
6, 7, 8: writeln ('leto');
9, 10, 11: writeln ('osen');
else writeln ('oshibka');
end;
readln;
end.

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

В данном коде на языке Turbo Pascal происходит следующее:

  1. Создаются переменные m, vesna, leto, zima, osen и oshibka типа byte.
  2. Выводится сообщение 'ââåäèòå ìåñÿö' с помощью функции writeln().
  3. С помощью оператора case происходит проверка значения переменной m.
  4. Если значение переменной m равно 12, то выводится строка 'zima'.
  5. Если значение переменной m равно 1, то выводится строка 'zima'.
  6. Если значение переменной m равно 2, то выводится строка 'zima'.
  7. Если значение переменной m равно 3, то выводится строка 'vesna'.
  8. Если значение переменной m равно 4, то выводится строка 'vesna'.
  9. Если значение переменной m равно 5, то выводится строка 'vesna'.
  10. Если значение переменной m равно 6, то выводится строка 'leto'.
  11. Если значение переменной m равно 7, то выводится строка 'leto'.
  12. Если значение переменной m равно 8, то выводится строка 'leto'.
  13. Если значение переменной m равно 9, то выводится строка 'osen'.
  14. Если значение переменной m равно 10, то выводится строка 'osen'.
  15. Если значение переменной m равно 11, то выводится строка 'osen'.
  16. Если значение переменной m не входит в диапазон от 12 до 11, то выводится строка 'oshibka'.
  17. Выводится символ новой строки с помощью функции readln().
  18. Программа завершается.

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

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