![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Была программка на паскале, перевела на дельфи выходит ошибка
|
#2
|
|||
|
|||
![]() вот на дельфи, выходит ошибка
Код:
procedure TForm1.Button1Click(Sender: TObject); var r:array[1..40] of real; n,j:integer; I,k,R,D,U,p,m:real; begin D:= StrToFloat(Edit1.Text); p:= StrToFloat(Edit2.Text); n:= StrToInt(Edit3.Text); k:=p/100; U:=(D*k*(1+k)^n)/(r(1+k)^(n-1)) ; Memo1.Lines.Add('Ежегодная выплата составляет: '+FloatToStr(U)); for j := 1 to n do begin I:=D*k; Memo1.Lines.Add('Величина процентного займа в год:'+FloatToStr(I)); end; R:=U-I; Memo1.Lines.Add('Bыплaтa основного долга в год: '+FloatToStr(R)); D:=D -R; Memo1.Lines.Add('Остаток основного долга в год: '+FloatToStr(D)); end; end. |
#3
|
||||
|
||||
![]() Степень через ф-ю Power.
Суффикс - это раскрытие указателя. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |