|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как вычислить рекуррентную формулу
Здравствуйте!!!
Я делаю программу погрузки судна, где мне надо вычислить динамическую остойчивость, а она вычисляется рекуррентной формулой. Есть таблица 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; Но не вычисляет! Буду очень благодарна! |