Question

150 баллов, господа. Решите задачу в Паскале с помощью ПРОЦЕДУР: В 1626г индейцы продали остров Манхэттэн за 20 долларов. Если бы деньги были помещены в банк и прирост составлял бы n%, то каков был бы их капитал в текущем году?

Answer 1

Program money;
var n,x:real;
procedure count(percent:real);
begin
for var i:=1626 to 2014 do  x:=x+x*(percent / 100);
end;
begin
x:=20;
readln(n);
count(n);
writeln(x,' долларов ');
end.

Answer 2

Конечный капитал можно рассчитать по формуле:

Конечный капитал = начальный капитал * (1 + n/100)^t,

где начальный капитал равен 20 долларам, n - процентный прирост, а t - количество лет, прошедших с 1626 года до текущего года.

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

Вот как может выглядеть код на языке Паскаль:

phpCopy code
program ManhattanIsland;
 
uses crt;
 
var
  initialCapital, finalCapital: real;
  growthRate: integer;
  years: integer;
 
procedure calculateFinalCapital(initialCapital: real; growthRate: integer; years: integer; var finalCapital: real);
begin
  finalCapital := initialCapital * power(1 + (growthRate / 100), years);
end;
 
begin
  clrscr;
  
  initialCapital := 20;
  
  write('Введите процентный прирост: ');
  readln(growthRate);
  
  write('Введите количество лет: ');
  readln(years);
  
  calculateFinalCapital(initialCapital, growthRate, years, finalCapital);
  
  writeln('Конечный капитал: ', finalCapital:0:2, ' долларов');
  
  readln;
end.

В этом коде мы объявляем процедуру calculateFinalCapital, которая принимает на вход начальный капитал, процентный прирост, количество лет и переменную finalCapital, которая будет содержать конечный капитал. Внутри процедуры мы используем функцию power, которая вычисляет степень числа.

Затем мы считываем значение процентного прироста и количества лет с помощью функции readln и вызываем процедуру calculateFinalCapital, передавая ей необходимые параметры. Наконец, мы выводим на экран конечный капитал с помощью функции writeln.

Запустив эту программу и введя значения процентного прироста и количества лет, мы получим конечный капитал в текущем году для заданных условий.