BLOGNGUIK

program meghitungLuas;
uses crt;
var pil: char;

function LuasSegitiga(al, tg: integer): real;
begin
LuasSegitiga:=1/2*al*tg;
end;

function LuasSegiempat(p, l: integer): integer;
begin
LuasSegiempat:=p*l;
end;
procedure biodata;
begin writeln('============================');
writeln('NAMA = Noor fitriana Hastuti');
writeln('NIM = M0508059');
writeln('============================');
end;
procedure inputLuasSegitiga;
var al, tg: integer;
begin
writeln;
writeln('MENCARI LUAS SEGITIGA');
writeln;
write('MASUKKAN ALAS : '); readln(al);
write('MASUKKAN TINGGI : '); readln(tg);
write('LUAS SEGITIGA : ',LuasSegitiga(al,tg):3:1);
end;
procedure inputLuasSegiempat;
var p, l: integer;
begin
writeln;
writeln('MENCARI LUAS SEGIEMPAT');
writeln;
write('MASUKKAN PANJANG : '); readln(p);
write('MASUKKAN LEBAR : '); readln(l);
writeln;
write('LUAS SEGIEMPAT : ',LuasSegiempat(p,l));
end;



{===program utama===}

begin repeat
clrscr;
biodata;
writeln('MENU');
writeln;
writeln('1. LUAS SEGITIGA');
writeln('2. LUAS SEGIEMPAT');
writeln('3. EXIT');
writeln;
write('PILIHAN ANDA: '); readln(pil);
until (pil='1') or (pil='2') or (pil='3');
case pil of
'1': inputLuasSegitiga;
'2': inputLuasSegiempat;
'3': begin
clrscr;
readln;
end;

end;
readln;
end.