0 / 0 / 0
Регистрация: 07.03.2012
Сообщений: 21
1

Найти координаты точек пересечения прямой

11.03.2012, 11:15. Показов 1937. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста)
Найти координаты точек пересечения прямой y=kx+b и окружности радиуса R с центром в начале координат. Если точек пересечения нет или прямая касается окружности, выдать соответствующее сообщение
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2012, 11:15
Ответы с готовыми решениями:

Найти координаты точек пересечения прямой.
Найти координаты точек пересечения прямой y=kx+b и окружности радиуса R с центром в начале...

Найти координаты точек пересечения прямой и окружности
Помогите пожалуйста новмчку!) Найти координаты точек пересечения прямой y=kx+b и окружности...

Найти координаты точек пересечения
1 Даны координаты двух точек A(x1,y1) и B(x2,y2) в прямоугольной системе координат. Какая из этих...

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

2
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.03.2012, 14:50 2
Лучший ответ Сообщение было отмечено vadimkop93 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
var r,k,b,x1,y1,x2,y2,d,a,b1,c:real;
begin
clrscr;
repeat
write('Введите радиус окружности R>0 r=');
readln(r);
until r>0;
repeat
writeln('Введите коэффициенты уравнения прямой k,b, одновременно не равные 0:');
readln(k,b);
until(k<>0)or(b<>0);
{составим систему уравнений
x^2+y^2=r^2
y=kx+b
получим квадратное уравнение и решим его}
a:=k*k+1;
b1:=2*k*b;
c:=b*b-r*r;
d:=b1*b1-4*a*c;
if d<=0 then writeln('точек пересечения нет')
else if (d=0) then
 begin
  x1:=-b1/(2*a);
  y1:=k*x1+b;
  writeln('Прямая касается окружности в точке x=',x1:0:2,' y=',y1:0:2);
 end
else
 begin
  x1:=(-b1+sqrt(d))/(2*a);
  y1:=k*x1+b;
  x2:=(-b1-sqrt(d))/(2*a);
  y2:=k*x2+b;
  writeln('Прямая пересекает окружность в двух точках:');
  writeln('x1=',x1:0:2,'  y1=',y1:0:2,'  x2=',x2:0:2,'  y2=',y2:0:2);
 end;
readln
end.
0
0 / 0 / 0
Регистрация: 07.03.2012
Сообщений: 21
11.03.2012, 23:32  [ТС] 3
Благодарю)
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2012, 23:32
Помогаю со студенческими работами здесь

Нахождение координат точек пересечения прямой и окружности
Даны прямая и окружность, заданные уравнениями у=kх+b и {(x-a)}^{2}+{(y-b)}^{2} = {r}^{2}....

Известны координаты двух точек. Найти расстояния от начала координат до этих точек.
Известны координаты двух точек A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих...

Найти точки пересечения прямой и параболы
Найти точки пересечения прямой y = mx + n и параболы y = ax2 + bx + c пожалуйста))

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru