Question

Crează un program ( in turbo pascal) care va calcula aria unui triunghi arbitrar.

Answer 1

var a,b,c,sp,S:real;
begin
Writeln('Introduceti lungimilie laturilor:');
read(a,b,c);
sp:=(a+b+c)/2; //Semi perimetru
S:=sqrt(sp*(sp-a)*(sp-b)*(sp-c)); //Formula lui Heron
Writeln('Aria triunghiului: ',S:0:2,' cm^2');
end.