Реферат Табулювання функцій в інтегрованому середовищі програмування Delphi

: TGroupBox;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TButton;: TImage;: TGroupBox;: TLabel;

х1: TLabel;

х2: TLabel;

Результат: TLabel;: TEdit;: TEdit;: TMemo;: TImage;: TBevel;: TLabel;: TButton; Click (Sender: TObject); Click (Sender: TObject); Click (Sender : TObject);

{Private declarations}

{Public declarations};: TForm1;

{$ R *. dfm} TForm1.Button1Click (Sender: TObject);: real;: integer;: = TObject);: integer;: real;: = StrToInt (Edit3.Text); <= 3 then f: = x +1; <= -3 then f: = 1/(x * x) +1;. Text: = FloatToStr (f);; TForm1.Button3Click (Sender: TObject);, i, x1, x2: integer;: real;: = StrToInt (edit5.Text);: = StrToInt (edit6.Text);. clear ;

memo1.Lines.Add ('результат табулирования функції');

forx: = x1 to x2 do: = (sin (x) * sin (x) * (cos (x))/x +1) + x +3/1 + cos (x * x);. Lines.Add (FloatToStr (f));;;.