Program Pascal Luas dan Keliling

uses wincrt;
var luas,hasil:real;
i,pil,p,t,l,a:integer;
procedure kel_persegi;
begin
clrscr;
writeln('Keliling Persegi');


writeln('sisi = ');
write ('Hasil= ');
gotoxy(7,2);readln(p);
hasil:=4*p;
gotoxy(7,3);write(hasil:4:2);

readln;
end;


procedure Kel_perpan;
begin
clrscr;
writeln('Keliling Persegi Panjang');


writeln('panjang = ');
writeln('lebar   = ');
write  ('Hasil   = ');gotoxy(11,2);readln(p);
gotoxy(11,3);readln(l);
hasil:=2*(p+l);
gotoxy(11,4);write(hasil:4:2);  readln;
end;
procedure Kel_segitiga;
begin
clrscr;
writeln('Keliling Segitiga');


writeln('tinggi      = ');
writeln('alas        = ');
writeln('sisi miring = ');
write  ('Hasil       = ');
gotoxy(15,2);readln(p);
gotoxy(15,3);readln(l);
gotoxy(15,4);readln(t);
hasil:=p+l+t;
gotoxy(15,5);write(hasil:4:2);  readln;
end;


procedure luas_persegi;
begin
clrscr;
writeln('Luas Persegi');


writeln('sisi = ');
write ('Hasil= ');
gotoxy(7,2);readln(p);
hasil:=p*p;
gotoxy(7,3);write(hasil:4:2);
readln;
end;
procedure luas_perpan;
begin
clrscr;
writeln('Luas Persegi Panjang');


writeln('panjang = ');
writeln('lebar   = ');
write  ('Hasil   = ');gotoxy(11,2);readln(p);
gotoxy(11,3);readln(l);
hasil:=p*l;
gotoxy(11,4);write(hasil:4:2);  readln;


end;


procedure luas_segitiga;
begin
clrscr;
writeln('Luas Segitiga');


writeln('tinggi      = ');
writeln('alas        = ');
write  ('Hasil       = ');
gotoxy(15,2);readln(t);
gotoxy(15,3);readln(a);
hasil:=1/2*(a*t);
gotoxy(15,4);write(hasil:4:2);  readln;
end;


begin
repeat
clrscr;
writeln('Penghitung Luas dan Keliling');
WRITELN('[1]Keliling Persegi');
WRITELN('[2]Keliling Persegi Panjang');
WRITELN('[3]Keliling Segitiga');
WRITELN('[4]Luas Persegi');
WRITELN('[5]Luas Persegi Panjang');
WRITELN('[6]Luas Segitiga');
WRITELN('[7]Keluar');
WRITE('Masukan Pilihan Anda = ');READLN(PIL);
if pil=1 then kel_persegi
else if pil=2 then kel_perpan
else if pil=3 then kel_segitiga
else if pil=4 then luas_persegi
else if pil=5 then luas_perpan
else if pil=6 then luas_segitiga
else if pil=7 then exit;
until pil=7;
readln;
end.


Semoga bermanfaat  :)

nb  : kalau pakai pascal 6 atau pascal 7, 'uses wincrt' diganti dengan 'uses crt'
       uses wincrt kusus digunakan untuk pascal for window (TPW)