------------- Cek in Hotel -------------
________________________________________________________________________
Algoritma : cek_in_hotelKamus 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
________________________________________________________________________
Tidak ada komentar:
Posting Komentar