Percabangan

Dalam bahasa pemograman khususnya pascal dikenal struktur percabangan yang menggunakan "if...then...else, case...of"

I. IF...Then...Else
Bentuk umum : IF kondisi  THEN { statement1 }
                                          ELSE { statement2 } Contoh kasus :  Sebuah aturan untuk menonton sebuah film tertentu adalah sebagai berikut, jika usia penonton lebih dari 17 tahun maka penonton diperbolehkan dan apabila kurang dari 17 tahun maka penonton tidak diperbolehkan nonton.  Buatlah dalam bahasa pascal untuk permasalahan tersebut dengan menggunakan IF...Then...Else.

Penyelesaian :  Permasalahan diatas merupakan ciri permasalahan yang menggunakan struktur percabangan.  Hal ini ditandai dengan adanya pernyataan  jika ..maka ...(atau If ... Then dalam Bahasa Inggris. )

uses crt;
var a : integer;
begin
  clrscr;
  write('Masukkan usia anda = '); 
  readln(a);
if a >= 17 then
begin
  write('Anda boleh masuk')
else
  write('Anda TIDAK BOLEH masuk');
end;
readkey;
end.



II. Case...Of  
Bentuk umum : CASE ungkapan Of
                        statement1  
                        statement2 
                        dst.

Contoh kasus :  Tampikan kalimat sesuai dengan kode kalimat, contoh : jika memasukkan angka 1 maka yang keluar "satu", jika memasukkan 2 maka yang keluar "dua", dst sampai 5.

Penyelesaian :

uses crt;
var a : integer;
begin
  clrscr;
  write('Masukkan angka pilihan anda anda 1 sampai 5 = ');
  readln(a);
Case a Of
1 : begin
       write('Satu');
        end;
2 : begin
       write('Dua');
        end;
3 : begin
       write('Tiga');
        end;
4 : begin
       write('Empat');
        end;
5: begin
      write('Lima');
       end;
readkey;
end.

case...of biasanya digunakan untuk percabangan yang lebih dari 2 pilihan

Posted in: RPL