Меняем столбцы местами. Двумерка

[mugla]

Двумерный массив из четного числа столбцов. Поменять местами первый столбец со вторым, третий — с четвертым и т. д.

procedure TForm4.Button26Click(Sender: TObject);
var i,j:byte;
begin
randomize; //Заполняем массив случайными числами
stringgrid1.ColCount:=d;
stringgrid1.RowCount:=d;
for i:=1 to d do
for j:=1 to d do
mas3[i,j]:=-4+random(21);
for i:=0 to d-1 do
for j:=0 to d-1 do
stringgrid1.Cells[i,j]:=inttostr(mas3[j+1,i+1]);
end;
 
procedure TForm4.Button28Click(Sender: TObject);
var i,j:byte; //Меняем столбцы местами
x:integer;
begin
for j:=1 to d div 2 do
for i:=1 to d do
begin
x:=mas3[i,j];
mas3[i,j]:=mas3[i,d-j+1];
mas3[i,d-j+1]:=x;
end;
stringgrid2.ColCount:=d;
stringgrid2.RowCount:=d;
for i:=0 to d-1 do
for j:=0 to d-1 do
stringgrid2.Cells[i,j]:=inttostr(mas3[j+1,i+1]);
end;

Здесь, получается, что он меняет 1 с 4, 2 с 3. А нужно 1 со 2, 3 с 4!

[Serge_Bliznykov]

не проверял. писал прямо тут. проверить доверяю Вам

вариант 1.

for j:=1 to d div 2 do
for i:=1 to d do
begin
  x:=mas3[i,(j-1)*2+1]; mas3[i,(j-1)*2+1]:=mas3[i,(j-1)*2+2]; mas3[i,(j-1)*2+2]:=x;
end;

вариант 2. (я бы его рекомендовал выбрать. он, как мне кажется, проще

j := 1;
while j<d do begin
  for i:=1 to d do
  begin
     x:=mas3[i,j]; mas3[i,j]:=mas3[i,j+1]; mas3[i,j+1]:=x;
  end;
  inc(j,2)
end;

[mugla]

Спасибо тебе огромное! Очень очень огромное!
Еще немного!

Мой массив mas3:array[1..d,1..d] of integer;
где const d=4; т.е массив 4 на 4. Как сделать так, чтобы я мог сам менять это значение, например 2 или 8 или 10. Главное четное, и чтобы стрингрид соответственно менялся! Плиз!

[Serge_Bliznykov]

читай в справке про динамические массивы Multidimensional dynamic arrays

если вкратце, то
1) заменяете объявление массива на такое:
var
mas3 : array of array of Integer;

2)
где надо установить размерность,
пишете
SetLength( mas3, d, d);

3) не забываете исправить индексацию от нуля
(где было от for i:=1 to d должно быть for i:=0 to d-1)

вот и всё

p.s. а грид у тебя уже и так меняется в соответствии с величиной d

[mugla]

что-то не получается...

[mugla]

Ошибка в строке mas3[i,j]:=-4+random(21);