Struktur Data (Tugas 2)

Tugas 2 :

Buat program untuk menampilkan rincian uang kembalian dari suatu pembelian!

Penyelesaian :

- Listing program pascal

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 seratus ribuan');
    kembali := kembali mod 100000;
  end;


  if kembali div 50000 > 0 then begin
    writeln(kembali div 50000, ' lembar lima puluh ribuan');
    kembali := kembali mod 50000;
  end;
                                                                                            
  if kembali div 20000 > 0 then begin
    writeln(kembali div 20000, ' lembar dua puluh ribuan');
    kembali := kembali mod 20000;
  end;

  if kembali div 10000 > 0 then begin
    writeln(kembali div 10000, ' lembar sepuluh ribuan');
    kembali := kembali mod 10000;
  end;

  if kembali div 5000 > 0 then begin
    writeln(kembali div 5000, ' lembar lima ribuan');
    kembali := kembali mod 5000;
  end;

  if kembali div 1000 > 0 then begin
    writeln(kembali div 1000, ' lembar seribuan');
    kembali := kembali mod 1000;
  end;

  if kembali div 500 > 0 then begin
    writeln(kembali div 500, ' keping lima ratusan');
    kembali := kembali mod 500;
  end;

  if kembali div 100 > 0 then begin
    writeln(kembali div 100, ' keping seratusan');
    kembali := kembali mod 100;
  end;

end.

- Hasil Output program

~sai~