PROGRAM MENGHITUNG JUMLAH PECAHAN MATA UANG MENGGUNAKAN PASCAL

Program Menghitung_jml_pecahan;

uses crt;

var

jml_uang : longint;

prb1,rt20000,rt10000,an5000,an1000,an500,an100 : longint;

prb1x,rt20000x,rt10000x,an5000x,an1000x,an500x,an100x : longint;

begin

clrscr;

writeln('PROGRAM MENGHITUNG JUMLAH PECAHAN');

writeln;

write('Input Jumlah uang : ');readln(jml_uang);

writeln('------------------------------------------');

prb1 := jml_uang div 50000;

prb1x := jml_uang mod 50000;

rt20000 := prb1x div 20000;

rt20000x := prb1x mod 20000;

rt10000 := rt20000x div 10000;

rt10000x := rt20000x mod 10000;

an5000 := rt10000x div 5000;

an5000x := rt10000x mod 5000;

an1000 := an5000x div 1000;

an1000x := an5000x mod 1000;

an500 :=an1000x div 500;

an500x:=an100x mod 500;

an100:=an500x div 100;

an100x :=an500x mod 100;

writeln('Jumlah pecahan uang 50.000 adalah : ',prb1);

writeln('Jumlah pecahan uang 20.000 adalah : ',rt20000);

writeln('Jumlah pecahan uang 10.000 adalah : ',rt10000);

writeln('Jumlah pecahan uang 5000 adalah : ',an5000);

writeln('Jumlah pecahan uang 1000 adalah : ',an1000);

writeln('Jumlah pecahan uang 500 adalah : ',an500);

writeln('Jumlah pecahan uang 100 adalah : ',an100);

writeln('------------------------------------------');

if an100x > an100 then

begin

writeln('Sisa yang tidak terdapat');

writeln('dalam pecahan mata uang adalah : ',an100x,',-');

writeln('------------------------------------------');

readln;

end;

readln;

end.