Банковские проценты (Delphi)

[KARUSHEV]

Всем привет!

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

Вот что я сделал, но не получается правильно организовать цикл ((
Подскажите, пожалуйста как правильно должно быть.
Заранее спасибо!

var
year:integer;
vklad, dohod, procents:real;
kd: real;  //коэффициент дохода

procedure TForm1.Button1Click(Sender: TObject);


begin
vklad    :=StrToFloat(Edit1.Text);
procents :=StrToFloat(Edit2.Text);
year     :=0;
kd:=1;

begin
  while kd<3  do
  begin
  year := year+1;
  dohod:= vklad+(vklad*(procents/100));
  kd   := dohod/vklad;
  end;
end;
Label3.Caption:='доход'+FloatToStr(dohod)+#13+'Количество лет'+FloatToStr(year);

end;

[Utkin]

У тебя доход не растет от года в год.

dohod:= vklad+(vklad*(procents/100));

Я так понял считается только за 1 год всегда. А за три сколько будет? Наверное надо так попробовать:

dohod:= dohod+(vklad*(procents/100));

И тогда dochod нужно сначала равным нулю сделать.
Попробуй копать в этом направлении.

[Consol]

begin
year := year+1;
dohod:= vklad+(vklad*(procents/100));
kd := dohod/vklad;
end;

что то мне подсказывает что надо сделать так

  
dohod:=0;
 while (kd+dohod)<3*kd  do
  begin
  year := year+1;
  dohod:=(kd+dohod)*(procents/100);
  end;

[KARUSHEV]

Спасибо, Utkin! Вроде то, что нужно!
Consol, при твоем коде все зацикливается, как и при моем.

Сообщение от Utkin

У тебя доход не растет от года в год.

dohod:= vklad+(vklad*(procents/100));

Я так понял считается только за 1 год всегда. А за три сколько будет? Наверное надо так попробовать:
dohod:= dohod+(vklad*(procents/100));
И тогда dochod нужно сначала равным нулю сделать.
Попробуй копать в этом направлении.

В таком случае доход будет равен только процентам от суммы и получается в итоге что считает не правильно.
И как я понимаю он при первом цикле должен добавлять к этим процентам вклад. Но так тоже не правильно считает, что-то я совсем запутался...

begin
vklad    :=StrToFloat(Edit1.Text);
procents :=StrToFloat(Edit2.Text);
year     :=0;
kd:=1;

dohod:=0;
begin
  while kd<3  do
  begin
  year := year+1;
  //dohod:= vklad+(vklad*(procents/100));
  dohod:= dohod+(vklad*(procents/100));
  kd   := dohod/vklad;

if dohod<vklad then
  dohod:= dohod+vklad
else
   dohod:=dohod;
end;
end;
Label3.Caption:='Доход'+FloatToStr(dohod)+#13+'Количество лет'+FloatToStr(year);

end;

Сделал так, вроде примерно так считает, но не совсем, если сравнивать с результатами в Excel'e (там сделал для проверки результатов), не сходится конечная сумма, года считает правильно

var
year:integer;
vklad, dohod, procents:real;
kd: real;  //êîýôôèöèåíò äîõîäà

procedure TForm1.Button1Click(Sender: TObject);


begin
vklad    :=StrToFloat(Edit1.Text);
procents :=StrToFloat(Edit2.Text);
year     :=0;
kd:=1;

//äîáàâèë ýòó ñòðîêó
dohod:=0;
begin
  while kd<3  do
  begin
  year := year+1;
  //dohod:= vklad+(vklad*(procents/100));
  dohod:= dohod+(vklad*(procents/100));
  //kd   := dohod/vklad;

if dohod>vklad then
  begin
  dohod:= dohod+vklad;
  kd   := dohod/vklad;
  end
else
  begin
   dohod:=dohod;
   kd   := dohod/vklad;
  end;

end;

end;
Label3.Caption:='äîõîä'+FloatToStr(dohod)+#13+'Êîëè÷åñòâî ëåò'+FloatToStr(year);

end;

[Utkin]

Скорее всего ты уже получал правильно решение. Проблема в округлении. Допустим твое условие достигается за 3 года и 10 месяцев. Твой вариант даст 4 года. Когда будешь считать проценты за 4 года, то конечно не срастется . Сделай без циклов.
1. Переведи проценты в рубли. Ну допустим 1000 рублей под 10%. Значит ежегодно будет добавляться по 100 рублей. Верно?. Тебе сколько надо - 3000? Из них 1000 уже есть, так? Тогда просто 3000-1000 и делить все это хозяйство на 100 рублей. Вот и получишь года. Только для этого над использовать не деление нацело.

[KARUSHEV]

Нет, я так понимаю допустим вклад 100 руб., проценты 12, соответственно за первый год будет 112 руб., за второй год уже будет браться 112 руб. и на конец года будет 125.44 и т.д. по нарастающей. В общем получается:
vklad % dohod
1 100.00 12.00 112.00
2 112.00 12.00 125.44
3 125.44 12.00 140.49
4 140.49 12.00 157.35
5 157.35 12.00 176.23
6 176.23 12.00 197.38
7 197.38 12.00 221.07
8 221.07 12.00 247.60
9 247.60 12.00 277.31
10 277.31 12.00 310.58

По моей программе получается: доход 320, количество лет 10
А должно быть:
10 277.31 12.00 310.58

[Utkin]

Тогда сначала уточните как правильно. Здесь дело совсем не в программе, а в незнании того как правильно делать (обычное не понимание условия задачи).

[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))<NeedSum do
  begin
    Vklad:=Vklad+(Vklad*Percent/100);
    inc(i);
  end;

  NeedSum:=NeedSum-Vklad;

  Days:=trunc(NeedSum/(Vklad*Percent/100/365)+1);

  ShowMessage('Для накопления суммы вам понадобится '+inttostr(i)+
    ' лет и '+inttostr(Days)+' дней');
end;

[KARUSHEV]

Спасибо Всем! Последнее решение, похоже самое верное.