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.
