Contoh Program Pascal Menentukan Harga Hotel

CONTOH PROGRAM PASCAL PERHITUNGAN BIAYA HOTEL

Kali ini saya akan kasih contoh program pascal, emang jadul sih siapa sih yang pake pascal sekarang ini tapi buat yang kuliah di unindra pasti nyari bgt nih contoh program pascal,

Ini adalah contoh program untuk biaya hotel,


uses crt;

type
pointer=^hotel;
hotel=record
kelas,lamamenginap:byte;
namatamu:string;
uang:longint;

end;
var

h:hotel;
p:pointer;
hr:array[1..3] of longint;
total,kembali:real;
disc:real;

begin
hr[1]:=3000000;
hr[2]:=2000000;
hr[3]:=1000000;

clrscr;

with p^ do

begin

writeln('====== HOTEL BINTANG LIMA ======');
write('masukan nama tamu:');
readln(h.namatamu);
writeln('silahkan pilih kelas kamar');
writeln('==========================');
writeln('1.VVIP Room');
writeln('2.VIP Room');
writeln('3.Suite Room');
writeln('===========================');
readln(h.kelas);
write('berapa lama anda menginap:');
readln(h.lamamenginap);
if h.lamamenginap > 10 then begin disc :=10/100;
writeln ('disc = 10%');
end;
case h.kelas of

1:total:= hr[1]*h.lamamenginap-disc;
2:total:= hr[2]*h.lamamenginap-disc;
3:total:= hr[3]*h.lamamenginap-disc;

end;

writeln('======================');
writeln('total        =Rp.',total:0:2);
writeln('======================');

writeln('masukan jumlah pembayaran:');
readln(h.uang);
kembali:=h.uang-total;
writeln('kembalian =Rp.',kembali:0:2);
writeln('TERIMA KASIH');
end;

readln;


end.