Penyeleksian Kondisi

Penyeleksian Kondisi
Pernyataan ini akan memeriksa suatu persyaratan dan menentukan apakah syarat tersebut benar atau salah, maka Pernyataan ini mengandung BOOLEAN.

a. Penyeksian kondisi dengan menggunakan struktur IF-THEN.

 IF (kondisi) THEN
        AKSI; 
    Contoh :
   
              if (x>0) then
         writeln('x bilangan positif')

 b. Penyeleksian Dua Kasus dengan menggunakan struktur IF-THEN-ELSE .

  IF (Kondisi) THEN
        Begin
           Aksi 1;
           Aksi 2;
           .............
        End; 
    Contoh : 
         if (x>0) then
         writeln('x bilangan positif');
         else
         writeln('x bukan bilangan positif');

Contoh Latihan :

program contoh_if_then;
uses crt;
var
   nilai :char;
   mhs: string;
   p: char;
begin
   clrscr;
   write('Masukan Nilai :');
   readln(nilai);

   if nilai = 'e'
      then ket := 'gagal'
      else if nilai = 'd' then 

         ket := 'gagal'
       else
          ket := 'lulus';
   writeln('keterangan: ',ket);
   readln
end. 

 c. Penyeleksian Tiga Kasus atau Lebih (Penyeleksian Tersarang/NESTED IF)
       IF dan ELSE
     
        IF (Kondisi) THEN
        Begin
           Aksi 1;
           Aksi 2;
           ............
        End;
        Else
        Begin
           Aksi 1;
           Aksi 2;
           ............
        End;

   

Contoh Latihan : 
        program konversi_dari_angka_ke_huruf;
        uses crt;
        var
        nilai:integer;
        begin
        clrscr;
        write ('masukkan nilai :');readln(nilai);
        if nilai > 21 then
           begin
        if (nilai>21) and (nilai<=40) then
           begin
           writeln('D') ;
           end;
        if (nilai>41) and (nilai<=60) then
           begin
           writeln('C')  ;
           end;
        if (nilai>61) and (nilai<=80) then
           begin
           writeln('B')   ;
           end;
        if (nilai>81) and (nilai<=100) then
           begin
           writeln('A')   ;
        end;      
        end
        else
           begin
           writeln('E');
        end;
        readln;
        end.