Koding Pascal Sederhana "Reservasi Hotel"

Program ini akan meminta pengguna memasukkan informasi pemesanan seperti nama, tanggal check-in, durasi menginap, dan tipe kamar yang dipilih. Program akan menghitung harga berdasarkan tipe kamar dan durasi menginap, kemudian menampilkan detail pemesanan beserta total harga.

Pastikan Anda menjalankan program ini pada kompiler Pascal yang kompatibel atau menggunakan aplikasi seperti Free Pascal atau Turbo Pascal.

program PemesananKamarHotel;

uses crt;

var
  nama, tanggal, tipeKamar: string;
  durasi: integer;
  harga, total: real;

begin
  clrscr;
 
  writeln('========== Pemesanan Kamar Hotel ==========');
 
  // Memasukkan informasi pemesanan
  write('Masukkan Nama Anda: ');
  readln(nama);
 
  write('Masukkan Tanggal Check-in: ');
  readln(tanggal);
 
  write('Masukkan Durasi Menginap (dalam hari): ');
  readln(durasi);
 
  writeln('Pilih Tipe Kamar:');
  writeln('1. Deluxe Room');
  writeln('2. Superior Room');
  writeln('3. Standard Room');
  write('Pilihan Anda (1/2/3): ');
  readln(tipeKamar);
 
  // Menghitung harga berdasarkan tipe kamar
  case tipeKamar of
    '1': harga := 1500000;
    '2': harga := 1000000;
    '3': harga := 750000;
  end;
 
  // Menghitung total harga
  total := harga * durasi;
 
  // Menampilkan detail pemesanan
  writeln;
  writeln('========== Detail Pemesanan ==========');
  writeln('Nama: ', nama);
  writeln('Tanggal Check-in: ', tanggal);
  writeln('Durasi Menginap: ', durasi, ' hari');
  writeln('Tipe Kamar: ', tipeKamar);
  writeln('Harga per Hari: Rp', harga:0:0);
  writeln('Total Harga: Rp', total:0:0);
 
  readln;
end.

er