Pertanyaan 7

Pertanyaan :
Buat Program dengan kasus berikut...!

Data Transaksi

PT. Kalijogo Travel

Jl. Mawar Merah No. 150 Malang

No	Kode Pesawat	Nama Pesawat	Kode Tujuan	Harga Tiket	Jam Take Off	Kota Tujuan	Diskon	Jumlah Penumpang	Total Pendapatan
1	BRQ		BLI					40
2	MDL		MKS					36
3	ADM		PLU					35
4	MPT		MDO					34
5	SPT		JKT					25
6	ADM		JKT					45
7	MDL		MKS					43
8	BRQ		BLI					36
9	MPT		MDO					34
10	MDL		JKT					23

Nama Pesawat, ketentuannya sbb:

• Jika kode pesawat = BRQ, maka Nama Pesawat = Bouraq

• Jika kode pesawat = SPT, maka Nama Pesawat = Simpati

• Jika kode pesawat = MPT, maka Nama Pesawat = Merpati

• Jika kode pesawat = ADM, maka Nama Pesawat = Adam Air

• Jika kode pesawat = MDL, maka Nama Pesawat = Mandala

• 
  

Harga Tiket, ketentuannya sbb:

• Jika kode tujuan = MKS, maka harga tiket = 350.000

• Jika kode tujuan = JKT, maka harga tiket = 300.000

• Jika kode tujuan = MDO, maka harga tiket = 330.000

• Jika kode tujuan = BLI, maka harga tiket = 280.000

• Jika kode tujuan = PLU, maka harga tiket = 400.000

Jam Take Off, ketentuannya sbb:

• Isi kolom Take Off, berdasarkan tabel pesawat.

Kota Tujuan, ketentuannya sbb:

• Jika kode tujuan = BLI, maka kota tujuan = Bali

• Jika kode tujuan = JKT, maka kota tujuan = Jakarta

• Jika kode tujuan = MKS, maka kota tujuan = Makasar

• Jika kode tujuan = PLU, maka kota tujuan = Palu

• Jika kode tujuan = MDO, maka kota tujuan = Manado

Diskon, ketentuannya sbb:

• Isi kolom Diskon, berdasarkan tabel pesawat.

Untuk mengisi kolom Total Pendapatan, ketentuannya sbb:

• Isi dengan menjumlah semua pendapatan, kemudian dikurangi pengeluaran.

Jawaban :

program Transaksi;

uses crt;

var

kode_pesawat,kode_tujuan,nama_pesawat,takeoff,kota_tujuan:string;

harga_tiket,diskon,jumlah_penumpang,total_pendapatan:longint;

begin

clrscr;

textcolor(1);

textbackground(15);

writeln('###############################################');

writeln('## PROGRAM TRANSAKSI ##');

writeln('## PT. KALIJOGO TRAVEL ##');

writeln('###############################################');

writeln('');

writeln('Semua Input Harus Menggunakan Huruf Kapital');

writeln('');

write('Masukan Kode Pesawat = ');readln(kode_pesawat);

write('Masukan Kode Tujuan = ');readln(kode_tujuan);

write('Masukan Jumlah Penumpang = ');readln(jumlah_penumpang);

if kode_pesawat='BRQ' then

nama_pesawat:='Bouroq'

else if kode_pesawat='SPT' then

nama_pesawat:='Simpati'

else if kode_pesawat='MPT' then

nama_pesawat:='Merpati'

else if kode_pesawat='ADM' then

nama_pesawat:='Adam Air'

else if kode_pesawat='MDL' then

nama_pesawat:='Mandala'

else

nama_pesawat:='Kode Yang Anda Masukkan Salah';

writeln('Nama Pesawat = ',nama_pesawat);

if kode_tujuan='MKS' then

harga_tiket:=350000

else if kode_tujuan='JKT' then

harga_tiket:=300000

else if kode_tujuan='MDO' then

harga_tiket:=330000

else if kode_tujuan='BLI' then

harga_tiket:=280000

else if kode_tujuan='PLU' then

harga_tiket:=400000

else

harga_tiket:=0;

writeln('Harga Tiket = ',harga_tiket);

if kode_pesawat='BRQ' then

takeoff:='7:00'

else if kode_pesawat='SPT' then

takeoff:='12:45'

else if kode_pesawat='MPT' then

takeoff:='11:45'

else if kode_pesawat='ADM' then

takeoff:='16:45'

else if kode_pesawat='MDL' then

takeoff:='18:45'

else

takeoff:='Kode Yang Anda Masukkan Salah';

writeln('Jam Take Off = ',takeoff);

if kode_tujuan='MKS' then

kota_tujuan:='Makasar'

else if kode_tujuan='JKT' then

kota_tujuan:='Jakarta'

else if kode_tujuan='MDO' then

kota_tujuan:='Manado'

else if kode_tujuan='BLI' then

kota_tujuan:='Bali'

else if kode_tujuan='PLU' then

kota_tujuan:='Palu'

else

kota_tujuan:='Kode Yang Anda Masukkan Salah';

writeln('Kota Tujuan = ',kota_tujuan);

if kode_pesawat='BRQ' then

diskon:=harga_tiket*5 div 100

else if kode_pesawat='SPT' then

diskon:=harga_tiket*10 div 100

else if kode_pesawat='MPT' then

diskon:=harga_tiket*5 div 100

else if kode_pesawat='ADM' then

diskon:=harga_tiket*10 div 100

else if kode_pesawat='MDL' then

diskon:=harga_tiket*15 div 100

else

diskon:=0;

writeln('Potongan Harga = ',diskon);

total_pendapatan:=(harga_tiket-diskon)*jumlah_penumpang;

writeln('Total Pendapatan = ',total_pendapatan);

readln;

end.