Source Code Sewa Hotel dalam Pascal

Source Code Sewa Hotel dalam Pascal - Program berikut membahas tentang sistem input data sewa hotel.

Program ini tidak tersimpan ke dalam database, hanya berupa proses yang menghitung banyak anak dan fasilitas yang diinginkan.

Berikut ini source code sewa hotel menggunakan compiler dev-pascal :

uses crt;
 type sewa = record
  nama: string[25];
  bnyk_anak: byte;
  hrg_sewa: longint;
  lm_sewa: byte;
  nofas_tam: byte;
  nmafas_tam: string[10];
  hrgfas_tam: longint;
  tot_bayar: longint;
end;
var
 s: sewa;
 lagi: char;
begin
clrscr;
 lagi:= 'y';
 while upcase(lagi) = 'Y' do
 begin
 clrscr;
  gotoxy(32,2); write('INPUT DATA PENYEWA');
  gotoxy(3,3) ; write('============================================================================');
  gotoxy(3,5) ; write('Nama Penyewa          : '); readln(s.nama);
  gotoxy(3,7) ; write('Banyak Anak           : '); readln(s.bnyk_anak); gotoxy(29,7); write('Orang');
  if s.bnyk_anak = 1 then
     s.hrg_sewa:= 125000
  else
     s.hrg_sewa:= 250000;
  gotoxy(3,9) ; write('Harga Sewa            : ',s.hrg_sewa);
  gotoxy(3,11); write('Lama Sewa             : '); readln(s.lm_sewa); gotoxy(29,11); write('Bulan');
  gotoxy(3,13); write('No Fasilitas Tambahan : '); readln(s.nofas_tam);
  if s.nofas_tam = 1 then
   begin
    s.nmafas_tam:= 'TV';
    s.hrgfas_tam:= 15000;
   end
  else
  if s.nofas_tam = 2 then
   begin
    s.nmafas_tam:= 'PC';
    s.hrgfas_tam:= 15000;
   end
  else
  if s.nofas_tam = 3 then
   begin
    s.nmafas_tam:= 'Magic Com';
    s.hrgfas_tam:= 10000;
   end;
  gotoxy(3,15); write('Nama Fasilitas        : ',s.nmafas_tam);
  gotoxy(3,17); write('Harga Fasilitas       : ',s.hrgfas_tam);
  s.tot_bayar:= (s.hrg_sewa*s.lm_sewa)+(s.hrgfas_tam*s.lm_sewa);
  gotoxy(3,19); write('Total Biaya           : ',s.tot_bayar);
  gotoxy(3,23); write('Masukan data lagi Y/T ? '); readln(lagi);
 end;
end. 

Sekian artikel tentang Source Code Sewa Hotel dalam Pascal, semoga bermanfaat.