Ошибка при выводе

[Pasha_Sh]

Здравствуйте! Выполняю следующий цикл:

for j := 1 to 6 do begin f:=0;
for i := 1 to o do begin z:=strtofloat(stringgrid3.Cells[j,0]); f:=f+xm[u]*power(z,o-i); end;
stringgrid4.Cells[j,o]:=floattostr(f);

Появляется ошибка: Access violation at address 0040936C.
Если же убрать вывод в стринггрид

stringgrid4.Cells[j,o]:=floattostr(f);

то ошибка пропадает.
В чём может быть проблема?

[northener]

Сколько строк в гриде? И чему равна переменная o?

P.S. Чем тебе так нравится буква O?

[Алексей_2012]

у вас в цикле и в power не 0, а буква о:D

Приведи весь код обработчика события

[northener]

Сообщение от Алексей_2012

у вас в цикле и в power не 0, а буква о:D

Было бы ещё страньше видеть в цикле и в power ноль, а не букву о.

[min@y™]

А компайлер тебе варнинг не выдаёт, что переменные-параметры циклов после этих циклов могут быть неопределены?

[Stilet]

Если представленный код весь, т.е. кроме него более в этом блоке ничего нет, то ошибка может исчезнуть по велению оптимизатора. Он видит что ты f никуда более не выводишь и убирает из программы и циклы расчета.

Верни на базу ту строку, что убрал и топай пошаговку делать. Только так ты можешь узнать что происходит.

[Pasha_Sh]

Компилятор никаких предупреждений не выводит
Вот весь код:

procedure TForm2.N3Click(Sender: TObject);
var
x: real;
i: integer;
begin
x:=0;
for i := 0 to 5 do begin
stringgrid3.Cells[i+1,0]:=floattostr(x);
stringgrid3.Cells[i+1,1]:=floattostr(ln(x+sqrt(x*x+1)));
x:=x+2/5;
end;
end;

procedure TForm2.N4Click(Sender: TObject);
var
sum,m,x,f,z: real;
xi: array[0..5] of real;
yi: array[1..5] of real;
a: array[1..15,1..15] of real;
xm: array[1..15] of real;
k,u,o,c,i,j: integer;
begin

for o := 2 to 5 do begin
c:=o;

for i := 1 to (o-1)*2 do begin sum:=0;
for j := 1 to 6 do sum:=sum+power(strtofloat(stringgrid3.Cells[j,0]),i);
xi[i]:=sum; end;

for i := 1 to o do
for j := 1 to 6 do yi[i]:=yi[i]+strtofloat(stringgrid3.Cells[j,1])*power(strtofloat(stringgrid3.Cells[j,0]),i-1);



xi[0]:=6;
k:=0;
for i := 1 to o do begin
k:=k+1;
for j := 1 to o do a[i,j]:=xi[k+j-1];
end;

for i := 1 to o do a[i,o+1]:=yi[i];



for i := 2 to c do begin
for k := 1 to i-1 do begin
m:=a[i,k]/a[k,k];
for j := 1 to c+1 do
a[i,j]:=a[i,j]-a[k,j]*m;
end;
end;

x:=a[c,c+1]/a[c,c];
xm[1]:=x;

u:=1;
for j := 1 to c-1 do begin
for i := 1 to c-j do a[i,c+1-j]:=a[i,c+1-j]*x;
x:=a[c-j,c+1];
for i := c+1-j to n do x:=x-a[c-j,i];
xm[u]:=x/a[c-j,c-j];
u:=u+1;

end;

for j := 1 to 6 do begin f:=0;
for i := 1 to o do begin z:=strtofloat(stringgrid3.Cells[j,0]); f:=f+xm[u]*power(z,o-i); end;
stringgrid4.Cells[j,o]:=floattostr(f);

end;

end;

end;

Необходимо по заданным точкам функции, определить саму функцию методом наименьших квадратов и найти её значение в точках.
o - многочлен o-той степени, до которого округляется сама функция. Интересно то, что при o равном 2, 3, 4 всё работает. А как o доходит до 5, ошибка.

[min@y™]

Слышь, ТС, ты реально так программы пишешь или это прикол такой первоапрельский? Глаза кровоточат от таких исходников. Ты их сам-то как понимать умудряешься?

Ну неужели хотя бы вот так код читается хуже?

procedure TForm2.N4Click(Sender: TObject);
var
  sum, m, x, f, z: real;
  xi: array[0..5] of real;
  yi: array[1..5] of real;
  a: array[1..15, 1..15] of real;
  xm: array[1..15] of real;
  k, u, o, c, i, j: integer;
begin
  for o := 2 to 5 do
    begin
      c:= o;

      for i := 1 to (o - 1) * 2 do
        begin
          sum:= 0;

          for j := 1 to 6 do
            sum:= sum + power(strtofloat(stringgrid3.Cells[j, 0]), i);

          xi[i]:= sum;
        end;
    
      for i := 1 to o do
        for j := 1 to 6 do
          yi[i]:= yi[i] + strtofloat(stringgrid3.Cells[j, 1]) *
                  power(strtofloat(stringgrid3.Cells[j, 0]), i - 1);

      xi[0]:= 6;
      k:= 0;

      for i := 1 to o do
        begin
          k:= k + 1;

          for j := 1 to o do
            a[i, j]:= xi[k + j - 1];
        end;

      for i := 1 to o do
        a[i, o + 1]:= yi[i];

      for i := 2 to c do
        begin
          for k := 1 to i - 1 do
            begin
              m:= a[i, k] / a[k, k];

              for j := 1 to c + 1 do
                a[i, j]:= a[i, j] - a[k, j] * m;
            end;
        end;

      x:= a[c, c + 1] / a[c, c];
      xm[1]:= x;
      u:= 1;

      for j := 1 to c - 1 do
        begin
          for i := 1 to c - j do
            a[i, c + 1 - j]:= a[i, c + 1 - j] * x;

          x:= a[c - j, c + 1];

          for i := c + 1 - j to n do
            x:= x - a[c - j, i];

          xm[u]:= x / a[c - j, c - j];
          u:= u + 1;
        end;

      for j := 1 to 6 do
        begin
          f:= 0;

          for i := 1 to o do
            begin
              z:= strtofloat(stringgrid3.Cells[j, 0]);
              f:= f + xm[u] * power(z, o - i);
            end;

          stringgrid4.Cells[j, o]:= floattostr(f);
        end;
  end;
end;