Advertisement
Thiagoccaufes

exercicio6

Sep 15th, 2014
241
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.46 KB | None | 0 0
  1. {*Faça um algoritimo que receba valores referentes a um depósito e a uma taxa de
  2. calcule o redimento apos um mes e informe ao final o rendimento e o valor total
  3. considerando este rendimento*}
  4. program rendimentos;
  5. var d,j,r:real;
  6. begin
  7.     {*Entrada*}
  8.     writeln('Valor do Deposito e taxa de juros');
  9.     readln(d,j);
  10.     {*processamento*}
  11.     r := d*j/100;
  12.     writeln('o dinheiro rendeu ', r:5:2, ' total ', r+d:10:2);
  13.     {*pause*}
  14.     readln();
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement