Определить взаимное расположение прямой и окружности

@upGrow · Регистрация: 12.12.2014

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

Определить взаимное расположение прямой, заданной двумя точками и окружности, заданной координатами центра и радиусом. Задача Delphi, PascalABC

@Puporev · 17.01.2015, 18:59

Например так.

Pascal

const t=0.0001; //точность сравнения
var r,x0,y0,x1,y1,x2,y2,s,ab,h:real;
begin
writeln('x0,y0:');//центр окружности
readln(x0,y0);
write('R=');//радиус
readln(r);
writeln('x1,y1:');//1 точка
readln(x1,y1);
writeln('x2,y2:');//2точка
readln(x2,y2);
s:=abs(x1*(y2-y0)+x2*(y0-y1)+x0*(y1-y2));//удвоенная  площадь треугольника 012
ab:=sqrt(sqr(x1-x2)+sqr(y1-y2)); //его основание
h:=s/ab; //высота
if h<r then write('Пересекаются') //если высота меньше радиуса
else if abs(h-r)<t then write('Касаются')//если высота и радиус равны
else write('Не пересекаются'); //если высота больше радиуса
end.

@upGrow 0 / 0 / 0 Регистрация: 12.12.2014 Сообщений: 9
		1
	Определить взаимное расположение прямой и окружности 17.01.2015, 18:33. Показов 2518. Ответов 1 Метки нет (Все метки) Определить взаимное расположение прямой, заданной двумя точками и окружности, заданной координатами центра и радиусом. Задача Delphi, PascalABC 0

	17.01.2015, 18:59

Определить взаимное расположение прямой и окружности

Решение