January 9, 2013

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

January 9, 2013

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