Juros Simples e Composto em Pascal

Essa é uma solicitação da leitora Jéssica.

O importante primeiro e saber as regras matemáticas que podem ser obtidas na Wikipédia:

http://pt.wikipedia.org/wiki/Juro

Juros Simples

Juros Simples: são os juros aplicados sobre um mesmo valor.

Exemplo: Atrasou a prestação de R$ 100,00 e pagará 5% de juros.

Valor pago: 100 + 5 (5%) = R$ 105.

Por isso a fórmula já em português:

VF (Valor Futuro) = VP (Valor Presente) . (1+ t (taxa) . p (período))

Juros Compostos

Juros Compostos: são os juros que são aplicados por um determinado período reaplicado sobre o novo valor.

Como no exemplo acima, se a prestação não for paga a cada mês inicidirá mais 5%, ou seja,

no primeiro mês atrasado a conta seria R$ 105, mas já no segundo mês a conta ficará 105 + 5,25 (5%) = 110,25

A fórmula em português:

VF (Valor Futuro) = VP (Valor Presente) . (1+ t (taxa))p (período)

Após o compreendido os juros, passamos a programação. Lembrar que a taxa é em porcento (por 100)).

Muitos alunos de matemática tem pavor dessa parte, mas é uma das mais importantes para a vida financeira de uma pessoa. Para exemplificar isso, no programa eu irei usar taxa de juros reais que os bancos cobram e demostrar a poupança e outros investimentos.

Juros Simples

Program Juros_Simples;
Uses Crt;
var
  vf, vp, tj, t, p : Real;
Begin
  ClrScr;
  WriteLn ('Juros Simples');
  WriteLn;
  Write ('Valor Presente: '); ReadLn (vp);
  Write ('Taxa de Juros.: '); ReadLn (tj);
  Write ('Periodo.......: '); ReadLn (p);
  t := tj/100; // Taxa em porcento
  vf := vp*(1+t*p);
  WriteLn;
  Write ('O Valor futuro:',vf:8:2);
  ReadLn;
End.

 

No teste do programa se um empréstimo de R$ 200,00 a taxa de 5% ao mês e durante 8 meses por juros simples. Eu nunca presenciei esse tipo de negócio, mas sempre os juros compostos.

 

Juros Simples Pascal

 

Juros Compostos

Program Juros_Compostos;
Uses Crt;
var
  vf, vp, tj, t, p : Real;
Begin
  ClrScr;
  WriteLn ('Juros Compostos');
  WriteLn;
  Write ('Valor Presente: '); ReadLn (vp);
  Write ('Taxa de Juros.: '); ReadLn (tj);
  Write ('Periodo.......: '); ReadLn (p);
  t := tj/100; // Taxa em porcento
  vf := vp*exp(p*ln(1+t));
  WriteLn;
  Write ('O Valor futuro:',vf:8:2);
  ReadLn;
End.

Segundo o site: http://www.anucc.com.br/servicos/index/25

 

A taxa de juros de um cartão de crédito é em torno 10,5% ao mês. Veja os resultados se você gastar R$ 500,00 e deixar 1 ano sem pagar:

 

Juros Compostos Pascal 3

 

Para a frustação, se você colocar os R$ 500,00 na poupança durante 1 ano, segundo o site:

http://www.financeone.com.br/investimentos/rendimento-e-historico-da-poupanca/

A taxa de juros é de 0,51% ao mês em média.

Juros Compostos Pascal 4

Se algum aluno desejar é possível cálcular o financiamento de um carro e descobrir o valor das parcelas.

Um comentário:

  1. Foi a melhor forma que eu vi para resolver estes problema.
    Obrigado.

    ResponderExcluir