PROGRAM PASCAL

Program Belanja ,,.. semoga bermanfaat yaa,,..

program uang_kembalian;

uses crt;

var i :byte;

    barang,harga,hasil,uang,sisa:longint;

    limapuluh,duapuluh,sepuluh,limaribu,seribu,limaratus:integer;

begin

     clrscr;

     writeln('program hitung Belanja');

     writeln('**********************');

     writeln;

     writeln('Jumlah item barang: ');

     readln(barang);

     hasil:=0;

     for i:=1 to barang do

     begin

          write('harga barang ke ',i,' Rp. ');

          readln(harga);

          hasil:=hasil+harga;

     end;

     writeln('total belanja Rp.',hasil);

     writeln('uang yang dibayar : Rp. ');

     readln(uang);

     if hasil<uang then

     begin

     sisa:=uang-hasil;

     writeln('Sisa kembalian :Rp',sisa);

     writeln('dengan Rincian :');

     limapuluh:=sisa div 50000;

     sisa:=sisa mod 50000;

     duapuluh:=sisa div 20000;

     sisa:=sisa mod 20000;

     sepuluh:=sisa div 10000;

     sisa:=sisa mod 10000;

     limaribu:=sisa div 5000;

     sisa:=sisa mod 5000;

     seribu:=sisa div 1000;

     sisa:=sisa mod 1000;

     limaratus:=sisa div 500;

     sisa:=sisa mod 500;

     writeln('Uang kertas lima puluh ribu rupiah :',limapuluh,' lembar');

     writeln('Uang kertas dua puluh ribu rupiah :',duapuluh,'lembar');

     writeln('Uang kertas sepeluh ribu rupiah   :',sepuluh,'lembar');

     writeln('Uang kertas lima ribu             :',limaribu,'lembar');

     writeln('Uang kertas seribu rupiah         :',seribu,'lembar');

     writeln('Uang logam lima ratus rupiah      :',limaratus,'lembar');

     writeln(' ');

     readkey;

     end

     else

     writeln('uang anda tidak cukup');

     readln;

end.