Question

Написать программу в Паскале 1. Заданы стороны треугольника. Проверить является ли он прямоугольным

Answer 1

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

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

Answer 2

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

Для решения этой задачи в Паскале, нужно будет выполнить следующие шаги:

1. Ввести значения сторон треугольника a, b, c с клавиатуры.
2. Проверить, является ли треугольник прямоугольным, сравнивая квадрат самой длинной стороны с суммой квадратов двух других сторон.
3. Вывести соответствующее сообщение о результате.

Вот пример программы на Паскале для решения этой задачи:

pascalCopy code
program CheckRightAngleTriangle;

var
  a, b, c: real;

begin
  { Ввод значений сторон треугольника }
  writeln('Введите длину стороны a:');
  readln(a);

  writeln('Введите длину стороны b:');
  readln(b);

  writeln('Введите длину стороны c:');
  readln(c);

  { Проверка является ли треугольник прямоугольным }
  if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = a*a + b*b) then
    writeln('Треугольник является прямоугольным.')
  else
    writeln('Треугольник не является прямоугольным.');
end.

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