PERCABANGAN pada PASCAL

Statement penyeleksian kondisi berguna untuk memeilih satu dari 2 atau
lebih kemungkinan yang ada. Dan jika statement penyelsian kondisi tersebut terdiri
dari 2 atau lebih penyataan, maka pernyataan tersebut harus berada diantara begin
dan end.

1. Bentuk Perintah If Tunggal
Bentuk paling sederhana pilihan tunggal adalah IF-THEN, yakni jika hanya ada
satu pilihan yang disediakan. Statement IF-THEN digunakan untuk menyeleksi
suatu kondisi, bila kondisi yang diseleksi terpenuhi, maka statement yang mengikuti
THEN akan diproses. Sebaliknya bila kondisi tidak terpenuhi, maka yang akan
diproses adalah statement berikutnya. Bentuk umum statemen kendali IF untuk
pilihan tunggal
IF kondisi THEN

contoh:

Program Suhu1; USES Crt; VAR Suhu : Real; BEGIN ClrScr; Write (‘Suhu Tubuh : ‘); Readln (Suhu); IF Suhu > 37 THEN WriteLn(‘Suhu Tinggi !’); WriteLn(‘Selesai’); END.

2. Bentuk Perintah If Ganda
Bentuk yang digunakan adalah IF pilihan ganda, yakni dengan memilih salah
satu dari 2 alternatif yang disediakan. Bentuk umum :
IF kondisi THEN
Statemen1
ELSE
Statemen2.

contoh:

Program kata; uses crt; var i : integer; begin clrscr; write('Masukkan bilangan yang akan diuji : ');readln(i); if bil = 0 then begin write(‘Pernyataan Anda benar’); write(‘Silahkan diteruskan’); end else begin write(‘Pernyataan Anda salah’); write(‘Silahkan keluar); end; end.

3. Bentuk Perintah If Bertingkat
Bentuk statemen IF bertingkat merupakan variasi statemen IF yang lengkap.
Dalam pengambilan keputusan disediakan lebih dari 2 alternatif. Bentuk umum
statemen kendali IF bertingkat :
IF kondisi THEN
Statemen1
ELSE IF kondisi2 THEN
Statemen2
ELSE
Statemen berikutnya

contoh :

Program konversi; uses crt; var nilai : integer; Huruf : string; begin clrscr; write('Masukkan nilai yang akan diuji : ');readln(nilai); if nilai > = 90 then huruf :='A' else if nilai >= 80 then huruf:='B' else if nilai >=70 then huruf := ‘C’ else if nilai >=60 then huruf := ‘D’ else huruf := ‘E’; write('nilai huruf : ',huruf) end.

contoh output