Contoh Progam Pascal (Data Pembeli)

contoh program :

uses crt;
var

np:string[20];

jd,i:byte;

nb:array[1..50]of string;

jb,ttl,hrg:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(‘TOKO “SERBA ADA”‘);

writeln(‘————————-’);

write(‘masukan nama pembeli :’);readln(np);

write(‘masukan jumlah data :’);readln(jd);

for i:=1 to jd do

begin

writeln(‘data ke- ‘,i);

write(‘nama barang :’);readln(nb[i]);

write(‘jumlah beli :’);readln(jb[i]);

write(‘harga :’);readln(hrg[i]);

end;

clrscr;

writeln(‘ TOKO “SERBA ADA”‘);

writeln(‘ TABEL PENJUALAN BARANG’);

writeln(‘———————————————————–’);

writeln(‘No. Nama pembeli Nama barang Jumlah harga total ‘);

writeln(‘———————————————————–’);

tot:=0;

for i:=1 to jd do

begin

ttl[i]:=hrg[i]*jb[i];

tot:=tot+ttl[i];

end;

for i:=1 to jd do

begin

writeln(i:1,np:10,nb[i]:13,jb[i]:12:0,hrg[i]:8:0,ttl[i]:10:0);

end;

writeln(‘————————————————————-’);

writeln(‘total bayar = ‘,tot:3:0);

writeln(‘————————————————————-’);

write(‘Mau input data lagi[Y/T]=’);readln(lagi);

if (lagi=’Y') or (lagi=’y') then

goto awal

else

goto akhir;

akhir:

readln;

end.

Tampilan Input:

Tampilan Output:

Dikutip dari : http://midomination.wordpress.com/2009/11/18/contoh-contoh-program-pascal/