Pemrograman Pascal Menentukan Tarif Hotel

 Membuat Program Pascal Menentukan Tarif Hotel berdasarkan kelas kamar

Kali ini ane akan menshare Pemrograman Pascal Untuk Menentukan Tarif Hotel berdasarkan Kelas Kamar dan berapa hari ente menginap di hotel

Contoh Programnya:

Program tarif_hotel;

uses crt;

var

        kk:string;

        trif,lanap:real;

begin

        clrscr;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

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

        writeln('>>> Program Tarif Hotel <<<');

        write('Jenis Kelas Kamar : ');

        readln(kk);

        write('Lama menginap (dalam hari) :');

        readln(lanap);

        kk:=Upcase(kk);

        if kk='EKSEKUTIF' then

        begin

                if lanap < 3 then trif:=1200000

                else trif:=1000000

                end

                else if kk='STANDARD' then

                begin

                if lanap < 3 then trif:=450000

                else trif:=350000

                end

                else

                writeln('Kelas Kamar Salah.Kelas yang dipilih:',kk);

                writeln('Total tarif yang harus dibayar Rp.',trif*lanap:9:0);

                readln;

        end.

Hasil: