Здравствуйте!!!
Я делаю программу погрузки судна, где мне надо вычислить динамическую остойчивость, а она вычисляется рекуррентной формулой.
Есть таблица
http://cs413218.vk.me/v413218232/4d82/hJvBvamCAc0.jpg
(на рисунку внизу возле диаграммы)
и динам остойчивость вычисляется след образом
вторая строка столбца Ld вычисляется тк
Ld [2]=Lst[1]+Lst[2]+Ld[1]
Я написала так
Код:
Код:
procedure TForm6.Table5CalcFields(DataSet: TDataSet);
var i: integer;
Sum,a: double;
begin
Sum := 0;
Table5.Edit;
Sum := Table5.FieldByName('Lst').Value; //Самая первая сумма
Table5.FieldByName('Ld').Value := Sum;
Table5.Post;
while not Table5.Eof do
begin
Sum := Sum + Table5.FieldByName('Lst').Value;
Table5.Edit;
Table5.FieldByName('Ld').Value := Sum;
Table5.Post;
Table5.Next;
end;
end;
Но не вычисляет! Буду очень благодарна!