Selamat pagi. Bagaimana kabarnya?? Hari ini kita akan belajar tentang Percabangan dalam Pemprograman Pascal. Perlu anda ketahui, percabangan  merupakan suatu operator yang digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada.

Pada Pemprograman Pascal ada beberapa statemen yang dapat digunakan untuk menjalankan suatu percabangan, seperti struktur if-then, struktur if-then-else, struktur case-of, dan struktur case-of-else.

Nah untuk pengenalan, kita akan memulai belajar percabangan yang paling sederhana terlebih dahulu yaitu percabangan IF-THEN.

MENGENAL PERCABANGAN IF THEN DI PASCAL

Statemen IF-THEN digunakan untuk menyeleksi suatu kondisi, jika kondisi yang diseleksi terpenuhi, maka statement yang  mengikuti THEN akan diproses, sebaliknya bila kondisi tidak terpenuhi, maka yang akan diproses statement berikutnya.

Bentuk paling sederhana dari pernyataan  if  –  then adalah sebagai berikut :

if (a>b) then writeln(“A lebih besar dari B”);

Bagian setelah IF disebut dengan bagian kondisi dan bagian setelah then adalah bagian aksi. Jika aksi lebih dari satu instruksi maka bisa dikelompokkan dalam blok begin end. Seperti ini:

if (a>b) then
begin
writeln(“Kesimpulan:”);
writeln(“A lebih besar dari B”);
end;

Kondisi berperan sebagai penentu dari stuktur percabangan ini. Jika kondisi terpenuhi akan menghasilkan nilai benar dan kode program di dalam blok begin end akan dijalankan. Jika kondisi tidak terpenuhi maka blok begin end tidak akan dijalankan dan tidak terjadi apa-apa.

CONTOH PROGRAM PERCABANGAN IF-THEN DI PASCAL

Setelah kita mengenal dan memahami bentuk sederhana dari Pecabangan IF-THEN, maka kita selanjutnya akan membuat program sederhana dari Pecabangan IF-THEN tersebut.

program Hitung_poin;
uses crt;
var
nilai: integer;
begin
clrscr;
nilai := 71;
if (nilai > 70) then
begin
writeln('ANDA LULUS, DENGAN POIN ', nilai);
end;
readln;
end.

Pada awal kode program saya membuat sebuah variabel “nilai” dengan tipe data “integer”, kemudian variabel tersebut saya beri nilai 71. Pada program selanjutnya saya memeriksa sebuah kondisi menggunakan perintah IF THEN, kode if (nilai > 70) then yang mempunyai arti jika variabel “nilai” mempunyai nilai lebih besar dari 70 maka.

Kita lihat kembali pada variabel “nilai” yang sudah mempunyai nilai 71, kondisi tersebut akan menghasilkan nilai benar, karena 71 lebih besar dari 70. Maka blok begin dan end akan di jalankan.

Namun jika variabel “nilai” misalnya anda beri nilai 50, maka blok begin dan end tidak dapat di jalankan dan tidak terjadi apa-apa.

Mungkin itu saja materi perkenalannya tentang Percabangan Sederhana IF THEN di pascal, tetap belajar dan berlatih ya. Terima kasih