['Zanuda']

Доброго времени суток. Я пишу программу, которая находит минимальный расход топлива при наборе высоты и

скорости ЛА. Проблема в следующем:
Когда я пытаюсь заполнить 1 строку массива S используя считанные значения из StringGridа массива, двигаясь

справа налево, возникает ошибка "invalid pointer operation". Где ошибка, не понимаю.
Вот код:

Код:

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 33 34 35 36 37

//Вычисление расходов топлива S procedure TForm1.Button3Click(Sender: TObject); var   S:array of array of double;   V:array of array of double;   H:array of array of double;   i,j,k,c:integer;   begin   SetLength(V,StringGrid1.ColCount,StringGrid1.RowCount);   SetLength(H,StringGrid1.ColCount,StringGrid1.RowCount);   SetLength(S,StringGrid1.ColCount,StringGrid1.RowCount);         For j:= 1 to StringGrid1.ColCount-1 do    //столбец   For i:= 1 to StringGrid1.RowCount-1 do    //строка       begin       if ((i mod 2 = 0) and (j mod 2 = 1)) then       begin          H[i,j]:=strtofloat(StringGrid1.Cells[j,i]); //Заполнение массива H[i,j]       end;       if ((i mod 2 = 1) and (j mod 2 = 0)) then       begin         V[i,j]:=strtofloat(StringGrid1.Cells[j,i]);  //Заполнение массива V[i,j]       end;     end;     //Заполнение  первой строки массива S с конца   c:=2*(strtoint(Form2.edtn.text))+1; //кол-во столбцов   S[1,c-2]:=V[1,c-1];   c:=c-2;   while (c<=1) do   for k:= 1 to 2*(strtoint(Form2.edtm.text))+1 do     begin       c:=c-2;       S[1,c]:=S[1,c+2]+V[1,c+k];       StringGrid1.Cells[c,1]:=floattostr(S[1,c]);     end; end;

Что я делаю не так?
Вот весь проект http://gfile.ru/a7HL4
И теория к нему http://gfile.ru/a6SvE
Мне одно не нравится, В теории присутствует координатная плоскость, что понятно. А в стринггрде оси можно

расположить только сверху и слева,что не очень смотрится и затрудняет,думаю счет. Думал наклепать эдитов, но

получится ограничение по ихкол-ву.. Может посоветуете?

Осталось самое сложное, собственно. Посчитать значения S(расходы топлива) и найти оптимальный путь. Готов

обсудить оплату, при необходимости.

[poli-smen]

А здесь условие точно правильное?:

Сообщение от Zanuda

Код:

Может нужно наоборот?

['Zanuda']

Действительно, наоборот. Чуть подправил:

Код:

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 33 34 35 36 37

//Вычисление расходов топлива S procedure TForm1.Button3Click(Sender: TObject); var   S:array of array of double;   V:array of array of double;   H:array of array of double;   i,j,k,c:integer;   begin   SetLength(V,StringGrid1.ColCount,StringGrid1.RowCount);   SetLength(H,StringGrid1.ColCount,StringGrid1.RowCount);   SetLength(S,StringGrid1.ColCount,StringGrid1.RowCount);          For j:= 0 to StringGrid1.ColCount-1 do    //столбец       For i:= 0 to StringGrid1.RowCount-1 do    //строка       begin       if ((i mod 2 = 0) and (j mod 2 = 1)) then       begin          H[i,j]:=strtofloat(StringGrid1.Cells[j,i]); //Заполнение массива H[i,j]       end;       if ((i mod 2 = 1) and (j mod 2 = 0)) then       begin         V[i,j]:=strtofloat(StringGrid1.Cells[j,i]);  //Заполнение массива V[i,j]       end;     end;      //Заполнение  первой строки массива S с конца   c:=StringGrid1.ColCount-1; //кол-во столбцов   S[1,c-2]:=V[1,c-1];   StringGrid1.Cells[c-2,1]:=floattostr(S[1,c-2]);   c:=c-2;   while (c>1) do       begin         c:=c-2;         S[1,c]:=S[1,c+2]+V[1,c+1];         StringGrid1.Cells[c,1]:=floattostr(S[1,c]);       end; end;

Но теперь выскакивают ошибки list index out of bounds и Invalid pointer рoperation. Но первая строка заполняется, хотя и весьма странно(в 2 соседние ячейки заносятся одинаковое значение)...

И еще одна странность, если вводить большое столбцов, то при прокручивании в ячейках цифры как бы накладываются друг на друга...

['Zanuda']

Даже за деньги никто не знает, как это сделать?

[M.A.D.M.A.N.]

За деньги - в раздел работ.