2. If dengan 2 atau lebih peryataan if (kondisi) then
Begin
Pernyataan1;
Pernyataan2;
End.
3. If dan Else If (kondisi) then
Begin
Pernyataan1;
Pernyataan2;
End.
Else
Begin
Pernyataan1;
Pernyataan2;
End;
Contoh soal :
Buat program sederhana dengan pernyataan if untuk menghitug luas dan keliling lingkaran.
Jawab :
Uses crt;
Var
Luas, jejari, keliling : Real;
Const phi=3.14;
Begin
Writeln (‘1. Luas Lingkaran 2. Keliling Lingkaran’);
Readln (pilih);
If pilih=1 then
Begin
Write (‘Masukan jejari = ‘);readln(jejari);
Luas :=phi*jejari*jejari;
Writeln (‘Luas Lingkaran : ‘,Luas);
End.