Contoh Source Code Pecahan Uang Bahasa Pascal

Program Pecahan_Uang;

Uses crt;

var uang,jumlah:longint;

begin

     writeln('Masukan nominal uang !!');

     writeln;

     write(' Rp. ');readln(uang);

     writeln;

     writeln ('Jumlah pecahan yang tersedia :');

     writeln;

     if uang>=1000 then

     begin

          jumlah:=uang div 1000;

          writeln(' Rp. 1000,- ada ',jumlah);

          uang:=uang mod 1000;

     end;

     if uang>=500 then

     begin

          jumlah:=uang div 500;

          writeln(' Rp.  500,- ada ',jumlah);

          uang:=uang mod 500;

     end;

     if uang>=100 then

     begin

          jumlah:=uang div 100;

          writeln(' Rp.  100,- ada ',jumlah);

          uang:=uang mod 100;

     end;

     if uang>=50 then

     begin

          jumlah:=uang div 50;

          writeln(' Rp.   50,- ada ',jumlah);

          uang:=uang mod 50;

     end;

     if uang>=25 then

     begin

          jumlah:=uang div 25;

          writeln(' Rp.   25,- ada ',jumlah);

          uang:=uang mod 25;

     end;

     writeln;

     readln;

end.