Координатный метод нахождения угла

@DanilKovalevsky · Регистрация: 19.03.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
На плоскости даны координаты точек 1(x1,y1) и 2(x2,y2). Из точки 1 проведена прямая, параллельная оси x(ни одна из точек на самих осях не лежит, сами точки могут иметь как положительные, так и отрицательные координаты) и прямая, эти точки соединяющая. Найти угол angle между двумя прямыми(angle принадлежит от -180, если точка слева, до 180, если справа).

@Puporev · 10.10.2016, 14:44

Сообщение от DanilKovalevsky

Из точки 1 проведена прямая, параллельная оси x

А у Вас параллельно оси Y.

@DanilKovalevsky · 10.10.2016, 16:06 **[ТС]**

Простите, исправил.

@Puporev · 10.10.2016, 16:11

Сообщение от DanilKovalevsky

Простите, исправил

Что исправил? Как было параллельно оси Y так и осталось, дело же не в буковках.
1 линия должна быть горизонтально, а не вертикально.

@DanilKovalevsky · 10.10.2016, 16:14 **[ТС]**

Сообщение от DanilKovalevsky

Из точки 1 проведена прямая, параллельная оси x

Извините, конечно параллельная y.

@Puporev · 10.10.2016, 18:50

Pascal

var x1,y1,x2,y2,u:real;
begin
repeat
writeln('Введите координаты первой точки, не  лежащей на осях');
readln(x1,y1);
until(x1<>0)and(y1<>0)and((x1<>x2)or(y1<>y2));
repeat
writeln('Введите кординаты второй точки, не  лежащей на осях');
readln(x2,y2);
until(x2<>0)and(y2<>0);
//расчет угла в радианах
if y1=y2 then u:=pi/2
else if x1=x2 then
 if y2>y1 then u:=0
 else u:=pi
else
 if y2-y1<0 then u:=pi+arctan(abs(x2-x1)/(y2-y1))
 else  u:=arctan(abs(x2-x1)/(y2-y1));
u:=u*180/pi;//перевод в градусы
if x2<x1 then u:=-u;
write('Угол=',u:0:2)
end.

@DanilKovalevsky · 11.10.2016, 04:32 **[ТС]**

Спасибо

@DanilKovalevsky 0 / 0 / 2 Регистрация: 19.03.2015 Сообщений: 27
		1
	Координатный метод нахождения угла 10.10.2016, 14:27. Показов 1091. Ответов 6 Метки координаты точек (Все метки) Доброго времени суток. На плоскости даны координаты точек 1(x1,y1) и 2(x2,y2). Из точки 1 проведена прямая, параллельная оси x(ни одна из точек на самих осях не лежит, сами точки могут иметь как положительные, так и отрицательные координаты) и прямая, эти точки соединяющая. Найти угол angle между двумя прямыми(angle принадлежит от -180, если точка слева, до 180, если справа). Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2016, 14:44	2
	Сообщение от DanilKovalevsky Из точки 1 проведена прямая, параллельная оси x А у Вас параллельно оси Y. 1

@DanilKovalevsky 0 / 0 / 2 Регистрация: 19.03.2015 Сообщений: 27
	10.10.2016, 16:06 [ТС]	3
	Простите, исправил. Изображения 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2016, 16:11	4
	Сообщение от DanilKovalevsky Простите, исправил Что исправил? Как было параллельно оси Y так и осталось, дело же не в буковках. 1 линия должна быть горизонтально, а не вертикально. 0

@DanilKovalevsky 0 / 0 / 2 Регистрация: 19.03.2015 Сообщений: 27
	10.10.2016, 16:14 [ТС]	5
	Сообщение от DanilKovalevsky Из точки 1 проведена прямая, параллельная оси x Извините, конечно параллельная y. 0

@DanilKovalevsky 0 / 0 / 2 Регистрация: 19.03.2015 Сообщений: 27
	11.10.2016, 04:32 [ТС]	7
	Спасибо 0

Координатный метод нахождения угла

Решение