Bagaimana conditional function atau fungsi percabangan pada pascal

Dalam pascal terdapat dua perintah struktur pengambilan keputusan yaitu :

·         If condition Then statement;

·         Case conditional of statement;

Dimana condition adalah sesuatu yang bernilai True atau False, dan statement adalah perintah yang akan dijalankan.

1.       If .. Then .. Else

Fungsi If, Then, dan Else tidak dapat berdiri sendiri, mereka saling berkaitan satu sama lainnya.
If .. Then .. Else digunakan untuk pengujian statemen penyeleksian kondisi.Statemen penyeleksian kondisi menunjukkan bahwa suatu statemen akan dikerjakan bila suatu kondisi adalah benar. Jika kondisi salah satu syarat tidak terpenuhi maka statemen yang lainnya setelah kata cadangan Else akan dikerjakan atau diproses. Kata else tidak boleh diawali dengan titik koma (;) karena titik koma menunjukkan akhir dari statemen.

bentuk sintaksnya:

IF (kondisi) THEN

(nilai_jika_benar);

ELSE

(nilai_jika_salah);

Kondisi berisi 3 komponen -->    sesuatu yang dibandingkan OPERATOR nilai pembanding

OPERATOR  :  dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

Contoh Program :

program harry;

uses crt;

var jar, pilh, hsl : real;

begin

clrscr;

writeln('1.luas lingkaran 2.keliling lingkaran');

writeln;

write('pilih rumus [1-2] = '); readln(pilh);

writeln;

write('masukan jari-jari = '); readln(jar);

if pilh=1 then

hsl:=3.14*jar*jar

else

hsl:=2*3.14*jar;

write('hasil = ',hsl:8:2);

readln;

end.

2.       Case Of

case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.

Pernyataan CASE-OF biasanya dipakai pada permasalahan ganda. Karena pada pernyataan CASE-OF lebih jelas dan lebih mudah untuk dipahami serta lebih cepat pembuatannya daripada menggunakan pernyataan IF-THEN-ELSE.

Statemen CASE-OF digunakan untuk memilih jika terdapat lebih dari dua kondisi yang setiapnya memerlukan penanganan yang berbeda.

Statement yang mempunyai case label yang bernilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.

Pada struktur CASE-OF bila tidak ada kondisi yang terpenuhi berarti tidak ada statemen di dalam lingkungan CASE-OF yang diproses.

Bentuk struktur case of :

Case (Variabel Kondisi) Of

(Nilai label kondisi 1) : Statement 1;

(Nilai label kondisi 2) : Statement 2;

(Nilai label kondisi 3) : Statement 3;

contoh program:

 

program harry;

uses crt;

var a,b,c : integer;

begin

clrscr;

writeln('1.ayam goreng 2.rendang 3.ikan bakar 4.ulat sagu');

writeln;

write('pilih menu lauk yang anda inginkan [1-4] : '); readln(a);

writeln;

case a of

1:begin

  write('lauk anda hari ini adalah ayam goreng');

  end;

2:begin

  write('lauk anda hari ini adalah rendang');

  end;

3:begin

  write('lauk anda hari ini adalah ikan bakar');

  end;

4:begin

  Write('lauk anda hari ini adalah ulat sagu');

  end;

end;

readln;

end.