Struktur IF Tersarang

Share On :

Tweet

Struktur IF TERSARANG merupakan bentuk dari suatu statemen IF yang berada dalam lingkungan statemen if lainnya.

Contoh program:

uses wincrt;
var
bil:Integer;
Begin
write(‘Masukkan sebuah bilangan:’);
readln(bil);
If (bil>0) then
Begin
writeln(‘Bilangan positif’);
If (bil mod 2=0) then
writeln (‘Bilangan genap’)
Else
writeln (‘Bilangan ganjil’);
End
Else
Begin
writeln (‘Bilangan negatif’);
End;
End.

Hasil eksekusi dari program adalah:

Masukkan sebuah bilangan: 4
Bilangan positif
Bilangan genap