Berikut adalah contoh program kasir dengan menggunakan pascal...
Sourcode:
![Dengan Dengan](http://2.bp.blogspot.com/-vpa3xcFNA9c/UQeFPEgw4tI/AAAAAAAAA-I/dBrJNFtY-vY/s1600/1.JPG)
Berikut ini merupakan contoh dari program kasir.Dalam program kasir ini diberikan diskon sebesar 5% bagi orang yang berbelanja antara 10.000 sampai dengan 100.000 dan diskon 10% bagi orang yang berbelanja lebih dari 100.000.
Input Data |
Hasil |
Sourcode:
type
kode : string[5];
harga : real;
total : real;
t,n,a:string;
totalpembelian,tot,kembali:real;
barang:array [1..100] of data;
begin
writeln('NIM : 3125311046 ');
writeln(' Nota Pembelian ');
writeln('Jl.Bausasran Kec. Danurejan (08994025463)');
writeln('-----------------------------------------');
write('TanggalPembelian : ');readln(t);
writeln;
fori := 1 to jumlahbrg do
writeln('Masukkan data ke-',i:2);
begin
write('Nama Barang : ');readln(barang[i].nama);
write('Harga Satuan : ');readln(barang[i].harga);
write('Jumlah Beli : ');readln(barang[i].jumlah);
end;
writeln('NamaPembeli : ',n);
writeln(');
writeln('|No|NamaBarang|Harga Satuan|Jumlah Beli| Total |');
writeln(');
barang[i].total:=0;
begin
barang[i].total:=barang[i].harga*barang[i].jumlah;
write(barang[i].nama:12);
write(barang[i].jumlah:5);
end;
writeln('--------------------------------------------------');
tot:=tot+barang[j].total;
write(' Total Pembayaran :');read(totalpembelian);
writeln(' Jumlah Kembalian : ',kembali:20:2);
writeln(');
end;