Selasa, 15 September 2015

Program Pemesanan Tiket Pesawat dengan Pascal

Program Pemesanan Tiket Pesawat dengan Pascal

berikut source kodenya :

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.

berikut tampilan dari program ini :




3 komentar:

  1. Bang klo model flowchart nya gimana

    BalasHapus
  2. Lucky 8 Casino - MapyRO
    Find the location 김포 출장샵 of Lucky 8 Casino, Laughlin, NV. Trails are marked on 영주 출장마사지 the right corner of the 나주 출장마사지 road. Realtime 평택 출장샵 driving directions 안양 출장마사지 to Lucky 8 Casino, Laughlin,

    BalasHapus