Program Kasir Pascal

Berikut adalah contoh program kasir dengan menggunakan pascal...

Input Data

Hasil

Sourcode:

uses wincrt;

type

  data = record

  kode : string[5];

  nama : string[10];

  harga : real;

  jumlah : integer;

  total : real;

end;

       

var

  t,n,a:string;

  jumlahbrg,i,j:byte;

  totalpembelian,tot,kembali:real;

  nama:string[20];

  barang:array [1..100] of data;

begin

writeln('Nama   : Aldi Suryadi               ');

writeln('NIM    : 3125311046                 ');

writeln('____________________________________');

writeln('             Nota Pembelian              ');

writeln('           Toko  Aldi Suryadi              ');

writeln('Jl. Bausasran Kec. Danurejan (08994025463)');

writeln('-----------------------------------------');

writeln;

write('Tanggal Pembelian        : ');readln(t);

write('Nama Pembeli             : ');readln(n);

writeln;

write('Jumlah Pembelian         : ');readln(jumlahbrg);

for i := 1 to jumlahbrg do

begin

  writeln('Masukkan data ke-',i:2);

  begin

  write('Kode Barang    : ');readln(barang[i].kode);

  write('Nama Barang    : ');readln(barang[i].nama);

  write('Harga Satuan   : ');readln(barang[i].harga);

  write('Jumlah Beli    : ');readln(barang[i].jumlah);

end;

end;

writeln;

writeln('Nama Pembeli : ',n);

writeln('==================================================');

writeln('|No|Nama Barang|Harga Satuan|Jumlah Beli|    Total    |');

writeln('==================================================');

begin

barang[i].total:=0;

for i := 1 to jumlahbrg do

begin

barang[i].total:=barang[i].harga*barang[i].jumlah;

write(i:2);

write(barang[i].nama:12);

write(barang[i].harga:14:2);

write(barang[i].jumlah:5);

writeln(barang[i].total:15:2);

end;

writeln('--------------------------------------------------');

for j:= 1 to jumlahbrg do

tot:= tot+barang[j].total;

writeln('       Total Keseluruhan  : ',tot:20:2);

write('       Total  Pembayaran  : ');read(totalpembelian);

kembali:= totalpembelian-tot;

writeln('       Jumlah Kembalian   : ',kembali:20:2);

writeln('==================================================');

writeln('TERIMA KASIH')

end;    

end.