Кординаты круга Опции

[mamont001]

Мне для игры надо чтобы при взрыве в масиве по точкам в круге изменялся параметр

[Michael_Rybak]

Увеличение значений, попавших под взрыв, на 1:

//ey, ex - строка, столбец эпицентра взрыва
//r - радиус взрыва + 1
for i := ey - r to ey + r do
  if (i >= 1) and (i <= height) then
    for j := ex - r to ex + r do
      if (j >= 1) and (j <= width) then
        if Sqr(i - ey) + Sqr(j - ex) <= Sqr( r ) then
          param[i][j] := param[i][j] + 1;