ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программуЕсть задача :Проверьте можно ли построить...

Question

ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программу

Есть задача :Проверьте можно ли построить треугольник из отрезков с длинами сторон x, y и z, и, если можно, то является ли он тупоугольным
Вот примерная программа
var a,b,c: real;
BEGIN
writeln('Введите значения a,b,c');
readln(a,b,c);
if (a+b <=c) or (b+c <= a) or (c+a <= b) then writeln('Треугольника с такими сторонами не существует! ') </span>
else begin
if (sqr(a)+sqr(b)sqr(a))and(sqr(c)+sqr(a)>sqr(b)) then writeln('Треугольник остроугольный')
else if (sqr(a)+sqr(b)=sqr(c))and(sqr(b)+sqr(c)=sqr(a))and(sqr(c)+sqr(a)=sqr(b)) then writeln('Треугольник прямоугольный')
else writeln('Треугольник тупоугольный');
end;
END.
но мне нужна именно формула ТУПОУГОЛЬНОГО треугольника, помогите вывести ее пожалуйста!

Comments

Всё ровно это не то

---

а^2>b^2+c^2 or b^2>c^2+a^2 и бла бла бла.. то

---

тебе программу всю написать на треугольность?

---

Проверьте можно ли построить треугольник из отрезков с длинами сторон x, y и z, и, если можно, то является ли он тупоугольным

---

мне нужны 2 условия

---

но ли его вообще построить

---

тут из за двух баллотрясов не могу ответ написать, места все заняты

---

можно ли его вообще построить и является ли он тупоугольным

---

то что его можно построить или нет я сделала

---

нужна только формула тупоугольности

Answer 1

Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.

Comments

Коряво правда,но спасибо)