Элементы массива X расположить в обратном порядке ( Delphi )

[alex150394]

Написал прогу в делфи,не могу понять где допустил ошибку. Элементы массива X расположить в обратном порядке.Думаю что в последней строке
вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  Type

  Mas1 = array[1..6,1..6] of extended;
var
  Form1: TForm1;
  A,B : Mas1;
  i ,j: integer;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
j:=0;
for i:=1 to 5 do
A[i,1]:=StrToFloat(StringGrid1.Cells[i,1]);
for i:=5 downto 1 do
StringGrid2.Cells[j+1,2]:=FloatToStrf(A[i,1],fffixed,6,2);

end;

end.

[studen]

procedure TForm1.Button1Click(Sender: TObject);
begin
  for j:=1 to 6 do begin //Столбцы таблицы. Как я понял, массив двухмерный.
    for i:=1 to 6 do
      A[i, j]:=StrToFloat(StringGrid1.Cells[7-i, j]);
    for i:=1 to 6 do
      StringGrid2.Cells[i, j]:=FloatToStrf(A[i,j],fffixed,6,2);
        // i - колонка, j - строка
  end;
end;

Так?

[alex150394]

нет,все равно ошибку выдает

[Sciv]

СтрингГрид с нуля считает - это во-первых.

Чтоб "перевернуть" строку - достаточно сделать цикл от 1 до n div 2 - это во-вторых

for i:=1 to n div 2 do begin
  a[i]:=a[n-i+1]+a[i];
  a[n-i+1]:=a[i]-a[n-i+];
  a[i]:=a[i]-a[n-i+1];
end;

код для одномерного массива. Для двухмерного сами сделайте, это несложно

В-третьих: если выдается ошибка - желательно, текст ошибки в студию предоставить

[DiemonStar]

for i:=1 to n div 2 do begin
  a[i]:=a[n-i+1]+a[i];
  a[n-i+1]:=a[i]-a[n-i+];
  a[i]:=a[i]-a[n-i+1];
end;

вообще-то правильнее так:

for i:=1 to n div 2 do begin
  Temp:=a[n-i+1];
  a[n-i+1]:=a[i];
  a[i]:=Temp;
end;

работать будет быстрее на три арифметические операции за цикл и при использовании массива строк.

[Sciv]

вообще-то правильнее так:

Да, для этой конкретно задачи. И в остальном Вы правы. Это я дал общий пример и поленился писать через темп