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

 

kalkulator fisika

hai semuaaaa..

seneng banget hari ini kita bisa ketemu lagi. hari ini kita mau publish program kalkulator fisika. kalkulator ini khusus buat menghitung alat optik ajaaa, yaitu masalah menghitung fokus, kacamata untuk penderita miopi dan kacamata untuk penderita hipermetropi. kalkulator ini dibuat gara-gara kami berempat (read:dinda, afie, osi, gegik) pake kacamata hehehe

kalkulator ini membantu kita yang lagi belajar alat optik, biasanya SMP, SMA dan anak-anak kuliah semester awal. rumus-rumus yang dipakai juga sama seperti rumus dasar yang digunakan dalam perhitungan manual. rumus akan ditampilkan di pseudocode dan flowchart dari program ini.

Program ini menggunakan metode perulangan if-else dan while-do . sehingga kita dapat menggunakan secara berkali-kali tanpa harus bolak-balik me-running program ketika kita mengetik "YA"

Happy Reading, guys!!

PSEUDOCODE KALKULATOR ALAT OPTIK

Header

Kalkulator_fisika_untuk_menghitung_berbagai_rumus_alat_optik

Deklarasi

s, s1, pp, pr : double;

PPn :double;

pilihan, coba : string

Deskripsi

Begin

writeln(“********************************************”);

writeln(“***                                                                            ***”);

writeln(“***                       KALKULATOR                          ***”);

writeln(“***                      Alat Optik – Mata                         ***”);

writeln(“***                                                                            ***”);

writeln(“********************************************”);

writeln(““);

writeln("Apa yang akan anda hitung ?");

writeln(“1. Fokus pada mata Normal");

writeln("2. Kekuatan lensa pada mata hipermetropi");

writeln("3. Kekuatan lensa pada mata miopi");

writeln("Yang ingin dihitung       :");

read(pilihan);

if pilihan :”1” then

writeln(“-------------Mencari Fokus Pada Mata Normal-------------”);

writeln(“”);

write(“jarak benda (cm)            : “);

read(s);

write(“jarak bayangan (cm)       : “);

read(s1);

writeln(“Fokus                          : “ +(s*s1)/(s+s1)+  “ cm”);

writeln(“_____________________________________________”);

writeln(““);

else if pilihan :”2” then

writeln(“----Mencari Kekuatan Lensa pada Mata Hipermetropi---”);

writeln(““);

writeln(“jarak normal                : “+PPn );

write(“titik dekat                       : “);

read(pp);

writeln(“Kekuatan lensa   : “ +(100/25 - 100/pp)+  “ Dioptri”);

writeln(“______________________________________________”);

writeln(““);

else if pilihan:”3” then

writeln(“--------Mencari Kekuatan Lensa pada Mata Miopi--------”);

writeln(““);

write(“titik jauh                         : “);

read(pr);

writeln(“kekuatan lensa             : “ +(100/pr)+ “ Dioptri”);

else

writeln(“maaf, kode yang anda masukkan salah.”);

writeln(“------------------------------------------------------------------“);

writeln(“Mau coba lagi?? [YA/TIDAK]”);

read(coba);

if coba:"TIDAK" then

writeln("~~TERIMAKASIH TELAH MENGGUNAKAN KALKULATOR CATVARIMSATI~~");

whilecoba:"YA" do

writeln("Yang ingin dihitung  : ");

read(pilihan);

ifpilihan:"1" then

writeln(“           Fokus pada mata normal");      

writeln ("");

write("jarak benda                    : " );

read(s);

write("jarak bayangan   : " );

read(s1);

writeln("Fokus              : " +(s*s1)/(s+s1)+  " cm");

writeln("_________________________________________________");

else

ifpilihan:"2" then

writeln("--Mencari Kekuatan Lensa pada Mata Hipermetropi--");

writeln("");

writeln("jarak normal                 : "+PPn );

writeln("titik dekat         : ");

read(pp);

writeln("Kekuatan lensa            : " +(100/25 - 100/pp)+  " Dioptri");

writeln("__________________________________________________");

else

ifpilihan:"3"

writeln("------Mencari Kekuatan Lensa pada Mata Miopi------");

writeln("");

write("titik jauh                         : ");

read(pr);

writeln("kekuatan lensa             : " +(100/pr)+ " Dioptri");

else

writeln("maaf, kode yang anda masukkan salah.");

writeln("Mau coba lagi?? [YA/TIDAK]");

read(coba);

ifcoba:"TIDAK"

writeln("~~TERIMAKASIH TELAH MENGGUNAKAN KALKULATOR FISIKA CATVARIMSATI~~");

End. 

screnshot console program

 

screenshot flowchart program