1.program
menggunakan procedure
program
lat;
uses
wincrt;
procedure
segitiga;
var
l:real;
a,t:real;
begin
write('Alas
: ');readln(a);
write('Tinggi : ');readln(t);
l:=a*t/2;
writeln('Luas = ',l:2:2);
end;
procedure
p_panjang;
var
luas:real;
p,l:real;
begin
write('Panjang : ');readln(p);
write('Lebar
: ');readln(l);
luas:=p*l;
writeln('Luas
= ',luas:2:2);
end;
procedure
persegi;
var
l:real;
p:real;
begin
write('Sisi : ');readln(p);
l:=p*p;
write('Luas
= ',l:2:2);
end;
procedure
lingkaran;
var
luas:real;
r:real;
begin
write('Jari-jari : ');readln(r);
luas:=3.14*r*r;
write('Luas = ',luas:2:2);
end;
var
pilih:byte;
lagi :char;
begin
repeat
clrscr;
writeln(' MENU UTAMA ');
writeln('---------------------------------');
writeln(' 1.Hitung Luas Segiiga ');
writeln(' 2.Hitung Luas Persegi Panjang ');
writeln(' 3.Hitung Luas Persegi ');
writeln(' 4.Hitung Luas Lingkaran ');
writeln('---------------------------------');
write('Masukan Nomor Pilihan(1-2-3-4) : ');readln(pilih);
case
pilih of
1:Segitiga;
2:p_panjang;
3:persegi;
4:lingkaran;
end;
write('Menghitung
lagi???(Y/N) : ');readln(lagi);
until
upcase(lagi)<>'Y';
end.
2.output
