Построение и определение типа треугольников - PascalABC.NET
Формулировка задачи:
Даны три отрезка с заданными длинами. Проверить можно ли создать из них тр-угольник и какого типа(тупо/остро -угольный, прям) если можно.
Решение задачи: «Построение и определение типа треугольников»
textual
Листинг программы
var a,b,c,d,e,mx,sr,mn:integer; begin writeln('Введите длины отрезков'); readln(a,b,c); if (a+b<=c)or(a+c<=b)or(b+c<=a) then writeln('Из них нельзя составить треугольник') else begin writeln('Из них можно составить треугольник'); if a>b then mx:=a else mx:=b; if c>mx then mx:=c; if a<b then mn:=a else mn:=b; if c<mn then mn:=c; sr:=a+b+c-mx-mn; d:=mn*mn+sr*sr; e:=mx*mx; if d>e then writeln('Он остроугольный') else if d<e then writeln('Он тупоугольный') else if d=e then writeln('Он прямоугольный'); end; end.
Объяснение кода листинга программы
- Ввод длин отрезков a, b, c с помощью функции readln.
- Проверка условия для возможности построения треугольника с помощью оператора if.
- Если условие истинно, то выводится сообщение
Из них можно составить треугольник
. - Вычисляются значения mx и mn, как наибольшего и наименьшего значения из a, b, c.
- Вычисляется значение sr как сумма a, b, c минус mx минус mn.
- Вычисляется значение d как сумма квадратов mn и sr.
- Вычисляется значение e как квадрат mx.
- Проверяется условие для определения типа треугольника: если d больше e, то треугольник остроугольный; если d меньше e, то треугольник тупоугольный; если d равно e, то треугольник прямоугольный.
- Выводится сообщение с определением типа треугольника.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д