Question

даны три произвольных числа a, b, c. Определите можно ли построить треугольник со сторонами a, b, c. Если можно, определите вид треугольника(равнобедренный, равносторонний, прямоугольный, произвольный). Составить программу на языке паскаль

Answer 1

Ответ:

pascal

Объяснение:

var

 a, b, c: real;

 rel: boolean;

begin

 Write('Введите стороны треугольника через пробел: ');

 ReadLn(a, b, c);

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

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

     begin

       WriteLn('Треугольник с указанными сторонами существует.');

       if (a + b + c) / 3 = a then

         begin

           WriteLn('Треугольник является равносторонним.');

           rel := true;

         end

         else if ((a + b) / 2 = a) or ((b + c) / 2 = b) or ((a + c) / 2 = a) then

         begin  

           WriteLn('Треугольник является равнобедренным.');

           rel := true;

         end;

       if (a*a + b*b = c*c) or (a*a + c*c = b*b) or (b*b + c*c = a*a) then

         begin

           WriteLn('Треугольник является прямоугольным.');      

           rel := true;

         end;

       if not(rel) then WriteLn('Треугольник является произвольным.');

    end

   else

      WriteLn('Треугольник с указанными сторонами не существует.');

end.

Answer 2

Конечно, вот программа на языке Pascal, которая позволит вам определить, можно ли построить треугольник по заданным сторонам a, b и c, и если можно, то какой это треугольник (равнобедренный, равносторонний, прямоугольный или произвольный):

pascalCopy code
program TriangleType;

var
  a, b, c: real;

begin
  // Вводим длины сторон треугольника
  writeln('Введите длину стороны a:');
  readln(a);
  writeln('Введите длину стороны b:');
  readln(b);
  writeln('Введите длину стороны c:');
  readln(c);

  // Проверяем условие существования треугольника
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    // Определяем вид треугольника
    if (a = b) and (b = c) then
      writeln('Треугольник равносторонний')
    else if (a = b) or (b = c) or (a = c) then
      writeln('Треугольник равнобедренный')
    else if (a*a + b*b = c*c) or (a*a + c*c = b*b) or (b*b + c*c = a*a) then
      writeln('Треугольник прямоугольный')
    else
      writeln('Треугольник произвольный');
  end
  else
    writeln('Треугольник невозможно построить');
end.

Эта программа сначала запрашивает у пользователя длины сторон a, b и c. Затем она проверяет условие существования треугольника (сумма двух любых сторон должна быть больше третьей стороны). Если условие выполняется, программа определяет вид треугольника (равнобедренный, равносторонний, прямоугольный или произвольный) и выводит соответствующее сообщение. Если условие существования треугольника не выполняется, программа сообщает, что треугольник невозможно построить.