Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

PASCALL DINEROO!!!

By: a guest on May 7th, 2012  |  syntax: None  |  size: 2.11 KB  |  hits: 10  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program dinero_ingresado;
  2. uses crt;
  3.  
  4. var
  5.   dinero,i: integer;
  6.  
  7. begin
  8. clrscr;
  9.  
  10. write(' Ingrese monto en bs :  ');
  11. read(dinero);writeln;
  12.  
  13. writeln (' En determinados billetes su monto estaria expresado en: ');writeln;
  14.  
  15. if (dinero >= 5000 ) then
  16.   begin
  17.    i:= 0;
  18.  
  19.    repeat
  20.      begin
  21.        dinero := dinero - 5000;
  22.         i:= i + 1;
  23.      end;
  24.    until ( dinero < 0 );
  25.        writeln('',i-1,' Billete (s) de 5000 ');
  26.        dinero:= dinero + 5000;
  27. end;
  28.  
  29. if (dinero >= 1000 ) then
  30.   begin
  31.    i:= 0;
  32.  
  33.    repeat
  34.      begin
  35.        dinero := dinero - 1000;
  36.         i:= i + 1;
  37.      end;
  38.    until ( dinero < 0 );
  39.    
  40.        dinero:= dinero + 1000;
  41.        writeln('',i-1,' Billete (s) de 1000 ');
  42.      
  43. end;
  44.  
  45. if (dinero >= 500 ) then
  46.   begin
  47.    i:= 0;
  48.  
  49.    repeat
  50.      begin
  51.        dinero := dinero - 500;
  52.         i:= i + 1;
  53.      end;
  54.    until ( dinero < 0 );
  55.    
  56.        dinero:= dinero + 500;
  57.        writeln('',i-1,' Billete (s) de 500 ');
  58.      
  59. end;
  60.  
  61. if (dinero >= 100 ) then
  62.   begin
  63.    i:= 0;
  64.  
  65.    repeat
  66.      begin
  67.        dinero := dinero - 100;
  68.         i:= i + 1;
  69.      end;
  70.    until ( dinero < 0 );
  71.        writeln('',i-1,' Billete (s) de 100 ');
  72.        dinero:= dinero + 100;
  73. end;
  74.  
  75. if (dinero >= 50 ) then
  76.   begin
  77.    i:= 0;
  78.  
  79.    repeat
  80.      begin
  81.        dinero := dinero - 50;
  82.         i:= i + 1;
  83.      end;
  84.    until ( dinero < 0 );
  85.        writeln('',i-1,' Billete (s) de 50 ');
  86.        dinero:= dinero + 50;
  87. end;
  88.  
  89. if (dinero >= 20 ) then
  90.   begin
  91.    i:= 0;
  92.  
  93.    repeat
  94.      begin
  95.        dinero := dinero - 20;
  96.         i:= i + 1;
  97.      end;
  98.    until ( dinero < 0 );
  99.        writeln('',i-1,' Billete (s) de 20 ');
  100.        dinero:= dinero + 50;
  101. end;
  102.  
  103. if (dinero >= 10 ) then
  104.   begin
  105.    i:= 0;
  106.  
  107.    repeat
  108.      begin
  109.        dinero := dinero - 10;
  110.         i:= i + 1;
  111.      end;
  112.    until ( dinero < 0 );
  113.        writeln('',i-1,' Billete (s) de 10 ');
  114.        dinero:= dinero + 10;
  115. end;
  116.  
  117. if (dinero >= 5 ) then
  118.   begin
  119.    i:= 0;
  120.  
  121.    repeat
  122.      begin
  123.        dinero := dinero - 5;
  124.         i:= i + 1;
  125.      end;
  126.    until ( dinero < 0 );
  127.        writeln('',i-1,' Billete (s) de 5 ');
  128.        
  129. end;
  130. readkey;
  131. end.
create a new version of this paste RAW Paste Data