Построение и определение типа треугольников - 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.

Объяснение кода листинга программы

  1. Ввод длин отрезков a, b, c с помощью функции readln.
  2. Проверка условия для возможности построения треугольника с помощью оператора if.
  3. Если условие истинно, то выводится сообщение Из них можно составить треугольник.
  4. Вычисляются значения mx и mn, как наибольшего и наименьшего значения из a, b, c.
  5. Вычисляется значение sr как сумма a, b, c минус mx минус mn.
  6. Вычисляется значение d как сумма квадратов mn и sr.
  7. Вычисляется значение e как квадрат mx.
  8. Проверяется условие для определения типа треугольника: если d больше e, то треугольник остроугольный; если d меньше e, то треугольник тупоугольный; если d равно e, то треугольник прямоугольный.
  9. Выводится сообщение с определением типа треугольника.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы