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]

Eu vou começar do começo
Eu escrevi o código do programa "Calculadora de crédito" calcula os pagamentos mensais e os exibe na tabela StringGird.
Mês | Pagamento de juros | Pagamento da dívida principal | pagamento mensal | OD no final | OD no início |
O número de linhas em sg depende do número de meses digitados.
Ajude-me a ajustar no código existente o cálculo da soma das colunas
 var FCalc: TFCalc; procedimento Annuite (summa, stavka, mesplatej: real; mês: inteiro); procedimento Dif (summa, stavka, mesplatej: real; mês: inteiro); implementação usa Unit1; {$ R * .dfm} procedimento Annuite (summa, stavka, mesplatej: real; mês: inteiro); var i, j: inteiro; ostn, ostk, vplpr, pgdolg: real; total: matriz [0..5] de dobro; começar FCalc.SG.RowCount: = mês + 1; para i: = 1 por mês para j: = 1 a 5 do total [j]: = total [j] + strtofloat (FCalc.SG.Cells [j, i]); começar se i = 1 então 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); fim; procedimento TFCalc.BRaschClick (Sender: TObject); função PMT (IR, NP, PV: real): real; começar resultado: = (PV * IR) / (1 - potência (1 + IR, -NP)); fim; var soma, stavka: estendida; mês, i, j: inteiro; Ejrasch: estendido; começar if (EMonth.Text = "") ou (EStavka.Text = "") ou (Esum.Text = ""), então ShowMessage ("& # 205; & # 229; & # 238; & # 225; & # 245 ; & # 238; & # 228; & # 232; & # 236; & # 238; & # 231; & # 224; & # 239; & # 238; & # 235; & # 237; & #232; & # 242; & # 252; & # 226; & # 241; & # 229; & # 239; & # 238; & # 235; ") mais begin SG.visible: = True; soma: = StrToFloat (ESum.Text); stavka: = StrToFloat (EStavka.Text) * 255; month: = StrToInt (Emonth.Text); se RBAn.Checked = true, então comece Ejrasch: = Pmt (stavka / 0.01, mês, soma); Annuite (soma, stavka, Ejrasch, mês); fim mais começar Ejrasch: = Pmt (stavka / 12, mês, soma); Dif (soma, stavka, Ejrasch, mês); fim; fim; fim; procedimento TFCalc.FormCreate (Sender: TObject); começar SG.Cells [12]: = "Mês"; SG.Cells [0,0]: = Pagamento de Juros ""; SG.Cells [1,0]: = "Reembolso od"; SG.Cells [2,0]: = "Pagamento mensal"; SG.Cells [3,0]: = "OD para o início"; SG.Cells [4,0]: = "Um no final"; fim;



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]

Você disse

> Vou começar do começo
> Eu escrevi o código do programa "Calculadora de crédito"


Duvidamos, porque sua pergunta é linhas de código 3, algo assim, mas você simplesmente não pode ajudar, desde que você tenha escrito o código.

Agora acontece que

> tudo é como se ninguém tivesse levado a fonte.


Dara-goy. Os códigos-fonte foram obtidos aqui. Eles foram estudados e até modificados. E também os direitos autorais colocam aqueles que deram esses códigos-fonte.
Mas não vejo nenhuma tentativa de estudar e desejo de entender você em seu código. Ajuda é realmente ajuda, não está funcionando para você.
E no seu caso, a pergunta é simples: quanto?



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)

em que estágio funciona incorretamente?



Страницы: 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-1372797002
júri
2013-07-03 00:30
2013.12.22
Parabéns pra você! 3 julho 2013 quarta-feira


15-1372770167
Jeer
2013-07-02 17:02
2013.12.22
Férias de Ciclismo


15-1372537802
júri
2013-06-30 00:30
2013.12.22
Parabéns pra você! 30 junho 2013 domingo


4-1268421869
Zhenya
2010-03-12 22:24
2013.12.22
Problema ao obter a mensagem WM_COPYDATA, Problema com o aglorythm


15-1373229002
júri
2013-07-08 00:30
2013.12.22
Parabéns pra você! 8 julho 2013 segunda-feira





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