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