POGRAM MENGHITUNG LUAS BANGUN DATAR

Berikut adalah program untuk Menghitung Luas persegi panjang, segitiga, dan lingkaran.
dengan menggunkan procedure dan function, bentuk tampilan programnya seperti pada gambar disamping dimana kita disediahkan pilihan untuk memilih bangun datar apa yang akan dihitung luasnya.

listing programnya adalah sebagai berikut :
program hitung_luas;
uses crt;
const
    phi=3.14;
var panjang, lebar, alas, tinggi, r : integer;
    luas : real;
    pil : integer;
procedure TampilkanMenuPilihan;
begin
 writeln('Masukkan Pilihan ');
 writeln('====================');
 writeln(' 1. Persegi Panjang ');
 Writeln(' 2. Segitiga ');
 writeln(' 3. Lingkaran ');
 writeln(' 0. Exit ');
 writeln('=====================');
 write('Masukkan Pilihan Anda : ');
 readln(pil);

end;
Procedure InputData;
begin
 if pil = 1 then
 begin
 write('Masukkan Panjang : ');
 readln(panjang);
 write('Masukkan Lebar : ');
 readln(lebar);
 end;
 if pil = 2 then
 begin
 write('masukkan Alas : ');
 readln(alas);
 write('Masukkan Tinggi : ');
 readln(tinggi);
 end;
 if pil = 3 then
 begin
 write('Masukkan Jari - jari : ');
 readln(r);
 end;
end;
procedure TampilkanHasil;
begin
 writeln('luas = ',luas:10:2);
end;
function pp(panjang, lebar : integer) :real;
begin
 luas := panjang * lebar;
end;
function segitiga(alas, tinggi: integer): real;
begin
 luas := (0.5*alas) * tinggi;
end;
function lingkaran(phi, r : real):real;
begin
 luas := phi*r*r;
end;

begin
 clrscr;
 tampilkanmenupilihan;
 repeat
 inputdata;
 if pil = 1 then
  pp(panjang,lebar);
 if pil = 2 then
  segitiga(alas, tinggi);
 if pil = 3 then
  lingkaran(phi, r);
 tampilkanhasil;
 write('Masukkan Pilihan Anda : ');
 readln(pil);
 until pil = 0;
end.
tahnks