Question

Se consideră trei numere reale. Sa se scrie un program care determina dacă aceste numere reprezintă lungimile laturilor unui triunghi, și, in caz afirmativ, să se:
a) calculeze perimetrul triunghiului;
b) determine natura triunghiului (isoscel, echilateral, scalen).
*totul într-un singur program.

Answer 1

var a,b,c,P:real;
begin
read(a,b,c);
if (a+b<c) or (b+c<a) or (a+c<b) then writeln('Nu exista asa triunghi.') else
begin
P:=a+b+c;
if (a=b) and (a=c) then write('Triunghiul este echilateral.') else
if (a=b) or (b=c) or (a=c) then write('Triunghiul este isoscel.') else
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then 
write('Triunghiul este dreptunghic.') else 
write('Triunghiul este arbitrar.')
end;
writeln(' Perimetrul este: ',P);
end.