Program Reservasi Ballroom Hotel Catvarimsati

sore semuaaaa...

hari ini kita bakal ngepost program reservasi ballroom hotel. nama hotelnya yaitu Hotel Catvarimsati.

program ini digunakan untuk membantu operator dalam menginputkan data-data untuk pemesanan. ada 5 jenis ballroom yang menggunakan nama-nama wayang. customer dapat memilih ballroom mana yang akan dipesan dan akan ditampilkan spesifikasi ruangannya. kemuadian customer juga dapat memilih beberapa menu makanan dan minuman yang dikelompokkan dalam beberapa paket.

ini pseudocode dan flowchart dari program tersebut

Enjoy it!

PSEUDOCODE RESERVASI BALLROOM HOTEL CATVARIMSATI

Header

Reservasi_Ballroom_Catvarimsati_Hotel

{Program Pembacaan Reservasi Ballroom Hotel yang Dicetak Oleh Mesin Pencetak}

Deklarasi

Nama, Jam, Tanggal, Kode_ballroom, Kode_makanan, ballroom1, mkn1: String

Jml_kursi, luas, jml_mkn1, hrg1, hrg2, Total_harga, Pembayaran, Kembalian, Pembelian1, Pembelian2: Integer

Deskripsi

Begin

Writeln(“CATVARIMSATI HOTEL”);

Writeln(“Jalan Catvarimsati No.40 Semarang”);

Writeln(“Telp. +6244 6701234,  7674151”);

Writeln(“Fax. +6244 6701234”);

Writeln(“Email : catvarimsati.smg@gmail.com”);

Writeln

("========================================================================");

Writeln();

Write(“Masukkan Nama:”);

Read(Nama);

Write("Masukkan Jam:");

Read(Jam);

Write("Masukkan Tanggal:");

Read(Tanggal);

Writeln(“Pilihan Ruangan:”);

Writeln(“Puntadewa”);

Writeln(“Werkudara”);

Writeln(“Arjuna”);

Writeln(“Nakula”);

Writeln(“Sadewa”);

Read(Kode_ballroom);

            If Kode_ballroom: “Puntadewa” then

            ballroom                       “Puntadewa”

            hrg1                             “25000000”

            luas                              “800”

            jml_kursi                      “500”

Else If Kode_Barang: "Werkudara" then

            ballroom                       “Werkudara”

            hrg1                             “20000000”

            luas                              “700”

            jml_kursi                      “400”

Else If Kode_Barang: "Arjuna" then

            ballroom                       “Arjuna”

            hrg1                             “15000000”

            luas                              “600”

            jml_kursi                      “300”

Else If Kode_Barang: "Nakula" then

            ballroom                       “Nakula”

            hrg1                             “10000000”

            luas                              “500”

            jml_kursi                      “200”

Else If Kode_Barang: "Sadewa" then

            ballroom                       “Sadewa”

            hrg1                             “5000000”

            luas                              “400”

            jml_kursi                      “100”

Else

            Writeln(“maaf, kode ballroom salah. Ballroom tidak terdaftar”);

Writeln ("---------------------------------------------------");

Writeln(“Nama Ballroom          :” + ballroom1.toUpperCase());

Writeln(“Harga             :” + hrg1);

Writeln(“Luas                           :” + luas);

Writeln(“Jumlah Kursi   :” + jml_kursi);

Writeln(“”);

Writeln ("---------------------------------------------------");

Writeln("Pilihan Katering                                   : ");

Writeln("1.(Chicken Drum Stick, Salad, Sup, Ice Cream, Sup Buah)");

Writeln("2.(Puding, Steak, Salad, Soft Drink, Sup Buah)");

Writeln("3.(Friench Fries, Cake, Steak, Ice Cream, Soft Drink)");

Writeln("4.(Salad, Friench Fries, Sup, Susu, Sup Buah");

Write("Katering                                                : ");

Read (Kode_makanan);

            IfKode_makanan: “1” then

                        mkn1                "Chicken Drum Stick, Salad, Sup, Ice Cream, Sup Buah";

                        hrg2                 40000;}

            elseif(Kode_makanan: “2” then

                        mkn1                "Puding, Steak, Salad, Soft Drink, Sup Buah";

                        hrg2                 38000;}

            elseif(Kode_makanan: “3” then

                        mkn1                "Friench Fries, Cake, Steak, Ice Cream, Soft Drink";

                        hrg2                 39000;}

            elseif(Kode_makanan : "4" then

                        mkn1                "Salad, Friench Fries, Sup, Susu, Sup Buah";

                        hrg2                 38000;}

            else

            Writeln("maaf, kode salah. Paket tidak terdaftar");

Writeln("---------------------------------------------------");

            Writeln("Nama Makanan                                              : " + mkn1);

            Writeln("Harga                                                             : " + hrg2);

            Write("masukkan jumlah makanan yang dibeli    : ");

            Read (jml_mkn1);

            Pembelian1=(jml_mkn1 * hrg2);

            Writeln("Harga Pembelian 1 : "+Pembelian1);   

            Writeln(" " );

Writeln("--------------------------------------------------------------------------------------------------------------------------------");

            Writeln("                                                        CATVARIMSATI HOTEL                                                                                                                    ");

            Writeln("                                              Jalan Catvatimsati No.40 Semarang, Indonesia 50167                                        ");

Writeln("                                                   Telp. +6224 6701234, 7674151");

            Writeln("                                                       Fax. +6224 6701234");

            Writeln("                                                 Email : catvarimsati.smg@gmail.com");

Writeln("=================================================================================================================================");

            Writeln("Pada Tanggal  " + Tanggal + " dan Waktu " + Jam + " Anda telah memesan :" );

            Writeln("Nama Ballroom                       : " + ballroom1);

            Writeln("Harga                                     : " + hrg1);

            Writeln("Luas                                       : " + luas);

            Writeln("Jumlah Kursi               : " + jml_kursi);

            Writeln("Pemesanan Catering    :");

            Writeln(Kode_makanan+"        |           "+mkn1+"         |           "+hrg2+"          |           "+jml_mkn1+"  |            "+Pembelian1);

            Writeln("---------------------------------------------------------------------------------------------------------------------------------");

            Total_harga=(hrg1+Pembelian1);

            Writeln("Total Harga : " + Total_harga);

            Write("Masukkan Uang Yang Anda Bayar : ");

            Read(Pembayaran);

            Kembalian=(Pembayaran-Total_harga);

            Writeln("---------------------------------------------------------------------------------------------------------------------------------");

            Writeln("TOTAL HARGA        : " +Total_harga);

Writeln("BAYAR                     : " +Pembayaran);

            Writeln("KEMBALIAN           : " +Kembalian);

            Writeln("******************************************TERIMAKASIH TELAH RESERVASI DI CATVARIMSATI HOTEL**************************************");

 End.

screenshot Console program

screenshot flowchart program