Program Sederhana dengan Pernyataan Kendali If.

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

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