Massiv

ASSASSININPC

код программы для вывода элементов двумерного массива 5x5 в f1book по следующему правилу.
1 ответ

ASSASSININPC

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var a:array[1..n,1..n]of byte;
    x,y,k,z:integer;
begin
x:=n div 2+1;
y:=n div 2+1;
k:=0;
for z:=1 to n*n do
 begin
  a[x,y]:=z;
  case k mod 4 of
  0:begin
    inc(y);
    if y=n-x+2 then inc(k);
    end;
  1:begin
    inc(x);
    if y=x then inc(k);
    end;
  2:begin
    dec(y);
    if y=n-x+1 then inc (k);
    end;
  3:begin
    dec(x);
    if y=x then inc(k);
    end;
  end;
 end;
for x:=1 to n do
for y:=1 to n do
StringGrid1.Cells[y-1,x-1]:=IntToStr(a[x,y]);
end;
end.