LOGIKA DAN PEMROGRAMAN (TUGAS 8)

PROGRAM HOTEL

FLOWCHART

 

CODING

uses crt;   

var nk,nata,jk,kk : string;

    Tk,li: longint;

    bk : 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;

    bk:=li*tk;

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

    writeln('Jenis kamar :',jk);

    writeln('Tarif kamar :',tk);

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

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


end.