Определить период жизни человека по введенным годам - 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.

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

  1. В первой строке используется библиотека CRT, которая является стандартной для языка Turbo Pascal.
  2. Переменная x типа byte используется для хранения введенного возраста.
  3. Функция clrscr используется для очистки экрана перед вводом данных.
  4. Строка Введите возраст: выводится на экран для информирования пользователя о том, что нужно ввести возраст.
  5. Функция Readln используется для чтения введенного пользователем значения возраста из переменной x.
  6. В случае, если введенное значение находится в диапазоне от 0 до 10, выводится на экран слово Детство.
  7. Если введенное значение находится в диапазоне от 10 до 14, выводится на экран слово Отрочество.
  8. Если введенное значение находится в диапазоне от 14 до 18, выводится на экран слово Юность.
  9. Если введенное значение находится в диапазоне от 18 до 30, выводится на экран слово Молодость.
  10. Если введенное значение находится в диапазоне от 30 до 100, выводится на экран слово Зрелость.
  11. Программа заканчивается вызовом функции Readln, чтобы прочитать введенное пользователем значение и завершить работу программы.

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

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