Барановичі: Барг, 2005. p align="justify">. Наранович, О.І. Інформатика: методичні вказівки і завдання до лабораторних робіт для студентів 2-го курсу денної форми навчання спеціальностей 40 2 січня, 36 1 березня, 36 1 січня. Частина 3./О.І. Наранович, С.Г. СКОБЛОВ. - Барановичі: Барг, 2005. p align="justify">. Бронштейн, І.М. Довідник з вищої математики для інженерів і учнів втузів/І.Н.Бронштейн. - М.: Наука, 1981р. br/>
Додаток А
Текст програми заголовної форми
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, XPMan, Grids,; = class (TForm): TStringGrid;: TButton ;: TXPManifest;: TChart;: TMemo;: TButton;: TEdit;: TEdit;: TEdit;: TLabel;: TLineSeries;: TLineSeries;: TLineSeries;: TLineSeries;: TButton; FormCreate (Sender: TObject); Button1Click (Sender : TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, C, A, X, Y: array [0 .. 100] of extended;: array [0 .. 40,0 .. 40] of extended ;
{$ R *. dfm} TForm1.FormCreate (Sender: TObject); i: integer;. Clear;. Cells [1,0]: = 'Xi';. Cells [2,0 ]: = 'ln | Yi |';. Cells [3,0]: = 'Yi'; i: = 1 to 40 do stringgrid1.Cells [0, i]: = IntToStr (i);. Text: = ' 3 ';. Text: = '4';. Text: = '7 ';; TForm1.Button3Click (Sender: TObject); Pl;, Bik, Delta, Yn: extended;, i, k, q, j: integer ;: = 1; Pl: q = 1 then n: = StrToInt (Edit1.Text) beginq = 2 then n: = StrToInt (Edit2.Text) n: = StrToInt (Edit3.Text) end; i: = 0 to 14 do T [i]: = 0; i: = 0 to 7 do begin C [i]: = 0; A [i]: = 0 end; i: = 0 to 7 doj: = 0 to 8 do B [i , j]: = 0;. Lines.Add ('Коефіцієнти полінома ступеня =' + inttostr (n)); i: = 1 to 2 * n do begin: = 0; j: = 1 to 40 do begin [j] : = StrToFloat (stringgrid1.Cells [1, j]);: = St + exp (i * ln (X [j])); [i]: = St;; i: = 0 to n do begin: = 0 ; j: = 1 to 40 do begin [j]: = StrToFloat (stringgrid1.Cells [2, j]);: = St + exp (i * ln (X [j])) * Y [j]; [i ]: = St;; [0]: = 40; i: = 0 to n doj: = 0 to n do [i, j]: = T [j + i]; i: = 0 to n do B [i , n +1]: = C [i]; k: = 0 to n-1 doi: = k to n do begin: = B [i, k]; j: = k to n +1 doi = k then B [i, j]: = B [i, j]/BikB [i, j]: = B [i, j]/Bik-B [k, j]; end; i: = n downto 0 do
end;. Lines.Add ('Середньоквадратичне відхилення');
Delta: = 0; i: = 1 to 40 do begin: = 0; j: = 0 to n do begin: = 1; k: = 1 to j do St: = St * X [i];: = Yn + A [j] * St end;. Series [q]. AddXY (X [i], Yn);. Series [0]. AddXY (X [i], Y [i]) ;: = Delta + sqr (Yn-Y [i]); end;: = sqrt (Delta/40);. Lines.Add (floattostr (Delta));. Lines.Add (''); q <3 then begin q: = q +1; goto Pl;;; TForm1.Button2Click (Sender: TObject);. Close;; TForm1.Butto...
