Seputar laptop - Source Code Sewa Hotel dalam Pascal

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

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

Berikut ini source code sewa hotel memakai 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 wacana Source Code Sewa Hotel dalam Pascal, supaya bermanfaat.

Sumber http://www.materi-it.com/