Branching / Pengulangan (Dalam Bahasa Pascal)

Branching adalah sebuah percabangan. Dalam pemrograman branching digunakan untuk membuat percabangan proses, logika yang digunakan dalam branching adalah true (benar) dan false (salah), untuk mengambil keputusan menuju proses berikutnya dalam kondisi tertentu. Misalnya Indeks nilai mahasiswa STT-Bandung :
- untuk nilai > 90 Indeks nilainya 'A'
- untuk 90 > nilai > 80 Indeks nilainya 'AB'
- untuk 80 > nilai > 70 Indeks nilainya 'B'
- untuk 70 > nilai > 55 Indeks nilainya 'C'
- untuk nilai < 55 Indeks nilainya 'E'

Branching ini digunakan pada kondisi Boolean (True/False), dan akan dieksekusi jika kondisi yang dimasukkan sesuai.

Untuk menggunakan branching pada bahasa pascal kita bisa menggunakan :
- If Then
- If Then Else
- Case Of

IF THEN
If {Kondisi} Then {Pernyataan}

Dalam kasus ini, jika kondisi dari proses bernilai benar, maka proses akan di lanjutkan dan jika bernilai salah maka proses akan dihentikan atau tidak terjadi apa-apa (Kosong).

Contoh
Program Tanya_Umur;
var umur : integer;
Begin
write('Masukkan Umur Anda : '); readln(umur);
if umur = ' ' then writeln('Anda belum memasukkan umur anda!!');
readln;
end. 

IF THEN ELSE 
If {Kondisi} Then {Pernyataan} Else {Pernyataan}

Sebenarnya penggunaan IF THEN ELSE hampir sama dengan IF THEN, namun ketika bernilai salah program tetap akan melanjutkan proses, namun dengan pernyataan yang berbeda.

Contoh
Program Tanya_Umur;
var umur : integer;
Begin
write('Masukkan Umur Anda : '); readln(umur);
if umur = ' ' then writeln('Anda belum memasukkan umur anda!!')
else writeln('Umur Anda Adalah : ',umur);
readln;
end.


CASE OF
Case of digunakan untuk menyederhanakan penggunaan If Else yang bertingkat-tingkat menjadi lebih lebih ringkas.


Contoh
Program Nama_hari;
Var hari : integer;
begin
write('masukan nomor hari : '); readln(hari);
case hari of
1:writeln('Senin'); 2:writeln('Selasa');
3:writeln('Rabu'); 4:writeln('Kamis');
5:writeln('Jumat'); 6:writeln('Sabtu');
7:writeln('Minggu');
else
writeln('bukan bhari yang benar');
end;
readln;
end.