Warung Online

February 29, 2012

PROGRAM MENGHITUNG LUAS DAN KELILING SEGITIGA DENGAN PASCAL

program Menghitung_Luas_dan_Keliling_Segitiga;
uses crt;
var  luas, alas, tinggi, sisimiring, keliling : real;
begin
clrscr;
writeln('MENGHITUNG LUAS DAN KELILING SEGITIGA');
writeln;
write('Masukkan alas : '); readln(alas);
write('Masukkan tinggi : '); readln(tinggi);

luas:= 0.5*alas*tinggi;
sisimiring:=sqrt(sqr(alas)+sqr(tinggi));
keliling:= alas + tinggi + sisimiring;

writeln;
writeln('Luas segitiga : ', luas:0:2);
writeln('Keliling segitiga : ', keliling:0:2);
readln;
end.

Dalam program diatas, semua variabel bertipe real. 
sqrt berfungsi untuk mengakarkan dan sqr untuk mengkuadratkan.
Pada luas dan keliling terdapat :0:2, digunakan untuk membatasi angka dibelakang koma menjadi 2.