If ...... then .... else

Perintah if then else adalah perintah untuk melakukan perbandingan.

Contoh:

Uses crt;

Var nama:string;

Begin

Clrscr;

Write(‘Ketik Nama anda: ‘);readln(nama);

If nama=’’ then (‘Masukan nama terlebih dahulu’);

End.

Contoh:

Uses crt;

Var umur:byte;

Begin

Clrscr;

Write(Ketik umur Anda: ‘);readln(umur);

Writeln(‘umur yang anda masukan: ‘,umur);

If umur in [0..16] then

Begin

Writeln(‘termasuk golongan remaja’);

End

Else

Begin

Writeln(‘termasuk golongan dewasa’);

End;

Readln;

End.

Kembali ke Contoh Program Turbo Pacal