Menghitung Luas Dengan Pascal

1.     Menghitung luas persegi panjang

program luasperpanjang;

uses crt;

var lebar,panjang:integer;

luas:real;

begin

clrscr;

writeln('program luas persegi panjang');

writeln;

write('masukkan panjang(cm):');readln(panjang);

write('masukkan lebar(cm):');readln(lebar);

writeln;

luas:=panjang*lebar;

writeln('luas persegi panjang=',panjang,':x',lebar,'=',luas);

readln;

end.

2.     Menghitung keliling persegi panjang

program menghitung_keliling_persegi_p;

uses crt;

var keliling,p,l:integer;

begin

clrscr;

write('masukkan nilai panjang:');readln(p);

write('masukkan nilai lebar:');readln(l);

keliling:=2*(p*l);

writeln('nilai keliling persegi panjang=',keliling);

readln; 

end.                   

3.     Menghitung luas segitiga siku-siku

program menghitung_luas_segitiga_siku;

uses crt;

var l,a,t,g,q,h,i,j:real;

begin

clrscr;

writeln('rumus menghitung luas segitiga siku-siku');

writeln('================');

write('masukkan nilai kemiringan=');readln(g);

write('masukkan nilai alas=');readln(a);

q:=a/2;

h:=sqr(g);

i:=sqr(q);

j:=h-i;

t:=sqrt(i);

l:=(q*t)/2;

writeln('nilai setengah alas=',q:10:2);

writeln('nilai tinggi=',t:10:2);

writeln('hasil luas segitiga siku-siku=',l:10:2);

readln;

end.