Posted by Materi Teknik Informatika • Informasi Teknologi Informasi • Digital Marketing on 4/20/2015
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.
