Калькулятор доходности вкладов — Delphi программа для подсчёта времени за которое увеличится вклад в три раза и вывода конечной суммы денег.

Posted by admin under Delphi, Архив, Исходники

KARUSHEV:
Поставленная задача:
Пользователь вводит с клавиатуры: вклад и проценты. Программа должна подсчитать за какое время увеличится вклад в три раза и вывести конечную сумму денег.

Лучшее и рабочее решение:

SuperVisor
Процедура подсчета с днями.

procedure TForm1.Button4Click(Sender: TObject);
var
Vklad, Pribil, NeedSum: real;
Percent,i: byte;
Days: smallint;
begin
Vklad:=strtoint(Edit1.Text);
Percent:=strtoint(Edit2.Text);
NeedSum:=Vklad*3;
i:=0;

while (Vklad+(Vklad*Percent/100))Посмотреть ответ на форуме

Далее коды модифицированные мною

Alar
Для тестирования программы использовались вклады классический и накопительный.

Результаты тестирования:

Классический

Накопительный не сработал так как код отказался работать с дробями и пришлось немного модифицировать исходник.

procedure TForm1.Button4Click(Sender: TObject);
var
Vklad, Pribil, NeedSum, Percent: real;
i: byte;
Days: smallint;
begin
Vklad:=strtoint(Edit1.Text);
Percent:=strtofloat(Edit2.Text);
NeedSum:=Vklad*3;
i:=0;

while (Vklad+(Vklad*Percent/100))

Но, так как проценты по Накопительному вкладу начисляются раз в квартал, а значит 4 раза в год. меняю код

procedure TForm1.Button4Click(Sender: TObject);
var
Vklad, Pribil, NeedSum, Percent: real;
i: byte;
Days: smallint;
begin
Vklad:=strtoint(Edit1.Text);
Percent:=strtofloat(Edit2.Text);
NeedSum:=Vklad*3;
i:=0;

while (Vklad+(Vklad*Percent/400))

Тема 2009 года на форуме

Классический 9% капитализация раз в год
Увеличение вклада в 3 раза за 12 лет и 271 день

Накопительный 8,75% капитализация раз в квартал
Увеличение вклада в 3 раза за 12 лет и 284 дня.

Получается накопительный вклад в палне прибыли хуже "не накопительного" вклада 🙂

Похожие статьи

• Посчитать проценты в MySQL