Вычислить модуль и угол наклона к оси ОХ вектора - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Вычислить модуль и угол наклона к оси ОХ вектора, соединяющего на плоскости две точки с координатами (х1, у1) и (х2, у2). Рассмотреть ситуации: 1) х1=0,6 х2=0,1 2) х1=2,6 х2=6,1 Заранее СПАСИБО!

Решение задачи: «Вычислить модуль и угол наклона к оси ОХ вектора»

textual
Листинг программы
uses crt;
var
m, x1, x2, y1, y2, u: real;
begin
readln(x1, x2, y1, y2);
m:= arctan((y2-y1)/(x2-x1)); {Находим угол наклона вектора к оси OX}
u:=m*180/pi;  {Переводим угол из радиан в градусы}
write(u);
end.

Объяснение кода листинга программы

  1. В начале объявляются все необходимые переменные: m, x1, x2, y1, y2, u.
  2. Затем происходит чтение значений переменных x1, x2, y1, y2 с помощью функции readln.
  3. Далее вычисляется угол наклона вектора к оси OX с помощью формулы arctan((y2-y1)/(x2-x1)).
  4. Полученное значение угла наклона переводится в градусы с помощью формулы u := m * 180 / pi.
  5. И наконец, полученное значение угла наклона выводится на экран с помощью функции write.

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы