Определитькакая из двух точек находится дальше от: -начала координат- окружности заданного радиуса с центром в началекоординат.
uses crt-
varx1,x2,y1,y2,r:real-
begin-
clrscr-
writeln(‘Введите координаты первой точки (X и Y) послекаждой коор. ENTER’)-
readln(x1)-
readln(y1)-
writeln(‘Введите координаты второй точки (X1 и Y1)после каждой коор. ENTER’)-
readln(x2)-
readln(y2)-
writeln(‘Введите радиус окружности(если нет, тоr=0)’)-
readln(r)-
{Т.к. координаты должны браться по модулю, то:}
x1:= SQR(x1*x1)-
x2:= SQR(x2*x2)-
y1:= SQR(y1 *y1)-
y2:= SQR(y2 * y2)-
IF r *r >- x1 * x1 + y1 *y1 THEN writeln(‘Перваяточка лежит в пределах окружности’)-
IF r * r >- x2 *x2 + y2 *y2 THEN writeln(‘Втораяточка лежит в пределах окружности’)-
IF x1 * x1 + y1*y1>- x2 *x2 + y2 *y2 THEN
begin
writeln(‘первая точка находится дальше.’)-
end
else writeln (‘вторая точка находится дальше.’)-
IF x1 * x1 + y1*y1>- x2 *x2 + y2 *y2 THEN
begin
writeln(‘Первая точка лежит дальше от окружности’)-
end
else writeln(‘Вторая точка лежит дальше отокружности’)-
end.