syntax pada Qbasic nya seperti ini :
DO
CLS
TUJUAN$ = ""
KODE$ = ""
FASILITAS$ = ""
BIAYA& = 0
JML% = 0
PAKET$ = ""
DISKON& = 0
JWB$ = ""
BAYAR& = 0
PRINT " DAFTAR PERJALANAN WISATA"
PRINT " _AGEN PERJALANAN LANCAR_"
PRINT " ************************"
INPUT " MASUKKAN KODE TUJUAN : ", KODE$
INPUT " MASUKKAN JUMLAH PESERTA : ", JML%
INPUT " MASUKKAN JENIS PAKET : ", PAKET$
IF KODE$ = "BTR" OR KODE$ = "btr" THEN
TUJUAN$ = "BATURRADEN"
FASILITAS$ = "ANGKOT IJO"
BIAYA& = 20000
ELSEIF KODE$ = "BAL" OR KODE$ = "bal" THEN
TUJUAN$ = "BALI"
FASILITAS$ = "HOTEL + AKOMODASI"
BIAYA& = 500000
ELSEIF KODE$ = "PND" OR KODE$ = "pnd" THEN
TUJUAN$ = "PANGANDARAN"
FASILITAS$ = "PAKAIAN RENANG"
BIAYA& = 150000
ELSE
TUJUAN$ = "BOROBUDUR"
FASILITAS$ = "BUS AC + TV"
BIAYA& = 250000
END IF
IF PAKET$ = "A" OR PAKET$ = "a" THEN
IF JML% > 20 THEN DISKON& = 20 ELSE IF JML% > 15 THEN DISKON& = 10 ELSE DISKON& = 5
ELSE DISKON& = 0
END IF
PRINT " TUJUAN WISATA : "; TUJUAN$
PRINT " FASILITAS : "; FASILITAS$
PRINT " BIAYA PERORANG : RP."; BIAYA&
PRINT " TOTAL BIAYA : RP."; BIAYA& * JML%
PRINT " DISKON : RP."; DISKON& * BIAYA& * JML% / 100
PRINT " TOTAL BAYAR : RP."; BIAYA& * JML% - DISKON& * BIAYA& * JML% / 100
INPUT " PEMBAYARAN : RP. ", BAYAR&
PRINT " KEMBALI : RP."; BAYAR& - BIAYA& * JML% + DISKON& * BIAYA& * JML% / 100
INPUT " MENGHITUNG LAGI? [Y/N] : ", JWB$
LOOP UNTIL JWB$ = "N"
PRINT " TERIMAKASIH TELAH MENGGUNAKAN PROGRAM INI"
END
dan ketika di run hasilnya akan seperti ini :
DO : untuk perulangan LOOP UNTIL
CLS : untuk menghapus history saat di run
END IF : untuk menutup if, kalau di pascal seperti begin end
Dan untuk diskonnya (/100) jangan ditulis paada if nya tapi di tulis pada print nya
dan untuk flowchart nya seperti ini :
sekian tentang program tujuan wisata dari saya, semoga bermanfaat,
wassalamualaikum wr. wb.
0 komentar:
Posting Komentar