Как создать «круг» в двумерном массиве? (Delphi 7)

[IronFire]

Дан массив 33х33. Мне нужно построить внутри этого массива что-то вроде круга с центром в точке 17х17 и радиусом 16. Ну то есть мне надо, чтобы все элементы этого массива находящиеся внутри этого «круга» имели значение 1, вне «круга» — 0.

[Levsha100]

x*x+y*y=r*r

[IronFire]

Сообщение от Levsha100

x*x+y*y=r*r

Это формула окружности с центром в начале координат.

Вобщем-то есть формула (Х - Хо)^2 + (Y - Yo)^2 = R^2, где точка (Xo;Yo) — центр окружности. Но как её использовать в данном случае, я что-то не понимаю. Мне же не окружность нужна, а круг.

[Mad_Cat]

for i:=1 to 33 do
for j:=1 to 33 do
if (i=1) or (j=1) or (i=33) or (j=33) then a[i,j]=0
else a[i,j]=1;

[IronFire]

Mad_Cat
Это квадрат получится=)

К тому же, радиус не обязательно будет 16, он может быть и 15, и 14. А может и меньше.

[Serge_Bliznykov]

а.. кажется понял...

var A : array[1..33,1..33] of integer;
  i, j : integer;
  x : extended;
begin
  for i:=1 to 33 do
    for j:=1 to 33 do begin
      x := round(sqrt(sqr(i-17)+sqr(j-17)));
      if trunc(x)<16 then
        A[i,j] := 1
      else
        A[i,j] := 0;
    end;

[IronFire]

Да, вроде бы получилось. Спасибо!

Serge_Bliznykov
Пока вы не ушли:
round() — это что за оператор? Округление?
trunc() — такой же вопрос=)

[Stilet]

round() - округление до ближайшего целого
trunc() - отбрасывание дробной части.
Бегом книги по Паскалю читать!

[IronFire]

Сообщение от Stilet

round() - округление до ближайшего целого
trunc() - отбрасывание дробной части.

А какой смысл отбрасывать дробную часть от уже округлённого числа?=)

Сообщение от Stilet

Бегом книги по Паскалю читать!

Хорошо бы конечно, но я не программист и вряд ли мне чтение таких книг когда-нибудь ещё пригодится

[Serge_Bliznykov]

А какой смысл отбрасывать дробную часть от уже округлённого числа?=)

Вы правы. Можно и без TRUNC().
Trunc() здесь для надёжности... Почему-то я решил, что нам может понадобится использовать результат вычислений, как координаты массива... Тогда бы нужно было их привести обязательно к целому типу с помощью TRUNC()
в данном случае применение TRUNC() не нужно. (хотя и не ошибка, это не влияет на результат работы).

Хорошо бы конечно, но я не программист и вряд ли мне чтение таких книг когда-нибудь ещё пригодится

Вы противоречите себе же... Если Вы не программист и не собираетесь программировать, то зачем Вам знать, что делают операторы round() и trunc() ?!