Ввод даты рождения и вывод возраста по годам - 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.

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

  1. Создается переменная a, которая предназначена для хранения года рождения пользователя.
  2. Создается переменная n, которая будет использоваться для подсчета возраста пользователя.
  3. Создается переменная i, которая будет использоваться для перебора лет от года рождения до 2015 года.
  4. Выводится приглашение пользователю ввести свой год рождения.
  5. Переменная n устанавливается равной 0.
  6. Запускается цикл for, который будет выполняться до тех пор, пока i меньше или равно 2015 году.
  7. Внутри цикла переменная n увеличивается на 1.
  8. Переменная m вычисляется как остаток от деления n на 100.
  9. Выводится сообщение с годом рождения пользователя и значением переменной n.
  10. Проверяется, является ли значение переменной m одним из чисел от 11 до 20.
  11. Если m является одним из этих чисел, то выводится слово let.
  12. Если m не является одним из этих чисел, то выводится слово let или слово god в зависимости от значения переменной m.
  13. Цикл for завершается.
  14. Выводится слово end.

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

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