Метод Гауса

[IHORRR]

помогите пожалуйста, уже не знаю что с етим делать... переверял по 200 раз
в независимости от того что ввожу (даже если все числа - целые) пишит такое "'is not valid floating number'


вот код

procedure TForm1.Button3Click(Sender: TObject);
Type Matrix=Array[1..10,1..10] of real;
  Vec=Array[1..10] of real;
Var A: Matrix;
  X,B:Vec;
  i,j,N:integer;
  R:real;

Procedure Gause(A:Matrix; B:Vec; N: integer; X:Vec);
 Var i,j,k:integer;
  R:real;
 Begin
  if N=1 then
    if (Abs(A[1,1])<1E-7) then
      begin
        Label8.Caption:='Система є виродженою';
        //ShowModal
      end
    else
      X[1]:=B[1]/A[1,1];
  For i:=1 to N-1 do
    begin
      k:=i;
      R:=Abs(A[i,i]);
       For j:=i+1 to N do
        if abs(A[j,i]) >= R then
          begin
            k:=j;
            R:=Abs(A[j,i])
          end;
        if R<=1E-7 then
          Label8.Caption:='Система є виродженою';
       if k<>i then
        begin
          R:=B[k];
          B[i]:=R;
          for j:=i to N do
            begin
              R:=A[k,j];
              A[k,i]:=A[i,j];
              A[i,j]:=R;
            end;
        end;
        R:=A[i,i];
        B[i]:=B[1]/R;
        FOR j:=1 to N do
          A[i,j]:=A[i,j]/R;
        for k:=i+1 to N do
          begin
            R:=A[k,i];
            B[k]:=B[k]-R*B[i];
            A[k,i]:=0;
            for j:=i+1 to N do
              A[k,j]:=A[k,j]- R*A[i,j];
          end;
        end;
         if ABS(A[N,N])<=1E-7 then
           Label8.Caption:='Система є виродженою';
       X[N]:=B[N]/A[N,N];
        FOR i:=N-1 downto 1 do
        begin
        R:=B[1];
         for j:=i+1 to N do
          R:=R-A[i,j]*X[j];
          X[i]:=R;
          end;
end;

begin
 N:=ScrollBar1.Position;
 For i:=0 to N do
   for j:=0 to N do
   StringGrid4.Cells[i,j]:=StringGrid1.Cells[i,j];
    A[i+1,j+1]:=strtofloat(StringGrid1.Cells[i,j]);
 for i:=0 to N do
  B[i+1]:=strtofloat(StringGrid2.Cells[i,0]);
Gause(A,B,N,X);
 for i:=0 to N do
  StringGrid3.Cells[i,0]:=floattostr(X[i+1]);
end;

[Вадим Мошев]

A[i+1,j+1]:=strtofloat(StringGrid1.Cells[i,j]);

Пока что могу посоветовать посмотреть на значение A[i+1,j+1]. Возможно, вы пытаетесь преобразовать пустую строку в дробь.

ещё смущает то, что эта строка

A[i+1,j+1]:=strtofloat(StringGrid1.Cells[i,j]);

находится ВНЕ цикла.
могу ошибаться, правда

[min@y™]

Сообщение от Вадим Мошев

Пока что могу посоветовать посмотреть на значение A[i+1,j+1]. Возможно, вы пытаетесь преобразовать пустую строку в дробь.

Дам более глобальный совет: научись раз и навсегда юзать дебаггер. Подобных вопросов задавать не будешь. Никогда!

[challengerr]

Дебаггер например softice.

[min@y™]

Дебаггер, встроенный в delphi.