RamdhaniBlog: Listing Program Penjualan Tiket Pesawat

Pada artike kali ini saya akan bahas bagaimana cara membuat program menggunakan array dan procedure dengan bahasa pascal. Sebenarnya cih masih banyak contoh yang kita bisa implementasikan pada program ini, akan tetapi sebagai contoh saya gunakan contoh yang paling sederhana pada sistem pembelian tiket pesawat .

uses crt;
procedure garis;
begin
writeln('====================================================');
end;
label
awal,akhir;
var
tt:longint;
j:char;
a,b,x:byte;
st,jt,h: array [1..10] of longint;
np,kp,nps:array [1..10] of string;
procedure hitung;
begin
st[a]:= jt[a]*h[a];
end;
begin
awal:
tt:=0;
clrscr;
gotoxy(28,1);writeln('DATA PENJUALAN TIKET PESAWAT');
garis;
write('Masukan Jumlah penumpang:');readln(b);
writeln;
for a:= 1 to b do

begin
writeln('Data penumpang Ke :',a);
write('Nama penumpang     :');readln(np [a]);
write('Kode Pesawat :');readln(kp [a]);
if kp[a]='G' then
begin
nps[a]:='Garuda';
h[a]:=980000;
end
else
if kp[a] ='M' then
begin
nps [a]:='Merpati';
h[a]:=850000;
end;
writeln('Nama Pesawat       :',nps[a]);
write('Jumlah Tiket       :');readln(jt[a]);
writeln('Harga              :',h[a]);
hitung;
end;
clrscr;
writeln;
gotoxy(30,3);writeln('Data Penumpang');
garis;
gotoxy(x,6);writeln('| No | Nama Pesawat | Nama Penumpang | Jumlah Tiket | Harga | Subtotal|');
garis;
writeln;
for a:= 1 to b do
begin
gotoxy(x+1,6+a);writeln('|',a);
gotoxy(x+6,6+a);writeln('|');
gotoxy(x+7,6+a);writeln(nps[a]);
gotoxy (x+21,6+a);writeln('|');
gotoxy (x+25,6+a); writeln(np[a]);
gotoxy(x+39,6+a);writeln('|');
gotoxy(x+44,6+a);writeln(jt[a]);
gotoxy(x+55,6+a);writeln('|');
gotoxy(x+57,6+a);writeln(h[a]);
gotoxy(x+64,6+a);writeln('|');
gotoxy(x+66,6+a);writeln(st[a]);
gotoxy(x+75,6+a);writeln('|');
end;
garis;
writeln;
for a:= 1 to b do
begin
hitung;
tt:=st[a]+tt;
end;
writeln('Total Pendapatan   :',tt);
garis;
writeln('Input lagi :');readln(j);
if j='y' then
goto awal
else
goto akhir;
akhir:
readln;
end.

Rancangan Input