LOGIKA DAN PEMROGRAMAN (TUGAS 9)

PROGRAM HOTEL 2

FLOWCHART

CODING

uses crt;

var nk,nata,jk,kk,bns : string;

    Tk,li: longint;

    bk,pot,tot: real;

begin

    writeln('Program hotel');

    writeln('======================');

    write('No kamar :'); readln(nk);

    write('Nama Tamu :'); readln(nata);

    write('Kode kamar :'); readln(kk);

    write('Lama inap :'); readln(li);

    if kk='k1' then

    begin

      jk:='Executive';

      tk:=1000000;

    end

    else

    if kk='k2' then

    begin

      jk:='President';

      tk:=850000;

    end

    else

    if kk='k3' then

    begin

      jk:='Bisnis';

      tk:=500000

    end

    else

    if kk='k4' then

    begin

      jk:='Deluxe';

      tk:=250000

    end

    else

    begin

      jk:='Ekonomi';

      tk:=150000;

    end;

    if li = 1 then

      li:=2

    else

      li:=li;

    bk:=li*tk;

    if (li > 3) and
(jk='Executive') then

      pot:=bk*0.25

    else

      pot:=bk*0.5;

    if (kk='k1') or (kk='k2') then

      bns:='Jam tangan'

    else

    if (kk='k3') or (kk='k4') then

      bns:='Gantungan kunci'

    else

       bns:='pulpen cantik';

    tot:=bk-pot;
    writeln('======================');

    writeln('Jenis kamar : ',jk);

    writeln('Tarif kamar : ',tk);

    writeln('Biaya kamar : ',bk:0:0);

    writeln('Potongan : ',pot:0:0);

    writeln('Bonus : ',bns);

    writeln('Total Biaya : ',tot:0:0);
   
    writeln('======================');


end.