 |
| 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.Download source.Doc
Next program : klik
Selasa, 10 Juni 2014