n1Click (Sender: TObject); F: TextFile;: string;: integer;: array [0. .40] of extended;: real; (F, 'Xi.txt'); (F); i: = 1 to 40 do begin Readln (F, S);. Cells [1, i]: = S;; (F); (F, 'Yi.txt'); (F); i: = 1 to 40 do begin Readln (F, S); [i]: = StrToFloat (S);: = ln (L [i ]);. Cells [2, i]: = FloatToStr (n);. Cells [3, i]: = S;; (F);. Enabled: = True;
end;.
Додаток Б
Текст програми в MathCad
В
Рис.
Обчислюємо коефіцієнти системи рівнянь:
В
Визначаємо матрицю коефіцієнтів і матрицю вільних членів системи
В
В
Знаходимо коефіцієнти поліномів, вирішивши системи
В
В
