ketikan source program ini dan silahkan lihat sendiri hasilnya ^_^
PROCEDURE
DIVISION.
TAMPILKAN-MENU.
DISPLAY HAPUS-LAYAR.
DISPLAY ' @@@@ Angkutan Mudik Anda @@@@ '.
DISPLAY '1. Kereta Api'.
DISPLAY '2. Bis'.
DISPLAY '3. Pesawat'.
DISPLAY '4. Keluar'.
DISPLAY 'Mau ke Surabaya Naik Apa Ya..?'.
DISPLAY 'Masukkan Pilihan Anda ! : '.
ACCEPT TEKAN.
SELEKSI-PILIHAN.
IF TEKAN = 1
GO TO KERETA.
IF TEKAN = 2
GO TO BIS.
IF TEKAN = 3
GO TO PESAWAT.
IF TEKAN = 4
GO TO PERF.
IF TEKAN > 4
DISPLAY 'Maaf, tidak ada pilihan, ulangi kembali !'.
STOP ' '.
GO TO TAMPILKAN-MENU.
KERETA.
DISPLAY HAPUS-LAYAR
DISPLAY ( 1, 20 ) '###### Daftar Kereta Api ###### '.
DISPLAY ( 3, 5 ) 'Nama Kereta Api (Kelas) |'.
DISPLAY ( 3, 30 ) ' Harga Tiket (per orang)'.
DISPLAY ( 5, 5 ) '1. Gajayana (Eksekutif)'.
DISPLAY ( 5, 28 ) ' | Rp200.000'.
DISPLAY ( 6, 5 ) '2. Argo Bromo (Bisnis).
DISPLAY ( 6, 28 ) ' | RP180.000'.
DISPLAY ( 7, 5 ) '3. Matarmaja (Ekonomi)'.
DISPLAY ( 7, 28 ) ' | RP100.000'.
DISPLAY ( 15, 5 ) 'Masukan Pilihan Kereta : '
ACCEPT TULIS.
IF TULIS = 1
GO TO GAJA.
IF TULIS = 2
GO TO ARGO.
IF TULIS = 3
GO TO MATAR
GO TO SEPUR.
GAJA.
DISPLAY ( 17, 5 )'Anda mudik naik kereta Gajayana
= Rp200.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE SEPUR = 200000.
STOP ' '.
GO TO TAMPILKAN-MENU.
ARGO.
DISPLAY ( 17, 5 )'Anda mudik naik kereta Argo Bromo =
Rp180.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE SEPUR = 180000.
STOP ' '.
GO TO TAMPILKAN-MENU.
MATAR.
DISPLAY ( 17, 5 )'Anda mudik naik kereta Matarmaja = Rp100.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE SEPUR = 100000.
STOP ' '.
GO TO TAMPILKAN-MENU.
BIS.
DISPLAY HAPUS-LAYAR
DISPLAY ( 1, 20 ) '###### Daftar Bis ###### '.
DISPLAY ( 3, 5 ) 'Nama
Bis
|'.
DISPLAY ( 3, 30 ) 'Harga Tiket (per orang)'.
DISPLAY ( 5, 5 ) '1. Harapan Jaya'.
DISPLAY ( 5, 28 ) '| Rp155.000'.
DISPLAY ( 6, 5 ) '2. Rosalia Indah'.
DISPLAY ( 6, 28 ) '| RP145.000'.
DISPLAY ( 7, 5 ) '3. Safari Dharma Raya'.
DISPLAY ( 7, 28 ) '| RP135.000'.
DISPLAY ( 15, 5 ) 'Masukan Pilihan Bis : '
ACCEPT TULIS2.
IF TULIS2 = 1
GO TO HARAPAN.
IF TULIS2 = 2
GO TO ROSALIA.
IF TULIS2 = 3
GO TO SAFARI.
GO TO BIS.
HARAPAN.
DISPLAY ( 17, 5 )'Anda memilih Harapan Jaya = Rp155.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE BUS = 155000.
STOP ' '.
GO TO TAMPILKAN-MENU.
ROSALIA.
DISPLAY ( 17, 5 )'Anda memilih Rosalia Indah = Rp145.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE BUS = 145000.
STOP ' '.
GO TO TAMPILKAN-MENU.
SAFARI.
DISPLAY ( 17, 5 )'Anda memilih Safari Dharma Raya = Rp135.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai
Tujuan'.
COMPUTE BUS = 135000.
STOP ' '.
GO TO TAMPILKAN-MENU.
PESAWAT.
DISPLAY HAPUS-LAYAR.
DISPLAY ( 1, 20 ) '###### Daftar Pesawat ###### '.
DISPLAY ( 3, 5 ) 'Nama
Pesawat |'.
DISPLAY ( 3, 30 ) 'Harga Tiket (per orang)'.
DISPLAY ( 5, 5 ) '1. Garuda Indonesia'.
DISPLAY ( 5, 28 ) '| Rp1.650.000'.
DISPLAY ( 6, 5 ) '2. Batavia Air'.
DISPLAY ( 6, 28 ) '| RP1.550.000'.
DISPLAY ( 7, 5 ) '3. Sriwijaya Air'.
DISPLAY ( 7, 28 ) '| RP1.450.000'.
DISPLAY ( 15, 5 ) 'Masukan Pilihan Pesawat : '.
ACCEPT TULIS3.
IF TULIS3 = 1
GO TO GARUDA.
IF TULIS3 = 2
GO TO BATAVIA.
IF TULIS3 = 3
GO TO SRIWIJAYA.
GO TO PESAWAT.
GARUDA.
DISPLAY ( 17, 5 )'Anda memilih Garuda Indonesia = Rp1.650.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE KAPAL = 1650000.
STOP ' '.
GO TO TAMPILKAN-MENU.
BATAVIA.
DISPLAY ( 17, 5 )'Anda memilih Batavia Air = Rp1.550.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai Tujuan'.
COMPUTE KAPAL = 1550000.
STOP ' '.
GO TO TAMPILKAN-MENU.
SRIWIJAYA.
DISPLAY ( 17, 5 )'Anda memilih Sriwijaya Air = Rp1.450.000'.
DISPLAY ( 18, 5 )'Terima Kasih, Semoga Selamat Sampai
Tujuan'.
COMPUTE KAPAL = 1450000.
STOP ' '.
GO TO TAMPILKAN-MENU.
STOP ' '.
GO TO KEMBALI-KE-MENU.
KEMBALI-KE-MENU.
DISPLAY ( 20, 5 )'TEKAN ENTER UNTUK KEMBALI KE MENU'.
STOP ' '.
GO TO TAMPILKAN-MENU.
PERF.
DISPLAY HAPUS-LAYAR.
PERFORM PROCEDURE-A.
DISPLAY "TERIMA KASIH".
PERFORM PROCEDURE-B.
PERFORM PROCEDURE-A.
STOP " ".
SELESAI.
STOP RUN.
PROCEDURE-A.
DISPLAY "#####################".
DISPLAY "^^^^^^^^^^^^^^^^^^^^^".
PROCEDURE-B.
DISPLAY "DAN SELAMAT JALAN".
Tidak ada komentar:
Posting Komentar
biar lebih baik lagi kasih coment :)