Question

Известны 3 стороны треугольника. Они заданы целыми числами. Составить программу, которая определит:
А) Существует ли данный треугольник?
Б) Площадь треугольника по известной формуле Геррона
В) Является ли он прямоугольным?
Г) Является ли он равнобедренным?
Д) Является ли он равносторонним?
Определить 5 вспомогательных алгоритмов для ответов на данные вопросы.
Программу нужно составить в паскале!!!

Answer 1

Ответ:

не факт, что в коде нет ошибок, и не факт что написал то что тебе надо(я спешил) , но вот:

Объяснение:

uses crt;

var a,b,c,t,P:integer;

h,S:real;

begin

writeln('введите длины сторон треугольника abc ');

readln(a,b,c);

t:=0;

if (a+b>c) and (b+c>a) and (c+a>b) then

begin

writeln('такой треугольник существует!');

readln;

t:=t+1;

end

else

begin

writeln('такой треугольник НЕ существует!');

readln;

end;

if t=1 then

begin

if (a=b) and (a<>c) then

begin

writeln('Треугольник равнобедренный');

readln;

P:=a+b+c;

h:=sqrt(sqr(a)-sqr(c/2))

S:=0.5*h*c;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

if (a=c) and (a<>b) then

begin

writeln('Треугольник равнобедренный');

readln;

P:=a+b+c;

h:=sqrt(sqr(a)-sqr(b/2))

S:=0.5*h*b;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

if (b=c) and (b<>a) then

begin

writeln('Треугольник равнобедренный');

readln;

P:=a+b+c;

h:=sqrt(sqr(c)-sqr(a/2))

S:=0.5*h*a;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

if (a=b) and (a=c) then

begin

writeln('Треугольник равносторонний');

readln;

P:=a+b+c;

h:=(a*sqrt(3))/2;

S:=0.5*h*a;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

if (sqr(a)=sqr(b)+sqr(c)) then

begin

writeln('Треугольник прямоугольный');

readln;

P:=a+b+c;

S:=0.5*b*c;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

if (sqr(c)=sqr(b)+sqr(a))then

begin

writeln('Треугольник прямоугольный');

readln;

P:=a+b+c;

S:=0.5*b*a;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

if (sqr(b)=sqr(a)+sqr(c)) then

begin

writeln('Треугольник прямоугольный');

readln;

P:=a+b+c;

S:=0.5*a*c;

writeln('Периметр р\б треугольника=',P);

readln;

writeln('Площадь р\б треугольника=',S:0:1);

readln;

end;

end;

end.