contoh program kasir dengan bahasa pascal
program nota_toko;
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(' NOTA BELANJA ');
writeln(' Toko Indah Kurnia ');
writeln('Jl. Tanah Merah 4 no : 3a');
writeln('-----------------------------------------');
writeln;
write('Tanggal Pembelian : ');readln(t);
write('Nama Pembeli : ');readln(n);
write('Alamat : ');readln(a);
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 : ');readln(barang[i].jumlah);
end;
end;
writeln;
writeln('Nama Pembeli : ',n);
writeln('==================================================');
writeln('|No|Nama Barang|Harga Satuan|Jumlah| 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.
selamat mencoba semoga sukses :)
contoh program kasir dengan bahasa pascal
program nota_toko;
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(' NOTA BELANJA ');
writeln(' Toko Indah Kurnia ');
writeln('Jl. Tanah Merah 4 no : 3a');
writeln('-----------------------------------------');
writeln;
write('Tanggal Pembelian : ');readln(t);
write('Nama Pembeli : ');readln(n);
write('Alamat : ');readln(a);
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 : ');readln(barang[i].jumlah);
end;
end;
writeln;
writeln('Nama Pembeli : ',n);
writeln('==================================================');
writeln('|No|Nama Barang|Harga Satuan|Jumlah| 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.
selamat mencoba semoga sukses :)
No comments:
Post a Comment