Program Pemesanan Tiket KA dengan Pascal 7.0

Silahkan ini temen2 praktekkan, buat belajar temen2 sebelum ujian Pascal di kampus masing2.

Uses crt;

Var

NAMA, AL, NK, JU, KLS : string [35];

JM, HG, HB, DS, TOTAL : real ;

Begin

* INPUT *

Clrscr;

Writeln ( ‘ =============================================================’);

Writeln ( ‘ PROGRAM PEMESANAN TIKET KERETA API ’);

Writeln ( ‘ =============================================================’);

Writeln ( ‘ INPUT NAMA PEMESAN : ’ ) ; READLN(NAMA);

Writeln ( ‘ INPUT ALAMAT PEMESAN : ’ ) ; READLN(AL);

Writeln ( ‘ INPUT NAMA KERETA API(ARGO BROMO/BANDUNG EXPRESS : ’ ) ; READLN(NK);

Writeln ( ‘ INPUT JURUSAN DI TUJU (BANDUNG/YOGYAKARTA ) : ’ ) ; READLN(JU);

Writeln ( ‘ INPUT KELAS KERETA API (EXECUTIVE/BISNIS/EKONOMI) : ’ ) ;READLN(KLS);

Writeln ( ‘ INPUT JUMLAH TIKET YG DIBELI : ’ ) ; READLN(JM);

* OUTPUT *

Clrscr;

Writeln ( ‘ =============================================================’);

Writeln ( ‘ PROGRAM PEMESANAN TIKET KERETA API ’);

Writeln ( ‘ =============================================================’);

Writeln ( ‘ NAMA : ’ , NAMA);

Writeln ( ‘ ALAMAT : ’ , AL);

Writeln ( ‘ NAMA KERETA API : ’ , NK);

Writeln ( ‘ JURUSAN : ’ , JU);

Writeln ( ‘ KELAS : ’ , KLS);

IF JU=’BANDUNG’ THEN

BEGIN

IF KLS = ‘ EXECUTIVE’ THEN

HG := 150000

ELSE IF KLS = ‘ BISNIS ‘ THEN

HG := 100000

ELSE

HG := 50000

ELSE

BEGIN

IF KLS = ‘ EXECUTIVE’ THEN

HG := 200000

ELSE IF KLS = ‘ BISNIS ‘ THEN

HG := 150000

ELSE

HG := 75000

END;

Writeln ( ‘ HARGA BAYAR : ’ , HG);

Writeln ( ‘ JUMLAH BELI : ’ , JM);

HB:=HG*JM

Writeln ( ‘ HARGA BAYAR : ’ , HB);

IF JM > 5 THEN

DS := 0.5 * HB

ELSE IF JM > 3 THEN

DS := 0.3 * HB

ELSE

DS := 0 ;

Writeln ( ‘ DISKON : ’ , DS);

TOTAL := HB – DS ;

Writeln ( ‘ Total Bayar : ’ , total);