Question

составить программу в паскале! 9 класс! СРОЧНО!!! Написать программу, по длинам сторон распознающую среди всех треугольников ABC прямоугольные. Если таких нет, то вычислить величину угла С.

Answer 1

const Radian = 57.295779513;  //Сколько градусов в одном радиане

var 

  a, b, c: real;  //Стороны, лежащие против углов A, B и C соответственно

 

begin

  writeln('Введите 3 стороны треугольника в следующем порядке: a, b, c');

  readln(a, b, c);

  if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then writeln('Треугольник ABC - прямоугольный')  {Если хотя бы для одной из сторон выполняется теорема Пифагора, то данный треугольник прямоугольный}

  else writeln('Угол C равен: ', arccos((sqr(a) + sqr(b) - sqr(c)) / (2 * a * b)) * Radian, ' градусов');  {Выражаем из теоремы косинусов косинус угла C, берем arccos от него и умножаем получившееся значение на количество градусов в радиане, чтобы получить ответ в градусах}

end.

Пользоваться компилятором Pascal ABC.Net, потому что это единственный компилятор из всех известных мне, который поддерживает функцию arccos.

Если будут вопросы, спрашивай.

 

 

 

Answer 2

Конечно, я могу помочь вам составить программу на языке Паскаль для решения данной задачи. Вот пример программы:

program TriangleAnalyzer;

var
  a, b, c: Integer; // Длины сторон треугольника
  angleC: Real; // Угол C

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

// Проверка на прямоугольность треугольника
  if (a * a = b * b + c * c) or (b * b = a * a + c * c) or (c * c = a * a + b * b) then
  begin
    writeln('Треугольник ABC является прямоугольным.');
  end
  else
  begin
    // Вычисление угла C с использованием теоремы косинусов
    angleC := arccos((a * a + b * b - c * c) / (2 * a * b));
    writeln('Треугольник ABC не является прямоугольным.');
    writeln('Величина угла C равна ', angleC:0:2, ' радиан.');
  end;
end.

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

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

Надеюсь, эта программа поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.