Kamis, 12 April 2012

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

Tidak ada komentar:

Poskan Komentar

Diberdayakan oleh Blogger.

Out Sponsor