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.
|
Tidak ada komentar:
Posting Komentar