Записать цикл для расчета кредита равными долями

@Danonya · Регистрация: 04.02.2013

Author24 — интернет-сервис помощи студентам

Записала формулу для расчета кредита равными долями. Суть в том, что нужно рассчитать сколько будет выплачивать клиент за год и 2 месяца допустим,за год, 9 месяцев и.т.д. Я сделала так, что это все подсчитывается, НО как записать, чтобы это показывало как в образце,т,е выводилось в ListBox. Как записать цикл?Кто поймет о чем я и поможет спасибо.

Записать цикл для расчета кредита равными долями

Delphi

procedure TForm1.btn3Click(Sender: TObject);
var
 
  sum: Extended;
  pr: Extended;
  y: Extended;
  m:Extended;
  plat: Extended;
begin
 sum:= StrToFloat(Edt8.Text);
 pr:= Strtofloat(edt12.Text);
 y:= Strtofloat(edt10.Text);
 m:= Strtofloat(edt11.Text);
 plat:=(sum/(12*y+m))*(1+((pr/1200)*((12*y+m)+1-1)))   ;
 
 lbl30.Caption:= FloatToStr(plat);
end;

@Kamensky · 16.09.2014, 19:24

Где n - число платежей

Добавлено через 2 минуты

Delphi

procedure TForm1.btn3Click(Sender: TObject);
var
  sum,pr,y,m,plat: Extended;
  i,n : Integer
begin
  sum:= StrToFloat(Edt8.Text);
  pr:= Strtofloat(edt12.Text);
  y:= Strtofloat(edt10.Text);
  m:= Strtofloat(edt11.Text);
  n := StrToInt(editN.text);
  for i:=1 to n do begin
    plat:=sum/(12*y+m)*(1+pr/1200*(12*y+m+1-i));
    ListBox1.Items.Add(IntToStr(i)+' платеж: '+FloatToStr(plat));
  end;
end;

@Danonya · 16.09.2014, 19:47 **[ТС]**

Спасибо большое!! А можно спросить еще,как теперь эти все платежи сложить и записать в лэйбл,общую сумму посчитать?

@Kamensky · 16.09.2014, 20:15

Соответственно добавить еще одну переменную, допустим sum2:

Delphi

procedure TForm1.btn3Click(Sender: TObject);
var
  sum,pr,y,m,plat,sum2: Extended;
  i,n : Integer
begin
  sum:= StrToFloat(Edt8.Text);
  pr:= Strtofloat(edt12.Text);
  y:= Strtofloat(edt10.Text);
  m:= Strtofloat(edt11.Text);
  n := StrToInt(editN.text);
  sum2 := 0;
  for i:=1 to n do begin
    plat:=sum/(12*y+m)*(1+pr/1200*(12*y+m+1-i));
    sum2 := sum2 + plat;
    ListBox1.Items.Add(IntToStr(i)+' платеж: '+FloatToStr(plat));
  end;
  label1.caption := 'Общая сумма: '+FloatToStr(sum2);
end;

Добавлено через 7 минут
Только, скорей всего преподаватели не примут. Понял ошибку. Сейчас исправлю

Добавлено через 13 минут
Мне просто кажется, что число N должно равно числу (месяцев с учетом лет)-1, которые мы указываем в сроках. Т.е. в нашем случае 11. Если это не нужно то вон сверху вариант без этого

@Danonya · 16.09.2014, 20:21 **[ТС]**

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

@Kamensky · 16.09.2014, 20:24

Держи, вот правильный вариант на всякий случай:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  sum,pr,plat,sum2: Extended;
  i,n,y,m : Integer;
begin
  ListBox1.Clear;
  sum:= StrToFloat(Edit1.Text);
  pr:= Strtofloat(Edit4.Text);
  y:= StrtoInt(Edit2.Text);
  m:= StrtoInt(Edit3.Text);
  n := y*12+m;
  sum2 := 0;
  for i:=1 to n do begin
    plat:=sum/(12*y+m)*(1+pr/1200*(12*y+m+1-i));
    sum2 := sum2 + plat;
    ListBox1.Items.Add(IntToStr(i)+' платеж: '+FloatToStr(plat));
  end;
  label4.caption := 'Общая сумма: '+FloatToStr(sum2);
end;

@Danonya 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 50
	16.09.2014, 19:47 [ТС]	3
	Спасибо большое!! А можно спросить еще,как теперь эти все платежи сложить и записать в лэйбл,общую сумму посчитать? 0

@Danonya 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 50
	16.09.2014, 20:21 [ТС]	5
	Да в принципе все сделано так. Он подсчитывает сумму которую нужно вложить за периоды,подсчитывает их верно,судя по образцу. Так что думаю и этого хватит. 0

	16.09.2014, 20:24

Опции темы

Записать цикл для расчета кредита равными долями

Решение