Sabtu, 29 Juni 2013

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. 

Reaksi:

3 komentar:

Komentar ini telah dihapus oleh pengarang.

makasi hya atas tutorialnya

Programnya simple banget...
Saya ada versi visualnya menggunakan delphi...
semoga bermanfaat yah...