Programalama > PASCAL

uses crt;
var
sec:integer;
procedure dikdortgenin_alani;
var
uzun,kisa:integer;
dik_alan:real;
begin
clrscr;
writeln('Uzun Kenari Giriniz');
readln(uzun);
writeln('Kisa Kenar Giriniz');
readln(kisa);
dik_alan:=(uzun*kisa);
Writeln('Dikd”rtgenin alan=',dik_alan:2:0);
end;
procedure daire_alan;
var
pi,r,daire_alan:integer;
begin
clrscr;
writeln('Pi Sayisini Giriniz');
readln(pi);
writeln('diger Sayiyi Girniniz');
readln(r);
daire_alan:=(pi*r*r);
writeln('Dairenin Alani=',daire_alan);
end;
procedure uc_alani;
var
taban,yukseklik,uc_alan:integer;
begin
clrscr;
writeln('Taban Uzunlugunu Giriniz');
readln(taban);
writeln('Yksekligi Giriniz');
readln(yukseklik);
uc_alan:=(taban*yukseklik);
writeln('šcgenin Alan=',uc_alan);
end;
begin
clrscr;
writeln('MENU');
writeln('=========================');
writeln('1.Dikd”tgenin Alani');
writeln('2.Dairenin Alani');
writeln('3.U‡genin Alan');
writeln('4.€ikis');
writeln('Se‡iminiz=');readln(sec);

if sec=1 then dikdortgenin_alani;
if sec=2 then daire_alan;
if sec=3 then uc_alani;
if sec=4 then exit;
readln;
end.