Рост вклада в банке с процентами, Что не так в коде? Всё время получается число 426 Опции

[Drughi]

С использованием оператора цикла с параметром 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.

Сообщение отредактировано: Lapp - 9.06.2011 2:04

[Krjuger]

Потому что у вас ничего не накапливается вы 385 раз вычисляете одно и тоже число s и затем умножаете на одно и тоже число,в общем у вас одни константы,есть 2 варианта,вы для каждого года будете получать стоимость,либо для каждого года будете высчитывать процент.
Второе как то так:

for i:=1 to 385 do
s:=s*(1+p/100);

Изначально s:=1;
Кстати приоритет операции деления выше чем суммирования,так что внутренние скобки не обязательны.

Сообщение отредактировано: Krjuger - 8.06.2011 23:10

[Drughi]

Потому что у вас ничего не накапливается вы 385 раз вычисляете одно и тоже число s и затем умножаете на одно и тоже число,в общем у вас одни константы,есть 2 варианта,вы для каждого года будете получать стоимость,либо для каждого года будете высчитывать процент.
Второе как то так:

for i:=1 to 385 do
s:=s*(1+p/100);

Изначально s:=1;
Кстати приоритет операции деления выше чем суммирования,так что внутренние скобки не обязательны.

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.

Теперь всегда получается 0

[Krjuger]

Я же сказал

Изначально s:=1;

До начала цикла надо инициализировать это самое s

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.

Сообщение отредактировано: Krjuger - 8.06.2011 23:46

[Drughi]

Я же сказал

До начала цикла надо инициализировать это самое s

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.

Получилось 677062856159.56.
Спасибо. С меня +