If Bersarang

If Bersarang atau If Nested adalah adalah perintah If di dalam If. Jadi kondisi yang ada di dalam kondisi. Jika sudah tahu If Else, maka sangatlah mudah memahami struktur ini.

If (kondisi) Then

If (Kondisi) Then

(Pernyataan)

Else

(Pernyataan)

Else If (Kondisi) Then

(Pernyataan)

Else

(Pernyataan)

.

.

Berikut adalah contoh program sederhana menggunakan If Nested untuk mengurutkan 3 bilangan dari yang terkecil hingga yang besar.

Program Latihan; Uses Wincrt; Var A, B, C : Integer; Begin Writeln('Program Mengurutkan Bilangan'); Writeln('============================'); Writeln; Write('Masukkan Nilai A: '); readln(A); Write('Masukkan Nilai B: '); readln(B); Write('Masukkan Nilai C: '); readln(C); Writeln; If (A<=B) And (A<=C) Then If (B<=C) Then Writeln(A,' ',B,' ',C) Else Writeln(A,' ',C,' ',B) Else If (B<=A) And (B<=C) Then If (A<=C) Then Writeln(B,' ',A,' ',C) Else Writeln(B,' ',C,' ',A) Else If (C<=A) And (C<=B) Then If (A<=B) Then Writeln(C,' ',A,' ',B) Else Writeln(C,' ',B,' ',A) End.

Hasil Output