Buat Program dengan kasus berikut...!
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.
