Реферат Поліноміальна інтерполяція Гаусса, Ньютона, Стірлінга

; PolyNuton2: string; PolyGauss1: string;

функції обчислення поліномів в текстовому вигляді

Function PolyGauss2:string;PolyStirling:string;PolyN1(x:extended):extended;PolyN2(x:extended):extended;PolyG1(x:extended):extended;

функції обчислення поліномів як функції

Function PolyG2 (x: extended): extended; PolyS (x: extended): extended;

Функція виведення:

procedure TForm1.Button1Click (Sender: TObject);:=strtofloat (EditXo.text);:=(Strtofloat (EditXn.Text)-x0) / n; i:=0 to n do [ i]:=strtofloat (setka.Cells [i +1,1]);:=PolyNuton1;:=PolyNuton2; i:=0 to n do [i-(n div 2)]:=y [i];: =x0 + (n div 2) * h;:=PolyGauss1;:=PolyGauss2;:=PolyStirling; Polynoms do [1,0]:=PN1; Cells [1,1]:=PN2; [1,2]:=PG1; Cells [1,3]:=PG2; [1,4]:=PS;;;; DrawGraph - процедура малювання графіків

4. Вихідні тексти основних процедур програми

unit Unit1;

interface

uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, Math, StdCtrls, Spin, StrUtils, ExtCtrls;=array [- 100 .. 200] of extended;= class (TForm): TStringGrid;: TSpinEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TButton;: TStringGrid;: TImage;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox; Button1Click (Sender: TObject); FormCreate (Sender: TObject); EditXnExit (Sender: TObject); EditXoExit (Sender: TObject); SpinEditnKeyPress (Sender: TObject; var Key: Char); SpinEditnExit (Sender: TObject); PolynomsKeyPress (Sender: TObject; var Key: Char); CheckN1Click (Sender: TObject);

Function Fact (n: longint): longint;//?????????

Function C (n, k: integer): extended;//? ?? n?? kDelta (k: integer; y: Tarray; i: integer): extended;//?????? ? -?? ????. YiZapX;//????????? ?????? ? x-??

Function PolyNuton1:string;PolyNuton2:string;PolyGauss1:string;PolyGauss2:string;PolyStirling:string;PolyN1(x:extended):extended;PolyN2(x:extended):extended;PolyG1(x:extended):extended;PolyG2(x:extended):extended;PolyS(x:extended):extended;DrawGraph;

{Public declarations};: TForm1;: TArray;, i, j, k: integer;, x0, z, x, r: extended;, PN2, PG1, PG2, PS: string;

{$ R *.dfm}TForm1.DrawGraph;,scy,miny,maxy:extended;:integer;:=strtofloat(EditXo.text);:=(Strtofloat(EditXn.Text)-x0)/n;i:=0 to n do [i]:=strtofloat (setka.Cells [i +1,1]);:=(image1.Width - 30) / n;:=y [0];:=miny; i:=1 to n dominy> y [i] then miny:=y [i]; maxy