Даны три стороны треугольника. Разработайте код, с помощью которого можно определить, является ли данный треугольник прямоугольным.(Pascal)

4 Окт 2019 в 15:45
248 +1
0
Ответы
1

program CheckRightTriangle;

var
side1, side2, side3: real;
maxSide, sumOfSquares: real;

begin
writeln′Enterthethreesidesofthetriangle:′'Enter the three sides of the triangle:'Enterthethreesidesofthetriangle:;
readlnside1,side2,side3side1, side2, side3side1,side2,side3;

// Найдем самую длинную сторону
if (side1 > side2) and (side1 > side3) then
maxSide := side1
else if (side2 > side1) and (side2 > side3) then
maxSide := side2
else
maxSide := side3;

// Проверим условие прямоугольности треугольника
if maxSide = side1 then
sumOfSquares := sqrside2side2side2 + sqrside3side3side3 else if maxSide = side2 then
sumOfSquares := sqrside1side1side1 + sqrside3side3side3 else
sumOfSquares := sqrside1side1side1 + sqrside2side2side2;

if sqrmaxSidemaxSidemaxSide = sumOfSquares then
writeln′Thetriangleisright−angled.′'The triangle is right-angled.'Thetriangleisrightangled. else
writeln′Thetriangleisnotright−angled.′'The triangle is not right-angled.'Thetriangleisnotrightangled.;

end.

19 Апр 2024 в 14:42
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир