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

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

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

Код к задаче: «Найти координаты точки пересечения окружности - Pascal ABC»

textual
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.

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы