Показать сообщение отдельно

  #1673  
Старый 07.09.2009, 23:36
ZdezBilYa
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
С нами: 9315854

Репутация: 107
По умолчанию

Попробуй этот алгоритм:

Код:
 k := 0; 
 for i := -R to R do
   for j := -R to R do 
     if (i*i+j*j) <= Sqr(R) then k := K+1;
R- радиус
K - количество точек

Итог:

Цитата:
R=2 K=13
R=3 K=29
R=4 K=49
R=5 K=81
 
Ответить с цитированием