Seleksi Kondisi

Dalam bahasa Pascal, seleksi kondisi dapat dilakukan dengan 2 cara, yaitu menggunakan kata cadangan: "If .. then" dan Case .. of".

Kegunaan :
- If .. then biasa digunakan untuk melakukan seleksi kondisi dengan 1 atau 2 pilihan.
- Case .. of biasa digunakan bila akan melakukan seleksi kondisi terhadap beberapa pilihan sekaligus (lebih dari 2 pilihan).
- Bukan berarti kata cadangan If .. then tidak dapat digunakan untuk melakukan seleksi kondisi terhadap lebih dari 2 pilihan, tetapi menggunakan Case .. of akan lebih efisien bila menghadapi seleksi kondisi untuk lebih dari 2 pilihan.
- Baik dalam If .. then maupun Case .. of, suatu aksi hanya akan dijalankan apabila kondisi penentunya tercapai (bernilai true), dan tidak akan dijalankan apabila kondisi penentunya tidak tercapai (bernilai false).
- Bila terdapat alternatif pilihan aksi dan kondisinya sesuai, maka aksi tersebut akan dijalankan. Bila tidak terdapat kondisi yang sesuai sama sekali, maka tidak satupun pilihan aksi yang akan dijalankan. Terkadang diperlukan adanya pilihan aksi terakhir apabila tidak satupun kondisinya terpenuhi.

Kata cadangan yang digunakan
• Program :spesifikasi nama program dan parameternya, bersifat dekoratif dan tidak terlalu mempengaruhi keseluruhan program itu sendiri
• Uses :mendefinisikan nama unit yang akan direferensi oleh program
• Var :menghubungkan sebuah identifier dan tipenya dengan suatu lokasi di memori dimana nilai-nilai dari tipe tersebut dapat disimpan
• Begin :memulai suatu blok program
• End :mengakhiri suatu blok program
• If :menyebutkan kondisi untuk suatu statemen agar dapat dieksekusi
• Then :menyebutkan statemen aksi yang harus dijalankan saat kondisi terpenuhi
• Else :menyebutkan statemen aksi yang dapat dieksekusi saat statemen aksi lain tidak dieksekusi karena kondisinya tidak terpenuhi
• Case :menyebutkan statemen ekspresi yang akan mencari kondisi yang sesuai berdasarkan pilihan statemen kondisi yang tersedia
• Of :kata cadangan yang digunakan bersama Case untuk menyebutkan pilihan kondisi yang sesuai serta aksi yang akan dijalankan apabila suatu kondisi terpilih
• Or :operator logika yang dapat digunakan untuk membantu seleksi kondisi

Prosedur yang digunakan
• Write :menuliskan suatu variabel ke dalam sebuah komponen file, dalam file teks digunakan untuk menuliskan satu nilai atau lebih ke suatu file
• Writeln :mengeksekusi prosedur write, kemudian mengeluarkan sebuah penanda end-of-line (EOL) ke file program
• Read :membaca suatu komponen file menjadi suatu variabel, dalam file teks digunakan untuk membaca satu nilai atau lebih menjadi satu atau lebih variabel
• Readln :mengeksekusi prosedur read, kemudian bergerak ke baris berikutnya dalam file program

Contoh Program

- Contoh pertama Menggunakan If ... Then .. Else..
Program bilangan;
Uses wincrt;
Var
a, b, c, max : integer;
Begin
Writeln ('Masukkan 3 bilangan: ');
Readln (a,b,c);
Writeln;
If a > b then
if a > c then
max := a
else
max := c
else
if b > c then
max := b
else
max := c;
Writeln ('Bilangan terbesar: ',max);
End.

- contoh program dengan menggunakan Case.. Of..

Program penilaian;
Uses wincrt;
Var
Masukan : real;
nilai : integer;
huruf : char;
ket : string;
Begin
Write ('Tuliskan nilai berbentuk angka: ');
Readln (Masukan);
nilai := (round(Masukan));
Case nilai of
81 .. 100:
Begin
huruf := 'A';
ket := 'Istimewa';
End;
61 .. 80:
Begin
huruf := 'B';
ket := 'Baik';
End;
41 .. 60:
Begin
huruf := 'C';
ket := 'Cukup';
End;
21 .. 40:
Begin
huruf := 'D';
ket := 'Kurang';
End;
0 .. 20:
Begin
huruf := 'E';
ket := 'GAGAL';
End
Else
Begin
huruf := '?';
ket := 'tidak ada (salah masukan angka)';
End;
End;
Writeln ('Nilai anda: ',huruf);
Writeln ('Tingkatan: ',ket);
End.