| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
fr4nk
Novato
Registrado: Sábado, 20 de Março de 2010
Mensagens: 51
|
 Enviada: Qui Jan 30, 2014 11:24 am Assunto: Juros Composto [RESOLVIDO] |
 |
|
Boa Tarde Galera!
Quero Fazer um Programinha que calcule juros compostos ele está assim:
Eu to começando do zero mas n sei o que fazer me ajudem por favor
| Citação: | No Edit1 vou digitar o valor total.
No Edit2 vou digitar a quant de parcelas. |
Ai quando eu clicar em calcular vai usar a seguinte tabela:
| Citação: | Ai o Edit3 vai receber o valor das parcelas.
Edit4 a quantidade de parcelas neh. no caso Edit4 := Edit2 |
Espero que alguem possa me ajudar muito obrigado[/quote]
Editado pela última vez por fr4nk em Qui Jan 30, 2014 8:05 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9099
Localização: Sinop-MT
|
| Enviada: Qui Jan 30, 2014 11:45 am Assunto: |
|
|
desse jeito vc nao ta fazendo juros composto.
vc deve fazer assim:
| Citação: | Valor: 1.000,00
Parcelas: 10
Juros: 1,99% ao mes
|
a formula:
| Código: | Total := Valor * Power(1 + (Juros / 100), Parcelas);
ValorParcela := Total / Parcelas |
acho q é isso (
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
fr4nk
Novato
Registrado: Sábado, 20 de Março de 2010
Mensagens: 51
|
| Enviada: Qui Jan 30, 2014 12:20 pm Assunto: |
|
|
| Intão acho que é juros simples. ten alguma outra forma? |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9099
Localização: Sinop-MT
|
| Enviada: Qui Jan 30, 2014 12:35 pm Assunto: |
|
|
juros simples:
| Código: | Total := Valor * (1 + (Juros / 100));
ValorParcela := Total / Parcelas; |
no seu caso, teria q ter uma tabela pra guardar o numero de parcelas e o valor dos juros, ou entao usar case:
| Código: | case parcelas of
1: Juros := 2.2;
2: Juros := 4.4;
...
10: Juros := 22;
end; |
dai so aplicar o codigo acima de juros simples.
mas neste caso, se os juros mudarem? tem q modificar o programa e atualizar, o q pode causar transtornos para os usuarios
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
claudio___roberto
Novato
Registrado: Quarta-Feira, 30 de Janeiro de 2013
Mensagens: 34
Localização: Lorena-sp
|
| Enviada: Qui Jan 30, 2014 1:23 pm Assunto: formula de juros composto basico |
|
|
Segue uma pequeno código que faz o calculo de juros composto, que nada mais é do que juros cobrado do valor+juros anterior;
| Código: |
for i := 0 to parcelas do
begin
total := valor + (valor * juros);
valor := total;
end;
ShowMessage('Total R$' + FormatFloat('##0.00',valor));
|
|
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9099
Localização: Sinop-MT
|
| Enviada: Qui Jan 30, 2014 1:42 pm Assunto: Re: formula de juros composto basico |
|
|
| claudio___roberto escreveu: | Segue uma pequeno código que faz o calculo de juros composto, que nada mais é do que juros cobrado do valor+juros anterior;
| Código: |
for i := 0 to parcelas do
begin
total := valor + (valor * juros);
valor := total;
end;
ShowMessage('Total R$' + FormatFloat('##0.00',valor));
|
|
ja tinha postado a formula do juros composto acima.
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
fr4nk
Novato
Registrado: Sábado, 20 de Março de 2010
Mensagens: 51
|
| Enviada: Qui Jan 30, 2014 7:59 pm Assunto: resposta |
|
|
Obrigado! matutei matutei e consegui finalmente esahuse ficou assim, só que usei variaveis
| Citação: | var
VM,VT,A,B,D,C: Real;
begin
VT:=0;
VM:=0;
A:=0;
B:=0;
C:=0;
D:=0;
VT:= StrToFloat(Edit1.Text);
A:=VT;
VT:=VT/100;
VM:= StrToFloat(Edit2.Text);
D:=VM*2.2;
B:=VT*D;
C:=B+A;
C:=C/VM;
Edit3.Text:=FloatToStr(C);
Edit4.Text:=Edit2.Text;
BitBtn2.SetFocus;
Edit1.Text := CurrToStrF(StrToCurrDef(Trim(Edit1.Text),0),ffNumber,2);
Edit3.Text := CurrToStrF(StrToCurrDef(Trim(Edit3.Text),0),ffNumber,2); |
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
