Pasсal. Кол-во точек попадающих в окружность.

[RUSSTUDENT]

Привет всем!
Задача с циклом FOR.
Вычислить количество точек с целочисленными координатами, попадающих в круг с радиуса R с центром в точке (0;0). Вывести на экран координаты этих точек.

[Serge_Bliznykov]

количество точек с целочисленными координатами равняется:

CntIntCoordinates := 1; {сразу учли точку в центре координат 0,0}
for x:=1 to trunc(R) do 
   for y:=0 to trunc(R) do
     if  sqrt( sqr(x) + sqr(y))<=R then
         CntIntCoordinates := CntIntCoordinates + 4;

увеличиваем на 4-ре - потому что каждая точка имеет зеркальные отражения в каждой четверти...

p.s. писал прямо тут, на форуме, не проверял. 100% за правильность решения НЕ ПОРУЧУСЬ!

[RUSSTUDENT]

Спасибо что решили