Pemilihan

Pemilihan merupakan blok kontrol yang digunakan untuk memilih statement atau aksi-aksi yang akan dilakukan, dimana pemilihan tersebut didasarkan atas nilai dari kondisi-kondisi (true or false) tertentu. Dalam bahasa Pascal, blok pemilihan dapat didefinisikan dengan dua cara, yaitu dengan menggunakan statement if atau case.

Untuk menyeleksi kondisi di dalam pascal, dapat menggunakan statement berikut.

a.       Logika IF

Pada prinsip dasarnya logika IF digunakan untuk membuat suatu kondisi dimana komputer diminta untuk mengambil sebuah keputusan yang sesuai dengan input yang dimasukkan. Beberapa  struktur dari logika IF adalah sebagai berikut :

Ø  Strktur  If  …. Then

Ø  Struktur  If  …. Then …. Else

Ø  Struktur IF Tersarang

b.      Logika CASE

Logika CASE hampir sama dengan logika IF, tapi pada dasarnya berbeda. Dikarenakan logika CASE tidak menginstruksikan komputer untuk mengambil sebuah keputusan, melainkan hanya menjalankan pilihan yang kita inputkan ke dalam program. Secara sederhana jika kita membuat sebuah progam CASE berarti kita membuat sebuah program pilihan. Dimana kita akan diminta memilih salah satu input dan komputer akan menjalankan program sesuai dengan input yang kita masukkan. Beberapa  struktur dari logika CASE adalah sebagai berikut :

Ø  Struktur Case – Of

Ø  Struktur  Case of –Else 

Contoh program :

Program bilangan_positif_negatif;

Uses crt;

Var x : integer;

Begin

Clrscr;

Read(x);

If x > 0 then write(‘bilangan positif’);

If x < 0 then write(‘bilangan negatif’);

If x = 0 then write(‘nol’);

Readkey;

End.

Kalkulator sederhana

Program kalkulator;

Uses crt;

Var

      Operand1,Operan2, hasil : real;

      Operator                : char;

Begin

Clrscr;

Write(‘masukan angka pertama :‘); readln(operand1);

Write(‘pilih operator : (+)/(-)/(*)/(/)); readln(operator);

Write(‘masukan angka kedua :‘); readln(operand2);

If (operator:=’+’) then

Begin

Hasil:=operand1+operand2;

End;

If (operator:=’-’) then

Begin

Hasil:=operand1-operand2;

End;

If (operator:=’*’) then

Begin

Hasil:=operand1*operand2;

End;

If (operator:=’/’) then

Begin

Hasil:=operand1/operand2;

End;

Write(‘hasilnya:’,(hasil):2:5);

Readkey;

End.