задача на знание элементарной геометрии, и на последовательности Опции

[Askid.BY]

Препод задал задачи а я недорубаю мож поможете...

1 задача:
На плоскости расположена окружность радиусом R с центром в начале координат.Введите заданные координаты точки и определите,находится ли она на окружности.Результат присвойте символьной переменной.Точка находится на окружности ,если длина радиус-вектора,соединяющего начало координат с заданной точкой,равна R (проверку на равенство осуществить с точностью до e=1.0E-3).

2 задача:
Для любых вещественных положительных a и h найдите в последовательности 1,1+h,1+2h... первое значение,больше a.

Какие есть мысли?

[Дож]

и определите,находится ли она на окружности.
...
Точка находится на окружности ,если длина радиус-вектора,соединяющего начало координат с заданной точкой,равна R

GoodWind, требуется проверка на нахождение точки на окружности, а не внутри. Поэтому код выглядит примерно так:

function IsOnCircle(radius,x,y:real):boolean;
begin
IsInCircle:=(radius=sqrt(sqr(x)+sqr(y)));
end;