PENYELEKSIAN KONDISI

 Untuk menyeleksi suatu kondisi, di dalam bahasa pascal dapat dipergunakan statemen If dan Case.

 Statemen (pernyataan) If dapat dibagi menjadi tiga, yaitu:

1. Statemen If-Then (struktur keputusan satu kasus)
If < kondisi/ungkapan > Then
Contoh:
Program Kelulusan_Hasil_Ujian;
uses wincrt;
var
nilai:integer;
keterangan:string[25];
begin
Keterangan:='Selamat Anda Lulus !';
write('Nilai Mahasiswa = ');readln(nilai);
If Nilai<60 then keterangan:='Maaf Anda Belum Lulus !';
write(keterangan);
end.

Apabila program dijalankan akan menghasilkan tampilan sebagai berikut:
Nilai Mahasiswa = 89 (masukkan nilai mahasiswa, misal 89)
Selamat Anda Lulus !

Jika nilai yang dimasukkan kurang dari 60, maka statemen yang muncul adalah 'Maaf Anda Belum Lulus !'.


2. Statemen If-then…Else (Struktur keputusan multi kasus)

If Then Else
Contoh:
Program Kelulusan_Hasil_Ujian;
uses wincrt;
var a:integer;
begin
write('Nilai Mahasiswa = ');readln(a);
If a>60 then writeln('Selamat Anda Lulus!')
else writeln('Maaf Anda Tidak Lulus')
end.

Apabila program dijalankan akan menghasilkan tampilan sebagai berikut:
Nilai Mahasiswa =56 (masukkan nilai mahasiswa, misal 89)
Maaf Anda Tidak Lulus!

Jika nilai yang dimasukkan kurang dari 60, maka statemen yang muncul adalah 'Maaf Anda Tidak Lulus !'.

3. Statemen If bersarang (Nested): Bentuk statemen if yang mengandung pernyataan if yang lain.

If Then
Begin
If Then
Else
End.


Contoh:
Program Menu_Makanan;
uses wincrt;
var
x:integer;
menu:string;

begin
writeln('========================');
writeln('Menu Makanan Rumah Makan');
writeln('========================');
writeln('1. Nasi Goreng');
writeln('2. Mie Goreng');
writeln('3. Nasi Gudeg');
write('Pilih Menu Favoritmu! ');readln(x);
if x=1 then write ('>>Nasi Goreng = Rp 6.000,00') else
if x=2 then write ('>>Mie Goreng = Rp 5.000,00') else
if x=3 then write ('>>Nasi Gudeg = Rp 4.500,00') else
writeln ('Pilihan anda tidak ada dalam menu kami')
end.

Statemen case dapat dibagi menjadi dua, yaitu:
1. Statemen Case-Of
Struktur case-of mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Case of
Daftar case-label1:statemen1;
Daftar case-label2:statemen2;
Daftar case-labe3:statemen3;
.
.
.
Daftar case-labeln:statemenn;
End;

Contoh:
Program Hari;
uses wincrt;
var x:integer;
begin
writeln('NamaHari');
writeln('========================');
writeln('1. Minggu');
writeln('2. Senin');
writeln('3. Selasa');
writeln('4. Rabu');
writeln('5. Kamis');
writeln('6. Jumat');
writeln('7. Sabtu');
writeln('Pilih Hari!');readln(x);
case x of
1:begin
writeln('Minggu');
end;
2:begin
writeln('Senin');
end;
3:begin
writeln('Selasa');
end;
4:begin
writeln('Rabu');
end;
5:begin
writeln('Kamis');
end;
6:begin
writeln('Jumat');
end;
7:begin
writeln('Sabtu');
end;
end;
end.

2. Statemen Case-Of…Else
Statemen Case-Of…Else merupakan pengembangan dari struktur case of dan juga pengembangan dari standar Pascal. Dengan struktur Case-Of…Else, bila tidak ada kondisi yang terpenuhi, maka statemen yang akan diproses di dalam lingkunagn Case-Of adalah statemen yang ada di Else.
Contoh:
Program Menu_Makanan;
uses wincrt;
var x:integer;
menu:string;
a:char;
begin
writeln('Menu Minuman');
writeln('1. Jus Mangga');
writeln('2. Jus Strawbery');
writeln('3. Jus Alpukat');
writeln('Pilih Menu Favoritmu!');readln(x);
case x of
1: begin
writeln('>> Jus Mangga = Rp 3.000,00 <<');
end;
2: begin
writeln('>> Jus Strawbery = Rp 3.000,00 <<');
end;
3: begin
writeln('>> Jus Alpukat = Rp 4.000,00 <<');
end;
else writeln('Menu belum ada');
end;
end.