Question

Напишите программу, которая о трех числа решает могут ли они быть сторонами прямоугольного треугольника. Напишите программу так чтобы любое число могло быть гипотенузой. паскаль

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqInteger('Введите стороны прямоугольника',3).Sorted.ToArray;
  if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Могут')
  else Writeln('Не могут')
end.

Answer 2

Для написания программы на языке Pascal, которая проверяет, могут ли три числа быть сторонами прямоугольного треугольника, вам потребуется использовать теорему Пифагора. Тройка чисел будет образовывать прямоугольный треугольник, если сумма квадратов двух меньших чисел будет равна квадрату самого большого числа.

Вот программа, которая решает данную задачу:

pascalCopy code
program CheckRightTriangle;

procedure Sort(var a, b, c: Integer);
var
  temp: Integer;
begin
  if a > b then
  begin
    temp := a;
    a := b;
    b := temp;
  end;
  if b > c then
  begin
    temp := b;
    b := c;
    c := temp;
  end;
  if a > b then
  begin
    temp := a;
    a := b;
    b := temp;
  end;
end;

function IsRightTriangle(a, b, c: Integer): Boolean;
begin
  Sort(a, b, c);
  Result := (a * a + b * b) = (c * c);
end;

var
  side1, side2, side3: Integer;
  isRightTriangle: Boolean;
begin
  // Ввод трех чисел
  WriteLn('Введите три числа:');
  ReadLn(side1, side2, side3);

  // Проверка, может ли образоваться прямоугольный треугольник
  isRightTriangle := IsRightTriangle(side1, side2, side3);

  // Вывод результата
  if isRightTriangle then
    WriteLn('Можно образовать прямоугольный треугольник.')
  else
    WriteLn('Нельзя образовать прямоугольный треугольник.');
end.

Вы можете скопировать этот код в свою среду разработки на Pascal и выполнить программу, чтобы увидеть результат. Она попросит ввести три числа и сообщит, можно ли из них образовать прямоугольный треугольник.