Contoh Penggunaan If dalam Program Turbo Pascal

  Program  Sewa Sepeda

 Listing Program

program sewa_sepeda;

uses wincrt;

var

    nama:string;

    harga:real;

    jam:real;

    ket3:string;

begin

clrscr;

harga:=5000;

ket3:='data salah';

writeln('Harga Sewa Sepeda /jam = Rp. 5000');

write('Nama Penyewa : ');

readln(nama);

write('Jumlah Jam : ');

readln(jam);

    if (jam<=1)then

        begin

        harga :=harga;

        writeln(' Jumlah Bayar :Rp. ',harga:2:2);

        end

    else if (jam=2)then

        begin

        harga:=harga*2;

        writeln(' Jumlah Bayar  :Rp. ',harga:2:2);

        end

    else if (jam=3)then

        begin

        harga:=harga*3;

        writeln(' Jumlah Bayar  :Rp. ',harga:2:2);

        end

    else if (jam=4)then

        begin

        harga:=harga*4;

        writeln(' Jumlah Bayar  :Rp. ',harga:2:2);

        end

    else if (jam=5)then

        begin

        harga:=harga*5;

        writeln(' Jumlah Bayar  :Rp. ',harga:2:2);

        end

    else

        begin

        writeln('TIDAK BOLEH LEBIH DARI 5 JAM');

        end;

    end.

 Output Program