задача на массивы

[_NeoN_]

Есть массив M*N надо написать процедуру которая бы ставила в "точку" [m\2;n\2] число 100 а потом по кругу уменьшала бы это значение.. если не понятно то вот картинка))
0 0 0 0 0 0 0 0 0
0 70 70 70 70 70 70 70 0
0 70 80 80 80 80 80 70 0
0 70 80 90 90 90 80 70 0
0 70 80 90 100 90 80 70 0
0 70 80 90 90 90 80 70 0
0 70 80 80 80 80 80 70 0
0 70 70 70 70 70 70 70 0
0 0 0 0 0 0 0 0 0
вот...так до 0.. но чтобы шаг можно было регулировать...

[GSerg]

Код: Выделить всё

sub dothisstupidthing(arr() as long, optional byval start as long=100, optional byval delta as long=10)
  dim w as long, h as long, i as long, j as long, tmp as long
  w=ubound(arr,2)
  h=ubound(arr,1)
  i=lbound(arr,2)
  j=lbound(arr,1)
  if ((w-i+1) mod 2) = 0 or ((h-j+1) mod 2)=0 then err.raise 1, "stupidprocedure", "cannot assign central point due to even array size"
 
  i=j+h\2
  j=lbound(arr,2)+w\2
  arr(i, j)=start
 
  For w = 1 To start/delta
    tmp=start-delta*w
    for h=-w to w
      arr(i+w,j+h)=tmp
      arr(i-w,j+h)=tmp
      arr(i+h,j+w)=tmp
      arr(i+h, j-w)=tmp
    next
  next
end sub

[Георгий]

Код: Выделить всё

...
  For w = 1 To start/delta
    tmp=start-delta*w
    for h=-w to w
      arr(i+w,j+h)=tmp
      arr(i-w,j+h)=tmp
      arr(i+h,j+w)=tmp
      arr(i+h, j-w)=tmp
    next
  next
end sub

for h= 0 to w достаточно ?

[GSerg]

Нет, недостаточно. Внимательно посмотри код, поймёшь.

[_NeoN_]

спасибо.. ща попробую)