Pascal:Billing Hotel Sederhana

2:06 PM

Selamat siang kawan-kawan, pada hari ini, detik ini gw pengen berbagi sedikit pengetahuan, yaitu tentang bagaimana cara buat aplikasi biling hotel sederhana, mungkin ini adalah aplikasi yang amat sangat sederhana.

Jadi, pada aplikasi ini kita hanya menginputkan lama inap di hotel tersebut, dan apa bila dia telah menginap lebih dari 4 hari akan mendapatkan discount 5%, setiap kamar apabila di inap 1 hari biayanya itu adalah 75.000.

Lansung sajalah, inilah codingnya.

Coding:
Uses Wincrt;
Var a,b,c:Integer;
H:Real;

Begin
writeln('===============================');
writeln(' HOTEL TEMPAT INAP ');
writeln('===============================');
writeln;
Write('Lama Inap (hari) = ');Read(a);
if a<5 then
H:=a*75.000
else
H:=a*71.250;
writeln('harga = Rp ',H:2:3);
writeln;
if a>4 then
write('anda mendapat potongan 5%');
end.


*71.250 di atas itu adalah 5% dari 75.000

OK, bagaiman dengan hasilnya?.
mungkin, segitu saja dulu source code yang gw bagi.

Semoga bermanfaat.

Salam blogger.

0 comments