Задача на знание элементарной геометрии(pascal)

[Askid.BY]

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

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

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

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

 

[zubr]

Задачи элементарные. Сам хотя бы понапрягай мозги, если чего не будет получаться, обращайся, а сейчас судя по всему ты хочешь, что бы эти задачи решили за тебя, причем бесплатно.

 

[Darth Vox]

Ye negst...
1. Расстояние между точкой и центром окружности L:=Sqrt(Sqr(X-X0)+Sqr(Y-Y0));
Если L>R, точка вне круга.
Если L=R, точка лежит на окружности (точность тебе задана, обруби остальные разряды)
Если L<R, точка внутри круга.

2.
Sum:=1;
While Sum<a do begin
Sum:=Sum+h;
end;
WriteLn(Sum);