domingo, 30 de janeiro de 2011

Mostra o valor lido e o total de notas R$.

{15 - Escrever um algoritmo que le um valor em reais e calcula qual o menor
numero possivel de notas de 100, 50, 10, 5 e 1 em que o valor lido pode ser
decomposto. Escrever o valor lido e a relacao de notas necessarias.}

Program decompornotas;
uses crt;
var valor, relac100, relac50, relac10, relac5, resto,
    resto1, resto2, resto3: integer;

Begin
  Clrscr;
  writeln ('Digite o valor em reais');
  readln (valor);
  if (valor >= 100) then Begin
                           relac100 := valor div 100;
                           resto := valor mod 100;
                           relac50 := resto div 50;
                           resto1 := resto mod 50;
                           relac10 := resto1 div 10;
                           resto2 := resto1 mod 10;
                           relac5 := resto2 div 5;
                           resto3 := resto2 mod 5;
                         end;
  writeln;
  writeln ('Valor lido: ', valor ,',',' decomposto nas seguintes cedulas:');
  writeln;
  writeln (relac100 ,' cedulas de 100 reais');
  writeln (relac50 ,' cedulas de 50 reais');
  writeln (relac10 ,' cedulas de 10 reais');
  writeln (relac5 ,' cedulas de 5 reais');
  writeln (resto3 ,' cedulas de 1 real');
  readkey;
end.

Um comentário:

  1. so deveria tirar esse if (valor >= 100) then Begin pois se botarmos um valor menor que 100 ele nao vai contar quantas cedulas há

    ResponderExcluir