Question

Парни, срочно нужен код в паскале Нужно создать программу в паскале, которая будет считать сколько тебе лет будет через определенный промежуток времени. Например, запустил прогу, ввел свой возраст и например 20 лет. И она должна выдать твой возраст через 20 лет. Сделать нужно так чтобы, не менять ничего в самом коде, а именно в программе. Помогите пожалуйста

Answer 1

Ответ:

program old;

uses crt;

var age, years: integer;

begin

writeln('введите свой возраст');

readln(age);

writeln ('введите промежуток времени');

readln (years);

writeln ('через ', years, ' лет вам будет ', age+years, ' лет');

end.

Answer 2

Создание программы для подсчета возраста в Pascal

Для создания программы в Pascal, которая будет считать возраст через определенный промежуток времени, вам потребуется использовать переменные и операции с датами. Вот пример кода, который может помочь вам решить данную задачу:

program CalculateAge;

uses
  SysUtils;

var
  currentYear, birthYear, futureAge: Integer;

begin
  // Получаем текущий год
  currentYear := YearOf(Now);

// Вводим год рождения
  Write('Введите год вашего рождения: ');
  ReadLn(birthYear);

// Вводим промежуток времени
  Write('Введите промежуток времени (в годах): ');
  ReadLn(futureAge);

// Вычисляем будущий возраст
  futureAge := futureAge + (currentYear - birthYear);

// Выводим результат
  WriteLn('Ваш возраст через ', futureAge, ' лет будет: ', futureAge);

// Ожидаем нажатия клавиши перед закрытием программы
  ReadLn;
end.

В этом примере мы используем функцию `YearOf` из модуля `SysUtils`, чтобы получить текущий год. Затем мы запрашиваем год рождения пользователя и промежуток времени. После этого мы вычисляем будущий возраст, добавляя промежуток времени к разнице между текущим годом и годом рождения. Наконец, мы выводим результат на экран.

Обратите внимание, что в этом примере мы не меняем ничего в самом коде программы. Все вводимые значения запрашиваются у пользователя во время выполнения программы.

Надеюсь, это поможет вам создать программу для подсчета возраста в Pascal! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.