program pesan kamar

PROGRAM MEMESAN KAMAR DI HOTEL/PENGINAPAN

Program ini memakai bahasa pemograman basiq, program ini saya buat untuk kelengkapan tugas akhir mata kuliah algoritma dan pemograman 1..bahasa program basic adalah bahasa pemograman tingkat tinggi seperti halnya bahasa program pascal, dll.

Berikut gambar hasil program dan kode programnya;

 

CLS

INPUT "MASUKAN NO BAYAR                        :", NOBR

INPUT "MASUKAN TANGGAL                         :", TGL

INPUT "MASUKAN NO KTP[16 DIGIT]                :", NOKTP

INPUT "MASUKAN NAMA                            :", NAMA$

INPUT "MASUKAN NO KAMAR                        :", NOKMR$

INPUT "MASUKAN KODE KAMAR[K001/K002/K003/K004] :", KMR$

INPUT "LAMA MENGINAP[HARI]                     :", LM

INPUT "JUMLAH ANGGOTA                          :", JA

IF KMR$ = "K001" THEN

        JK$ = "VVIP"

        'TARIF

        T = 1000000

        'FASILITAS

        F$ = "AC,KULKAS,TELEVISI,MAKAN SIANG/MALAM"

ELSEIF KMR$ = "K002" THEN

        JK$ = "VIP"

        'TARIF

        T = 750000

        'FASILITAS

        F$ = "AC,KULKAS,TELEVISI,MAKAN_MALAM"

ELSEIF KMR$ = "K003" THEN

        JK$ = "MEDIUM"

        'TARIF

        T = 500000

        'FASILITAS

         F$ = "AC,TELEVISI,"

ELSEIF KMR$ = "K004" THEN

        JK$ = "EKONOMIS"

        'TARIF

        T = 150000

        'FASILITAS

        F$ = "AC,TELEVISI"

END IF

'JUMLAH

 J = LM * T * JA

PRINT "|____________________________________________________________________________|"

PRINT ": KODE KAMAR                 | JENIS KAMAR              | TARIF             "

PRINT "|_____________________________|__________________________|___________________|"

PRINT ""; KMR$; "               "; , ""; " |"; ; , JK$; , ""; "|"; T; , ""

PRINT "|_____________________________|__________________________|___________________|"

PRINT "                             |"

PRINT ":FASILITAS                   | LAMA MENGINAP            |JUMLAH ANGGOTA     "

PRINT "|_____________________________|______________________________________________|"

PRINT ""; F$; , " |", LM, "|", JA;

PRINT "|____________________________________________________________________________|"

PRINT "JUMLAH TOTAL PEMBAYARAN      |"; J

PRINT "|_____________________________________________________________________________|"

…….….selamat mencoba………………..