С использованием оператора цикла с параметром For
В 1626 году индейцы продали остров Манхэттэн за K долларов. Если бы эти деньги были помещены в банк на текущий счёт и ежегодный прирост составлял p%, какова бы была стоимость капитала в 2011 году?
Проверять на числах: p:=6.5% K:=20
Мой код (что то тут не так)
var
i:integer;
p,k,z,s: real;
begin
writeln('Введите количество процентов');
read(p);
writeln('Введите сумму покупки острова');
read(k);
for i:=1 to 385 do
s:=k*(1+(p/100));
z:=s*k;
write(z);
end.
Потому что у вас ничего не накапливается вы 385 раз вычисляете одно и тоже число s и затем умножаете на одно и тоже число,в общем у вас одни константы,есть 2 варианта,вы для каждого года будете получать стоимость,либо для каждого года будете высчитывать процент.
Второе как то так:
for i:=1 to 385 do
s:=s*(1+p/100);
for i:=1 to 385 do
s:=s*(1+p/100);
var
i:integer;
p,k,z,s: real;
begin
writeln('Ââåäèòå êîëè÷åñòâî ïðîöåíòîâ');
read(p);
writeln('Ââåäèòå ñóììó ïîêóïêè îñòðîâà');
read(k);
for i:=1 to 385 do
s:=s*(1+p/100);
z:=s*k;
write(z);
end.
Я же сказал
var
i:integer;
p,k,z,s: real;
begin
writeln('Ââåäèòå êîëè÷åñòâî ïðîöåíòîâ');
read(p);
writeln('Ââåäèòå ñóììó ïîêóïêè îñòðîâà');
read(k);
s:=1;
for i:=1 to 385 do
s:=s*(1+p/100);
z:=s*k;
write(z);
end.
var
i:integer;
p,k,z,s: real;
begin
writeln('Ââåäèòå êîëè÷åñòâî ïðîöåíòîâ');
read(p);
writeln('Ââåäèòå ñóììó ïîêóïêè îñòðîâà');
read(k);
s:=1;
for i:=1 to 385 do
s:=s*(1+p/100);
z:=s*k;
write(z);
end.