Jumat, 20 Desember 2013
Asalamu'alaikum sobat
Kali ini saya akan berbagi tentang program
pascal menghitung nota belanja di
toko yang dimana pada bulan-bulan yang lalu saya sudah memposting
program yang sama tetapi program ini sudah diubah menjadi lebih menarik
dengan beberapa perubahan.Ya silakan disimak saja sob.
Berikut ini input programnya:
Program nota_belanja;
uses wincrt;
type
hr = record
jum : integer;
total : string;
end;
id = record
kode,nama : string;
Total,harga: longint;
barang: hr;
end;
var
pm: array [1..10] of id;
a,i,j,n,bayar,sisa: longint;
b,c,d,bantuan: string;
procedure juml (n: integer);
begin
for i:= 1 to n do
begin
write('Masukkan nama barang ',i,' : ');
readln(pm[i].nama);
write('Masukkankodebarang ',i,' : ');
readln(pm[i].kode);
write('Masukkan harga barang ',i,' : ');
readln(pm[i].harga);
write('Masukkan Jumlah barang ',i,' : ');
readln(pm[i].barang.jum);
end;
writeln;
write('Masukkan Total Uang Pembayaran : ');
readln(a);
writeln;
clrscr;
for i:= 1 to n-1 do
for j:= 1 to n-1 do
begin
if (pm[j].kode) > (pm[j+1].kode) then
begin
bantuan := pm[j].kode;
pm[j].kode:= pm[j+1].kode;
pm[j+1].kode:=bantuan;
end;
end;
for i:=1 to n do
begin
pm[i].Total:=pm[i].barang.jum * pm[i].harga;
end;
bayar:=0;
gotoxy(27,3);
writeln('NOTA BELANJA');
gotoxy(22,5);
writeln('TOKO MAJU MUNDUR');
gotoxy(16,7);
writeln('Jl. Raya Kedung banteng No.15');
writeln;
writeln('Tanggal Pembelian : ',b);
writeln;
writeln('Nama Pembeli : ',c);
writeln;
writeln('Alamat : ',d);
writeln('……………………………………………………….');
writeln(': No : Kode : NamaBarang : Harga :
Jumlah : Total Harga :');
writeln('……………………………………………………….');
for i:=1 to n do
begin
writeln(':',i:3,':':3,pm[i].kode:6,':':4,pm[i].nama:10,':':6,pm[i].harga:6,':':2,
pm[i].barang.jum:5,':':4,pm[i].Total:7,':':7);
bayar:=pm[i].total+bayar;
end;
sisa:= a - bayar;
writeln('……………………………………………………….');
writeln(':','Total Pembelian
(Rp)':30,':':19,bayar:7,':':7);
writeln(':','Total Bayar
(Rp)':30,':':19,a:7,':':7);
writeln(':','Total Kembalian
(Rp)':30,':':19,sisa:7,':':7);
writeln('……………………………………………………….');
end;
begin
Write('Masukkan Tanggal Pembelian :
');readln(b);
Write('Masukkan Nama Pembeli :
');readln(c);
Write('Masukkan Alamat Pembeli :
');readln(d);
writeln;
write('Masukkan jumlah barangnya : ');
readln(n);
juml(n);
end.
Dan ini hasil output programnya:
terimakasih sudah berkunjung,semoga bermanfaat sobat.
