[Pascal] Struktur Kendali Aliran/Percabangan

Stuktur Kendali Aliran/Percabangan adalah Suatu bentuk atau struktur yang memiliki peranan khusus untuk mengatur aliran urutan pengerjaan operasi atau beberapa operasi tertentu. Digunakan untuk membuat program alur terkondisi.

1. Pernyataan If (If Statement)
Pernyataan if akan memeriksa suatu persyaratan dan menentukan apakah sayarat tersebut benar atau salah, kemudian akan melakukan pekerjaan sesuai dengan nilai pernyataan tersebut.

Berikut adalah bentuk-bentuk dari pernyataan IF yang sering digunakan :

1. If dengan suatu pernyataan (ststement)
   If (kondisi) then pernyataan; 
2. If dengan dua arah atau lebih pernyataan(statement)
   If (kondisi) then
   Begin
   Pernyataan1;
   Pernyataan2;
   …
   End;
   
3. If dan Else
   If (kondisi) then
   Begin
       Pernyataan1;
       Pernyataan2;
       …
   End;
   Else
   Begin
       Pernyataan1;
       Pernyataan2;
       ….
   End. 

Dari bentuk bentuk pernyataan if di atas yang harus diperhatikan adalah untuk pernyataan if dan else, pernyataan-pernyataan setelah then tanpa menggunakan “;”. Dengan kata lain jika pernyataan setelah then hanya terdiri dari satu pernyataan saja makan pernyataan tersebut tanpa menggunakan “;”, namun jika pernyataan setelah then terdiri dari lebih dari satu pernyataan makan setelah end tanpa menggunakan “;”.

Berikut contoh program sederhana untuk menghitung luas segitiga dan lingkaran. Yang mana perhitungan luas dua buah bangun tersebut digabung menjadi satu program, dan pemakai dapat memilih masalah mana yang akan dipecahkan. Sebagaimana diketahui untuk menghitung luas segitiga adalah dengan :
   L=1/2 . a . t
Dan luas lingkaran adalah dengan :
   L=? . r. r

Untuk lebih jelasnya salin program berikut :

Uses wincrt;
var
   alas, tinggi, jejari, luas: Real;
   pilih: Integer;
begin  
     Writeln('1. Segitiga 2. Lingkaran');
     Readln(pilih);
     if pilih = 1 then
        begin  
             Readln(alas, tinggi);
             luas := 1 / 2 * alas * tinggi;
             Writeln('Luas Segitiga : ', luas);
        end
     else  
        begin
            Readln(jejari);
            luas := pi * Sqr(jejari);
            Writeln('Luas Lingkaran : ', luas);
        end;  
     Readln;
end.

2. Pernyataan Case (Case Statement)
Pernyataan case (case statement) berisi ungkapan pemilih (selector) dan sederetan pernyataan yang masing-masing diawali dengan satu atau lebih tetapan (case constant) atau dengan kata kunci else. Semua tetapan case harus khas dan tipe berurutan yang digunakan harus sesuai dengan tipe pemilih.
Sama halnya dengan pernyataan if, pada pernyataan case jika pernyataan yang akan dijalankan lebih dari satu pernyataan maka sebelum pernyataan-pernyataan tersebut harus diawali dengan begin dan diakhiri dengan end.

Berikut bentuk pernyataan case :
case <peubah> of
tetapan1: pernyataan1;
tetapan2: begin
                    pernyataan1;
                    pernyataan2;
                    ...
end;
tetapan3, tetapan4  : pernyataan1;
tetapan5 .. tetapan8: pernyataan1;
else pernyataan1;
end; 

Dengan contoh program yang sama untuk versi penyataan case dapat dilihat pada program di bawah ini :

Uses wincrt;
var  
    alas, tinggi, jejari, luas: Real;
    pilih: Integer;
begin  
     Writeln('1. Segitiga 2. Lingkaran');
     Readln(pilih);
case pilih of
     1: begin  
           Readln(alas, tinggi);
           luas := 1 / 2 * alas * tinggi;
           Writeln('Luas Segitiga : ', luas);
        End;
     2: begin  
           Readln(jejari);
           luas := pi * Sqr(jejari);
           Writeln('Luas Lingkarang : ', luas);
     end;
     end;
     Readln;
end.

Sekian dulu postingan yang singkat ini, semoga bisa bermanfaat.

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiChhH1mt_1WPXjHlRH4GSmQU4YmtQxtO4gaOUe3k_-AcSJsoZml6HZwp6ivPZwEBtDt_ZpYOEyvvFClZ_03FmWQ7_Xvgr3v108oK8m_rIBCMS6EthkOo-IjgKpKfqhCMYlI2r5lGBGt6U/s72-c/Untitled.png

Advertisement