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

@Eksly · Регистрация: 23.03.2015

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

Здравствуйте. Нужно написать программу на паскале. Заданы координаты центра окружности, ее радиус и значение некоторого угла. Найти координаты точки пересечения окружности и луча, исходящие из ее центра под заданным углом. Заранее спасибо.

@Puporev · 09.12.2015, 18:25

Pascal

var r,x0,y0,u,x,y:real;
begin
repeat
write('Радиус окружности r=');
readln(r);
until r>0;
writeln('Введите координаты центра окружности');
readln(x0,y0);
repeat
write('Введите угол от 0 до 360 градусов u=');
readln(u);
until(u>=0)and(u<=360);
u:=u*pi/180;
x:=x0+r*cos(u);
y:=y0+r*sin(u);
write('x=',x:0:2,'  y=',y:0:2)
end.

@Eksly · 09.12.2015, 18:32 **[ТС]**

Благодарю вас

@Eksly 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 7
		1
	Найти координаты точки пересечения окружности 09.12.2015, 18:03. Показов 2722. Ответов 2 Метки нет (Все метки) Здравствуйте. Нужно написать программу на паскале. Заданы координаты центра окружности, ее радиус и значение некоторого угла. Найти координаты точки пересечения окружности и луча, исходящие из ее центра под заданным углом. Заранее спасибо. 0

@Eksly 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 7
	09.12.2015, 18:32 [ТС]	3
	Благодарю вас 0

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

Решение