Percabangan if..else digunakan untuk pengujian sebuah kondisi. Jika
kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan
pernyataan-pernyataan tertentu. Jika kondisi yang diuji salah, program
akan menjalankan pernyataan yang lain.
Contoh :
Contoh :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Uses Crt; Var Nil1, Nil2 : Integer; NilRata : Real; Begin ClrScr; Write('Masukan Nilai 1 : '); ReadLn(Nil1); Write('Masukan Nilai 2 : '); ReadLn(Nil2); NilRata := (Nil1 + Nil2)/2; WriteLn('Nilai Rata-Rata = ', NilRata:5:2); IF NilRata >= 60 THEN WriteLn('Hasilnya = Lulus') ELSE WriteLn('Hasilnya = Gagal'); ReadLn; End. |