IF statements

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

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

1. If dengan satu pernyataan (statement)

               If (kondisi) then pernyataan ;
2. If dengan dua 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 “;”.

Contoh Program Sederhana If Statement

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 :

program P0201;
var
Modul 2 – Struktur Kendali Aliran 2-12
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 Segitiga : ', luas);
end;
Readln;
end.


Jalankan program tersebut. Pada program tersebut disajikan dua
macam pilihan kepada pemakai untuk menghitung luas segitiga atau
luas lingkaran. Peubah pilih digunakan untuk pemakai guna
menentukan pilihannya.

1311100062