Помощь - Поиск - Пользователи - Календарь
Полная версия: Рост вклада в банке с процентами
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Drughi
9.06.2011 2:47
С использованием оператора цикла с параметром 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.
Krjuger
9.06.2011 3:01
Потому что у вас ничего не накапливается вы 385 раз вычисляете одно и тоже число s и затем умножаете на одно и тоже число,в общем у вас одни константы,есть 2 варианта,вы для каждого года будете получать стоимость,либо для каждого года будете высчитывать процент.
Второе как то так:

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


Изначально s:=1;
Кстати приоритет операции деления выше чем суммирования,так что внутренние скобки не обязательны.
Drughi
9.06.2011 3:38
Цитата(Krjuger @ 8.06.2011 23:01) *

Потому что у вас ничего не накапливается вы 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
9.06.2011 3:43
Я же сказал
Цитата
Изначально 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.

Drughi
9.06.2011 4:08
Цитата(Krjuger @ 8.06.2011 23:43) *

Я же сказал

До начала цикла надо инициализировать это самое 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.
Спасибо. С меня +
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.