Percabangan Pascal

}  Digunakan utk pemilihan kondisi tertentu à tindakan yg akan dilakukan tergantung kondisi

}  Struktur percabangan dlm pascal:

}  Struktur if

}  Struktur case

}  Jk disertakan pernyataan yg harus dikerjakan jk ekspresi bernilai salah, mk digunakan else:

If ekspresi then pernyataan1

Else pernyataan2;

}  Jk ekspresi bernilai benar, mk pernyataan1 yg dikerjakan, jk ekspresi bernilai salah, mk pernyataan2 yg dikerjakan

}  Tdk boleh ada ; sebelum else

}  Jk alternatif lebih dr satu, mk dpt digunakan salah satu di antara:

}  If ekspresi1 then pernyataan1;

      If ekspresi2 then pernyataan2;

      If ekspresin then pernyataann;

}  If ekspresi1 then pernyataan1      

      else if ekspresi2 then pernyataan2

      else if ekspresin then pernyataann;

}  If ekspresi1 then pernyataan1

      else if ekspresi2 then pernyataan2

      else pernyataann;

}  Lihat contoh program berikut

uses wincrt;

var menu, bil1, bil2:byte;

begin

     writeln('Menu yang dapat dipilih:');

     writeln('1. Penjumlahan');

     writeln('2. Pengurangan');

     writeln('3. Perkalian');

     writeln('4. Pembagian');

     write('Masukkan pilihan angka(1-4):'); readln(menu);

     write('Bilangan 1:'); readln(bil1);

     write('Bilangan 2:'); readln(bil2);

     if (menu = 1) then writeln('Hasil penjumlahan: ', bil1+bil2)

     else if (menu = 2) then writeln('Hasil pengurangan: ', bil1-bil2)

     else if (menu = 3) then writeln('Hasil perkalian: ', bil1*bil2)

     else if (menu = 4) then writeln('Hasil pembagian: ', bil1/bil2:8:2)

     else writeln('Pilihan angka tidak tersedia');

end.