Ввод даты рождения и вывод возраста по годам - Pascal ABC
Формулировка задачи:
Помогите, пожалуйста, написать программу, которая при вводе года рождения выдает возраст по годам.
Например, ввел я 1990, она должна будет написать: В 1991..2015 году Вам X год/года/лет.
Листинг программы:
Решение задачи: «Ввод даты рождения и вывод возраста по годам»
textual
Листинг программы
var m,n,a,i:integer; begin write('Vvedite Vash god rozhdeniya: '); readln(a);n:=0; for i:=a+1 to 2015 do begin n:=n+1;m:=n mod 100; write('V ',i,' godu Vam ',n); if m in [11..20] then writeln(' let') else begin m:=n mod 10; case m of 1: writeln(' god'); 2,3,4: writeln(' goda'); 0, 5..9: writeln(' let') end end end end.
Объяснение кода листинга программы
- Создается переменная
a
, которая предназначена для хранения года рождения пользователя. - Создается переменная
n
, которая будет использоваться для подсчета возраста пользователя. - Создается переменная
i
, которая будет использоваться для перебора лет от года рождения до 2015 года. - Выводится приглашение пользователю ввести свой год рождения.
- Переменная
n
устанавливается равной 0. - Запускается цикл
for
, который будет выполняться до тех пор, покаi
меньше или равно 2015 году. - Внутри цикла переменная
n
увеличивается на 1. - Переменная
m
вычисляется как остаток от деленияn
на 100. - Выводится сообщение с годом рождения пользователя и значением переменной
n
. - Проверяется, является ли значение переменной
m
одним из чисел от 11 до 20. - Если
m
является одним из этих чисел, то выводится словоlet
. - Если
m
не является одним из этих чисел, то выводится словоlet
или словоgod
в зависимости от значения переменнойm
. - Цикл
for
завершается. - Выводится слово
end
.