Вероятно вам нужно перевернуть матрицу, вот примерный проверенный вариант
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | ...
var
a: array[0..2] of array[0..2] of real = ((1,1,-1),(1,1,-0.5),(-1,-0.5,1));
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
for i := 0 to 2 do
for j := 0 to 2 do
StringGrid1.Cells[i, j]:= FloatToStr(a[i,j]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a1: array[0..2] of array[0..2] of real;
i, j: integer;
begin
for i := 0 to 2 do
for j := 0 to 2 do
a1[2-i, 2-j]:= a[i, j];
for i := 0 to 2 do
for j := 0 to 2 do
StringGrid1.Cells[i, j]:= FloatToStr(a1[i, j]);
end;
|