PROGRAM PENJUALAN_TIKET_PESAWAT;
{ PROGRAM PENJUALAN TIKET PESAWAT TRAVEL PUTRA RAHMAN }
{ CREATED BY : FENGKI
PRANATA F
NIM : 310111021707
DATE WRITE : 22 MARET 2012 }
USES WINCRT;
VAR NAMA :
STRING[22];
KDPSWAT : STRING[4];
NMPSWAT : STRING[10];
JAMBKT : STRING[5];
TJPSWAT : STRING[15];
JSPNUM : STRING[6];
HRGTKT,BKBGSI,TTLBYR,KBGSI : REAL;
JMLBGS,TBAGSI : BYTE;
ULANG : CHAR;
LABEL MULAI;
{ MENGINPUTAN DATA }
BEGIN
MULAI:
CLRSCR;
WRITELN ('INPUT
DATA TRAVEL PUTRA RAHMAN');
WRITELN
('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
WRITELN ('');
WRITE ('NAMA PENUMPANG : ');READLN(NAMA);
WRITE ('KODE PESAWAT [P-01/P-02/P-03] : ');READLN(KDPSWAT);
WRITE ('JAM BERANGKAT [09.30/11.45/15.45] WITA :
');READLN(JAMBKT);
{NAMA PESAWAT DAN
JUMLAH BAGASI}
IF
(KDPSWAT='P-01') OR (KDPSWAT='p-01') THEN
BEGIN
NMPSWAT:='AIRLINES';
JMLBGS:=20;
END
ELSE IF
(KDPSWAT='P-02') OR (KDPSWAT='p-02') THEN
BEGIN
NMPSWAT:='BOURAQ';
JMLBGS:=15;
END
ELSE IF (KDPSWAT='P-03')
OR (KDPSWAT='p-03') THEN
BEGIN
NMPSWAT:='GARUDA';
JMLBGS:=25;
END;
{TUJUAN PESAWAT
DAN JAM KEBERANGKATAN}
IF
(NMPSWAT='AIRLINES') AND (JAMBKT='09.30') THEN TJPSWAT:='SURAKARTA'
ELSE IF
(NMPSWAT='AIRLINES') AND (JAMBKT='11.45') THEN TJPSWAT:='BALI'
ELSE IF
(NMPSWAT='AIRLINES') AND (JAMBKT='15.45') THEN TJPSWAT:='JAKARTA'
ELSE IF
(NMPSWAT='BOURAQ') AND (JAMBKT='09.30') THEN TJPSWAT:='MEDAN'
ELSE IF
(NMPSWAT='BOURAQ') AND (JAMBKT='11.45') THEN TJPSWAT:='BALI'
ELSE IF
(NMPSWAT='BOURAQ') AND (JAMBKT='15.45') THEN TJPSWAT:='MEDAN'
ELSE IF
(NMPSWAT='GARUDA') AND (JAMBKT='09.30') THEN TJPSWAT:='MEDAN'
ELSE IF
(NMPSWAT='GARUDA') AND (JAMBKT='11.45') THEN TJPSWAT:='JAKARTA'
ELSE IF
(NMPSWAT='GARUDA') AND (JAMBKT='15.45') THEN TJPSWAT:='JAKARTA';
WRITELN ('NAMA
PESAWAT :
',NMPSWAT);
WRITELN ('TUJUAN
PESAWAT :
',TJPSWAT);
WRITE ('JENIS PENUMPANG [ANAK/DEWASA] : ');READLN(JSPNUM);
WRITE ('TOTAL BAGASI PESAWAT : ');READLN(TBAGSI);
{HARGA PENJUALAN
TIKET}
IF
(TJPSWAT='SURAKARTA') AND
(JSPNUM='ANAK') THEN HRGTKT:=300000
ELSE IF
(TJPSWAT='SURAKARTA') AND (JSPNUM='DEWASA') THEN HRGTKT:=350000
ELSE IF
(TJPSWAT='MEDAN') AND
(JSPNUM='ANAK') THEN HRGTKT:=150000
ELSE IF
(TJPSWAT='MEDAN') AND
(JSPNUM='DEWASA') THEN HRGTKT:=250000
ELSE IF
(TJPSWAT='BALI') AND
(JSPNUM='ANAK') THEN HRGTKT:=120000
ELSE IF
(TJPSWAT='BALI') AND
(JSPNUM='DEWASA') THEN HRGTKT:=320000
ELSE IF
(TJPSWAT='JAKARTA') AND
(JSPNUM='ANAK') THEN HRGTKT:=305000
ELSE IF (TJPSWAT='JAKARTA') AND (JSPNUM='DEWASA') THEN HRGTKT:=130000;
IF
TBAGSI>JMLBGS THEN KBGSI:=(TBAGSI-JMLBGS) ELSE KBGSI:=0;
BKBGSI:=(10000 *
KBGSI);
TTLBYR:=HRGTKT+BKBGSI;
{MENAMPILKAN
OUTPUT DATA}
CLRSCR;
GOTOXY(30,02);WRITE('*T R A V E L
P U T R A R A H M A N*');
GOTOXY(28,03);WRITE('++++++++++++++++++++++++++++++++++++++');
GOTOXY(01,06);WRITE('==============================================================================');
GOTOXY(01,07);WRITE('NAMA KODE NAMA JAM
JUMLAH JENIS HARGA
TTL KLBHN BIAYA
TOTAL');
GOTOXY(01,08);WRITE('PNMPNG PSWT
PSWT BRNGKT BAGASI PNMPNG TIKET
BGSI BGSI BAGASI BAYAR');
GOTOXY(01,09);WRITE('==============================================================================');
{12345678901234567890123456789012345678901234567890123456789012345678901234567890}
GOTOXY(01,10);WRITE(NAMA);
GOTOXY(10,10);WRITE(KDPSWAT);
GOTOXY(15,10);WRITE(NMPSWAT);
GOTOXY(23,10);WRITE(JAMBKT);
GOTOXY(30,10);WRITE(JMLBGS);
GOTOXY(38,10);WRITE(JSPNUM);
GOTOXY(45,10);WRITE(HRGTKT:6:0);
GOTOXY(53,10);WRITE(TBAGSI);
GOTOXY(58,10);WRITE(KBGSI:2:0);
GOTOXY(65,10);WRITE(BKBGSI:6:0);
GOTOXY(74,10);WRITE(TTLBYR:6:0);
GOTOXY(01,11);WRITE('===============================================================================');
READLN;
WRITE('UNTUK MENGULANGI LAGI TEKAN [Y/T] : ');READLN(ULANG);
IF UPCASE(ULANG)='Y' THEN GOTO MULAI ELSE EXIT;
END.
0 komentar:
Posting Komentar