Algoritma dengan Psedocode

------------- Cek in Hotel -------------

________________________________________________________________________

Algoritma : cek_in_hotel
Kamus data :
       nama : string
       no_ktp : integer
       type_kamar : string
       no_kamar : integer
       fasilitas : string
       harga/hari : float
       diskon : integer
       lama_inap : integer
       total_biaya : float


Algoritma
       function harga_per_hari (type_kamar : string ) -> float
Kamus data :
       harga : integer ;
Begin
       if (type_kamar == "Standar Room"){
              harga = 150000 ;
       }else if (type_kamar == "Superior"){
              harga = 250000 ;
       }else if (type_kamar == "Moderate"){
              harga = 600000 ;
       }else{
              harga = 900000 ;
       }
       return(harga) ;
end

       function fasilitas (type_kamar : string) -> string
Kamus data :
       fasilitas : String ;
Begin
       switch (type_kamar){
              case "Standar Room" ;
                     fasilitas = "Kamar Mandi, Tempat Tidur, Lemari, Meja, Rak" ;
              break ;
              case "Superior" ;
                     fasilitas = "Kamar Mandi, Tempat Tidur, Lemari, Meja, Rak, TV" ;
              break ;
              case "Moderate" ;
                     fasilitas = "Kamar Mandi, Tempat Tidur, Lemari, Meja, Rak, TV, DVD/VCD player, Telp" ;
              break ;
              case "Suite Room" ;
                     fasilitas = "Kamar Mandi, Tempat Tidur, Lemari, Meja, Rak, TV, DVD/VCD player, Telp, AC, Balkon, Kamar Anak, Lemari Es" ;
              break ;
       }
       return(fasilitas) ;
end

       function diskon (type_kamar : string, lama_inap : integer) -> integer
Kamus data :
       diskon : integer ;
Begin
       if (type_kamar == "Moderate" && lama_inap >5){
              diskon = 20 ;
       }else if (type_kamar == "Suite Room" && lama_inap >3){
              diskon = 10 ;
       }else{
              diskon = 0 ;
       }
       return(diskon) ;
end

       funtion total_biaya (harga_per_hari : float , lama_inap : integer, diskon : integer) <- integer
Kamus data :
       total_biaya : integer ;
Begin
       total_biaya = (harga_per_hari * lama_inap)-((harga_per_hari *  lama_inap) * diskon / 100) ;
return(total);
end


Begin
       input (nama);
       input(no_ktp);
       input(type_kamar);
       input(no_kamar);
       input(lama_inap);

       fasilitas = fasilitas_kamar (type_kamar);
       harga/hari = harga_per_hari (type_kamar);
       diskon = diskon (type_kamar, lama_inap);
       total_biaya = total_biaya (harga/hari, lama_inap, diskon);

       output (Nama);
       output (No_KTP);
       output (Type_Kamar);
       output (No_Kamar);
       output (Lama_inap);
       output (Fasilitas);
       output (Harga/hari);
       output (Diskon);
       output (Total_Biaya);
end

________________________________________________________________________