Tugas Struktur Data (2)

Membuat Program Struk Belanja (Rincian Uang)

program struk_belanja;
uses wincrt;

var
   kode,tgl,nama,alamat,brg:string[50];
   hrg,jumlahbrg,uang,tot,byr: longint;
   barang:array[1..50]of integer;

begin
clrscr;
write('Tanggal Pembelian: ');readln(tgl);
write('Nama Pembeli : ');readln(nama);
write('Alamat : ');readln(alamat);
writeln;
writeln('  PEMBELIAN BARANG');
writeln('  ----------------------------------');
write('  Kode Barang : ');readln(kode);
write('  Nama Barang yang dibeli : ');readln(brg);
write('  Harga Satuan Barang : ');readln(hrg);
write('  Jumlah : ');readln(jumlahbrg);
writeln;
tot:=hrg*jumlahbrg;

clrscr;
writeln(' STRUK BELANJA BARANG');
writeln(' CV. GEMBLADUK Typography');
writeln(' Jl.Kh.Abd.Qohar No.17 Dsn.Duyo Ds.Sukorejo');
writeln(' Kec.Pohjentrek Kab.Pasuruan');
writeln;
writeln('Tanggal Pembelian: ',tgl);
writeln('Nama Pembeli : ',nama);
writeln('Alamat : ',alamat);
writeln('——————————————————————————————————————————————————————————————————————————————');
writeln('| Kode barang | Nama Barang | harga satuan(Rp) | jumlah | harga x jumlah(Rp) |');
writeln('——————————————————————————————————————————————————————————————————————————————');
begin
write(kode,'      ');
write(brg:10,'    ');
write(hrg:10,'    ');
write(jumlahbrg,'    ');
writeln(tot:10);
end;
writeln('——————————————————————————————————————————————————————————————————————————————');
  write('Uang Pembayaran : ');readln(byr);
  uang:=byr-tot;
  writeln;
  writeln('Uang Kembalian');
  writeln('===========================');

  if uang div 100000 > 0 then begin
    writeln(uang div 100000, ' lembar seratus ribuan');
    uang := uang mod 100000;
  end;

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

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

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

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

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

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

  if uang div 100 > 0 then begin
    writeln(uang div 100, ' ratusan');
    uang := uang mod 100;
  end;

  if uang div 50 > 0 then begin
    writeln(uang div 50, ' limapuluhan');
    uang := uang mod 50;
  end;

  if uang > 0 then begin
    writeln(uang, ' satuan');
  end;

  writeln('——————————————————————————————————————————————————————————————————————————————');

end.

Tampilan output dari script diatas :

 Gambar.1- (Inputan data)

 Gambar.2- (Rincian Struk Transaksi)