Определить период жизни человека по введенным годам - Turbo Pascal
Формулировка задачи:
Используя условный оператор , написать программу , которая по введенному количеству лет определяла бы, к какому периоду жизни человека они относятся.
1) от 0-10 (детство)
2) 10-14 (отрочество)
3) 14-18 (юность)
4) 18-30 молодость
5) 30-100 зрелость
Решение задачи: «Определить период жизни человека по введенным годам»
textual
Листинг программы
uses CRT; var x: byte; begin clrscr; Write('Введите возраст: '); Readln(x); case x of 0..10: Writeln('Детство'); 10..14: Writeln('Отрочество'); 14..18: Writeln('Юность'); 18..30: Writeln('Молодость'); 30..100: Writeln('Зрелость'); end; Readln; end.
Объяснение кода листинга программы
- В первой строке используется библиотека CRT, которая является стандартной для языка Turbo Pascal.
- Переменная x типа byte используется для хранения введенного возраста.
- Функция clrscr используется для очистки экрана перед вводом данных.
- Строка
Введите возраст:
выводится на экран для информирования пользователя о том, что нужно ввести возраст. - Функция Readln используется для чтения введенного пользователем значения возраста из переменной x.
- В случае, если введенное значение находится в диапазоне от 0 до 10, выводится на экран слово
Детство
. - Если введенное значение находится в диапазоне от 10 до 14, выводится на экран слово
Отрочество
. - Если введенное значение находится в диапазоне от 14 до 18, выводится на экран слово
Юность
. - Если введенное значение находится в диапазоне от 18 до 30, выводится на экран слово
Молодость
. - Если введенное значение находится в диапазоне от 30 до 100, выводится на экран слово
Зрелость
. - Программа заканчивается вызовом функции Readln, чтобы прочитать введенное пользователем значение и завершить работу программы.