Паскаль Круг !

[BuTeK1]

Уважаемые программисты подскажите пожалуйста !
Kак посчитать когда точка находиться на линии круга используя оператор if !

[Disel]

Точнее вопрос задай, какая точка, и круг двигается или нет?

[BuTeK1]

Точку надо ввести с клавиатуры , круг стоит на месте ,я файл приложил там круг нарисован !

[Sazary]

Нужно сравнить радиус окружности (в данном случае r = 1) и радиус-вектор точки относительно центра круга. Как-то так:

uses crt;
const r = 1;
ox = -1; oy = -1;
var
x,y : real;
begin
clrscr;
write('Enter x: ');
readln(x);
write('Enter y: ');
readln(y);
 if sqrt(sqr(x-ox)+sqr(y-oy)) = r then writeln('To4ka na okruzhnosti')
 else writeln('To4ka ne na okruzhnosti');
readln;
end.

[BuTeK1]

Большое спасибо !
Всё получилось !