Tugas 2

PERTEMUAN KE 3 TANGGAL 07 MARET 2012

SEMESTER 2D

TUGAS 2:

Buat Program untuk menampilkan rincian uang kembalian.

Program rincian_uang_kembali;

uses wincrt;

var

uang,bayar,kembali : longint;

begin

write('Jumlah Bayar : ');readln(bayar);

write('Jumlah Uang : ');readln(uang);

kembali:=uang-bayar;

writeln('Total Kembali : ',kembali);

if kembali div 100000 > 0 then begin

writeln(kembali div 100000, ' lembar 100000 ');

kembali := kembali mod 100000;

end;

if kembali div 50000 > 0 then begin

writeln(kembali div 50000, ' lembar 50000 ');

kembali := kembali mod 50000;

end;

if kembali div 20000 > 0 then begin

writeln(kembali div 20000, ' lembar 20000');

kembali := kembali mod 20000;

end;

if kembali div 10000 > 0 then begin

writeln(kembali div 10000, ' lembar 10000');

kembali := kembali mod 10000;

end;

if kembali div 5000 > 0 then begin

writeln(kembali div 5000, ' lembar 5000');

kembali := kembali mod 5000;

end;

if kembali div 2000 > 0 then begin

writeln(kembali div 2000, ' lembar 2000');

kembali := kembali mod 2000;

end;

if kembali div 1000 > 0 then begin

writeln(kembali div 1000, ' lembar 1000');

kembali := kembali mod 1000;

end;

if kembali div 500 > 0 then begin

writeln(kembali div 500, ' keping 500');

kembali := kembali mod 500;

end;

if kembali div 200 > 0 then begin

writeln(kembali div 200, ' keping 200');

kembali := kembali mod 200;

end;

if kembali div 100 > 0 then begin

writeln(kembali div 100, ' keping 100');

kembali := kembali mod 100;

end;

end.