Доброго времени суток. Я пишу программу, которая находит минимальный расход топлива при наборе высоты и
скорости ЛА. Проблема в следующем:
Когда я пытаюсь заполнить 1 строку массива S используя считанные значения из StringGridа массива, двигаясь
справа налево, возникает ошибка "invalid pointer operation". Где ошибка, не понимаю.
Вот код:
Код:
//Вычисление расходов топлива 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(расходы топлива) и найти оптимальный путь. Готов
обсудить оплату, при необходимости.