ДАЮ 50 БАЛЛОВ!!! СРОЧНО
ПАСКАЛЬ
Вводятся координаты двух точек на плоскости и координаты центра окружности и её радиус `R`. Определить, какая из точек ближе к окружности. Если равно удалены, то любую из этих двух.
Ответы
type
ko=record
x,y:integer;
s:real;
end;
rr=record
x,y:integer;
end;
var
n:array [1..2] of ko;
r:rr;
t:real;
i:integer;
begin
write('Введите x,y радиуса:'); readln(r.x,r.y);
write('Радиус:'); readln(t);
for i:=1 to 2 do
begin
write('Введите x,y ',i,'-ой точки:');
readln(n[i].x,n[i].y);
n[i].s:=abs(sqrt(sqr(r.x-n[i].x)+sqr(r.y-n[i].y))-t);
writeln('От ',i,'-ой точки до окружноси: ',n[i].s);
end;
if n[1].s = n[2].s then
begin
writeln('Точки равноудалённые!');
for i:=1 to 2 do
writeln('Координаты ',i,'-ой точки:',n[i].x,',',n[i].y);
end
else
if n[1].s < n[2].s then
writeln('Координаты ближайшей точки к окружности:',n[1].x,',',n[1].y)
else
writeln('Координаты ближайшей точки к окружности:',n[2].x,',',n[2].y)
end.
Если мой ответ помог вам, отметьте его лучшим. Спасибо