Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Iniciantes";
Arquivo atual: 2013.12.22;
Download: [xml.tar.bz2];

Para baixo

Resumindo CadeiasGeminadas Colunas Encontre agências semelhantes


Dikey   (2013-03-04 10:21) [0]

Начну с самого начала
Написал код программы "Кредитный калькулятор" рассчитывает ежемесячные платежи и выводит их в таблицу StringGird.
Месяц|Выплата процентов|Погашение основного долга| ежемесячный платеж|ОД на конец|ОД на начало|
Количество строк в sg зависит от количества введенных месяцев.
Помогите мне вписать в существующий код расчет суммы столбцов
 var
 FCalc: TFCalc;
 procedure Annuite(summa, stavka, mesplatej: real; month: integer);
  procedure Dif(summa, stavka, mesplatej: real; month: integer);
implementation
uses Unit1;
{$R *.dfm}
procedure Annuite(summa, stavka, mesplatej: real; month: integer);
var
i,j: integer;
ostn, ostk, vplpr, pgdolg: real;
total: array[0..5] of double ;
begin
 FCalc.SG.RowCount := month + 1;
   for i := 1 to month do
 for j := 1 to 5 do
 total[j]:= total[j] + strtofloat(FCalc.SG.Cells[j,i]);
  begin
   if i = 1 then ostn := summa else ostn := ostk;
   vplpr := ostn * stavka / 12;
   pgdolg := mesplatej - vplpr;
   ostk := ostn - pgdolg;

   FCalc.SG.Cells[0,i]:= inttostr(i); //
   FCalc.SG.Cells[1,i]:= floattostrf(vplpr,ffFixed,6,2);
   FCalc.SG.Cells[2,i]:= floattostrf(pgdolg,ffFixed,6,2);
   FCalc.SG.Cells[3,i]:= floattostrf(mesplatej,ffFixed,6,2);
   FCalc.SG.Cells[4,i]:= floattostrf(ostn,ffFixed,8,2);
   FCalc.SG.Cells[5,i]:= floattostrf(ostk,ffFixed,8,2);
 end;
procedure TFCalc.BRaschClick(Sender: TObject);
  function PMT(IR, NP, PV: real): real;
  begin
  result := (PV * IR) / (1 - power(1 + IR, -NP));
 end;
var
 sum, stavka: extended;
 month,i,j: integer;
 Ejrasch: extended;
begin
if (EMonth.Text="") or (EStavka.Text="") or  (Esum.Text="") then ShowMessage ("Íåîáõîäèìî çàïîëíèòü âñå ïîëÿ")
else
begin  SG.visible:=True ;
 sum := StrToFloat(ESum.Text);
 stavka := StrToFloat(EStavka.Text) * 0.01;
 month := StrToInt(Emonth.Text);
     if RBAn.Checked=true then begin
   Ejrasch := Pmt(stavka / 12, month, sum);
   Annuite(sum, stavka, Ejrasch, month);
 end
 else begin  
 Ejrasch := Pmt(stavka / 12, month, sum);
   Dif(sum, stavka, Ejrasch, month);

 end;
 end;
end;

procedure TFCalc.FormCreate(Sender: TObject);
begin
 SG.Cells[0,0]:="Месяц";
 SG.Cells[1,0]:=Выплата процентов"";
 SG.Cells[2,0]:="Погашение од";
 SG.Cells[3,0]:="Ежемесячный платеж";
 SG.Cells[4,0]:="ОД на начало";
 SG.Cells[5,0]:="Од на конец";
end;



Dimka Maslov ©   (2013-03-04 10:29) [1]

Tudo isso é estranho. Ele escreveu muito, mas ele simplificou a operação elementar de somar os elementos da matriz? Como assim?



Dikey   (2013-03-04 10:34) [2]

Excluído pelo moderador



Jeer ©   (2013-03-04 11:37) [3]

Excluído pelo moderador



Dikey   (2013-03-04 11:52) [4]

Excluído pelo moderador



Ega23 ©   (2013-03-04 12:05) [5]

Excluído pelo moderador



Dikey   (2013-03-04 12:08) [6]

Excluído pelo moderador



Ega23 ©   (2013-03-04 12:13) [7]

Excluído pelo moderador



Dikey   (2013-03-04 12:17) [8]

Excluído pelo moderador



Ega23 ©   (2013-03-04 12:24) [9]

Ты сказал:

> Начну с самого начала
> Написал код программы "Кредитный калькулятор"


Мы усомнились, т.к. твой вопрос - это 3 строчки кода, что-что, а это ты просто не можешь не сделать, при условии, что код писал ты.

Теперь выясняется, что

> тут все как будто ни кто исходников не забирал никогда.


Дара-гой. Исходников тут забирали. Их изучали и даже модфицировали. А ещё и копирайты ставили тех, кто эти исходники давал.
Только я вот не вижу попыток изучения и желания разобраться в тобой в "твоём" коде. Помощь - это действительно помощь, а не делание работы за тебя.
А в твоём случае вопрос простой: сколько?



Jeer ©   (2013-03-04 15:55) [10]

Excluído pelo moderador



Inovet ©   (2013-03-04 16:45) [11]

Excluído pelo moderador



DevilDevil ©   (2013-03-04 16:57) [12]

> Dikey (04.03.13 10:21)

на каком этапе работает некорректно ?



Страницы: 1 filial inteira

Fórum: "Iniciantes";
Arquivo atual: 2013.12.22;
Download: [xml.tar.bz2];

em cima









Memória: 0.6 MB
Hora: 0.018 c
15-1372932417
Empregado
2013-07-04 14:06
2013.12.22
Programador: cuidado!


2-1362330526
ttt
2013-03-03 21:08
2013.12.22
Ícones grandes


2-1362378114
Dique
2013-03-04 10:21
2013.12.22
Resumindo CadeiasGeminadas Colunas


2-1362069393
Win XP
2013-02-28 20:36
2013.12.22
Resolução de tela


15-1372449106
Tusador
2013-06-28 23:51
2013.12.22
Saboneteira





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol