Mencari Bayar Sewa dan Bonus Hotel dengan Pascal

Sedikit belajar logika dengan mencari Bayar Sewa dan bonus yang didapat dari sewa hotel. Kode ini dapat di compile dengan lazarus, dengan cara buat aplikasi baru pilih aplikasi console. Kemudian hapus kode yang ada di lazarus, isi dengan kode di bawah ini.

program project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

var
LSewa:integer;
Nama,TKamar, bonus,pengunjung:string;
TS,Sewa,Pot,Diskon,JBayar:double;
begin
writeln(‘Nama Pengunjung:’);readln(pengunjung);
writeln(‘Kode Kamar :’);readln(Nama);

writeln(‘Lama Sewa :’);readln(LSewa);
//writeln(‘Jumlah suara Melon :’);readln(melon);
if Nama = ‘MST’ then TKamar:= ‘Standar’
else if Nama = ‘MVP’ then TKamar:= ‘VIP’
else if Nama = ‘MIP’ then TKamar:= ‘VVIP’;

if TKamar = ‘Standar’ then sewa:= 200000
else if TKamar = ‘VIP’ then sewa:= 300000
else if TKamar = ‘VVIP’ then sewa:= 500000;

TS:=LSewa * sewa;

if LSewa > 12 then diskon :=(10/100)
else if LSewa < 12 then diskon := (7.5/100)
else if LSewa < 7 then diskon := (5/100)
else if LSewa < 4 then diskon := (2.5/100);

Pot:=Diskon * Sewa;
JBayar:=TS-Pot;

if JBayar > 5000000 then bonus :=’Tas’
else if JBayar <= 5000000 then bonus := ‘Kaos’
else if JBayar <= 2500000 then bonus := ‘JamDinding’
else if JBayar <= 1000 then bonus := ‘Jam Tangan’;
WriteLn(‘Jadi, sewa yang harus dibayar sebesar :’);

WriteLn(JBayar);
WriteLn(‘Dan berhak mendapatkan bonus :’);
WriteLn(bonus);
readln;

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s