Вопрос задан 16.06.2023 в 06:28. Предмет Информатика. Спрашивает Шетилова Яна.

. Написать программу, которая определяет вид треугольника (прямоугольный, остроугольный,

тупоугольный) по введенный с клавиатуры длинам сторон треугольника, либо выдать сообщение «Треугольника с введенными сторонами не существует!».
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Югрин Даниил.

type

 tr = record

   a,b,c:real;

   end;

var

 i:integer;

 s:real;

 x: tr;

procedure vvod(var n:tr);

 var

   flagtr:boolean;

 begin

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

   repeat

     readln(n.a,n.b,n.c);

     if (n.a+n.b<n.c) or (n.b+n.c<n.a) or (n.a+n.c<n.b)

     or (n.a<0) or (n.b<0) or (n.c<0) then

       begin

         flagtr:=false;

         write('Треугольник не может существовать. Повторите ввод: ');

       end

         else

           flagtr:=true;

   until flagtr=true;        

 end;

begin

 repeat

 writeln('1: Ввести треугольник');

 writeln('2: Выход');

 write('Выберите действие: '); readln(i);

 case i of

   1: begin

       vvod(x);

       with x do

         begin

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

             begin

               s:=c;

               c:=a;

               a:=s;

             end

           else

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

               begin

                 s:=c;

                 c:=b;

                 b:=s;

               end;

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

             writeln('Это тупоугольный треугольник')

           else

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

               writeln('Это остроугольный треугольник')

             else

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

         end;

       writeln;

      end;

   2: i:=0;

 end;

 until i=0;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно! Вот пример программы на языке Python, которая определит вид треугольника на основе введенных с клавиатуры длин сторон:

python
def classify_triangle(a, b, c): if a + b <= c or a + c <= b or b + c <= a: return "Треугольника с введенными сторонами не существует!" if a**2 + b**2 == c**2 or a**2 + c**2 == b**2 or b**2 + c**2 == a**2: return "Прямоугольный треугольник" elif a**2 + b**2 < c**2 or a**2 + c**2 < b**2 or b**2 + c**2 < a**2: return "Тупоугольный треугольник" else: return "Остроугольный треугольник" # Ввод длин сторон треугольника с клавиатуры a = float(input("Введите длину первой стороны треугольника: ")) b = float(input("Введите длину второй стороны треугольника: ")) c = float(input("Введите длину третьей стороны треугольника: ")) # Определение вида треугольника result = classify_triangle(a, b, c) # Вывод результата print(result)

При запуске программы она попросит ввести длины трех сторон треугольника с клавиатуры, а затем выдаст результат - вид треугольника или сообщение о невозможности существования треугольника с введенными сторонами.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос