Матрица

[serj-07]

Подскажите пожалуйста матрица не хочет работать с дробными числами? С целыми работает в чем проблема. Спасибо!

[ROMA2PVT]

...........

[serj-07]

Type  Matr = array of array of real;

var
  Form1: TForm1;
     a: Matr;

   n: Longint;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

  begin
     try
      n:= StrToInt (Trim (Edit1.Text));
      Except
      MessageDlg ('Введите количество элементов в массивы.', mtError, [mbOk],0);
      exit
  end;

    SetLength(a,n,n);
    StringGrid1.RowCount:=2;
    StringGrid1.ColCount:=n;
    SetLength(a,n,n);
    StringGrid2.RowCount:=2;
    StringGrid2.ColCount:=n;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j: Longint;
  f,f1,h:real;
   begin
      i:=0;
      f:= StrToFloat(StringGrid1.cells[i,0]);
      f1:=StrToFloat(StringGrid1.cells[i+1,0]);
       h:= f1-f;

        begin
         for i:=0 to n-1 do
          for j:=0 to 1 do
            a[i,j]:=StrToInt(StringGrid1.cells[i,j]);

              for i:=1 to n-2 do
           a[i,1]:=1/h*1/2*(a[i+1,1]-a[i,1]+a[i,1]-a[i-1,1]);
         end;

             for i:=0 to n-1 do
             for j:=0 to 2 do

             StringGrid2.Cells[i,j]:= floatToStr(a[i,j]);

    end;
end.

[serj-07]

Всем спасибо ошибку нашел

[serj-07]

Если можно еще один вопросик:
ответ для первого элемента получается правильно, а последующие нет. Они берут решённые результаты, а нужно из введенных на форме.

  begin
            for i:=1 to n-2 do
              a[i,0]:=1/h*1/2*(a[i+1,1]-a[i,1]+a[i,1]-a[i-1,1]);
            for i:=1 to n-2 do
              a[i,1]:=1/h*h*(a[i+1,1]-a[i,1]-a[i,1]+a[i-1,1]);
         end;

      for i:=1 to n-2 do
      for j:=0 to 2 do
      StringGrid2.Cells[i,j]:= floatToStr(a[i,j]);