+2,1]))- 16*(-sin(a*strtofloat(stringgrid1.Cells[i+1,1])*strtofloat(stringgrid1.Cells[i+1,1]))*(2*a*strtofloat(stringgrid1.Cells[i+1,1])))+5*(-sin(a*strtofloat(stringgrid1.Cells[i,1])*strtofloat(stringgrid1.Cells[i,1]))*(2*a*strtofloat(stringgrid1.Cells[i,1]))))/12);;TForm1.Button1KeyPress(Sender: TObject; var Key: Char); i: integer; i:=250 to 0 do.AlphaBlendValue:=i ;;; TForm1.FormClose (Sender: TObject; var Action: TCloseAction); i: integer; {i:=250 downto 0 do.AlphaBlendValue:=i ;;}; TForm1.Button5Click (Sender: TObject); x1, xn, t, h, a, b: real; f, N, i: integer; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= ) then ( Перевірте правильність введених значенийraquo;);.Button8.Enabled:=true;:=strtofloat(edit1.Text);:=strtofloat(edit2.text);:=strtofloat(edit5.Text);:=strtoint(edit3.Text);:=(xn-x1)/N;.cells[1,1]:=floattostr(x1);i:=1 to (N + 2) do.ColCount:=(N+2);.cells[i+1,1]:=floattostr(strtofloat(stringgrid2.cells[i,1])+h);:=strtofloat(stringgrid2.cells[i,1]);.Cells[i,2]:=floattostr(-Sin(a*t*t)*(2*a*t));;i:=1 to (N + 2) do.Cells [i, 0]:= x + inttostr (i) ;;; TForm1.Button6Click (Sender: TObject); r: integer; N: integer; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= ) then ( Перевірте правильність введених значень ) ;: =strtoint (edit3.Text); r:=1 to (N + 2) do.Cells[r,1]:=laquo;raquo;;.Cells[r,2]:=laquo;raquo;;.Cells[r,3]:=laquo;raquo;;;;TForm1.Button7Click(Sender: TObject); r: integer; N: integer; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= laquo ; ) then ( Перевірте правильність введених значень );:=strtoint (edit3.Text); r:=1 to (N + 2) do.Cells[r,1]:=laquo;raquo;;.Cells[r,2]:=laquo;raquo;;.Cells[r,3]:=laquo;raquo;;;;TForm1.Button8Click(Sender: TObject); i, n: integer; x1, xn, a, b, h: real; (edit1.text= ) or (edit2.text= ) or (edit3.text= ) or (edit5.text= ) then ( Перевірте правильність введених значень );:=strtofloat (edit5.Text);:=strtoint (edit3.Text) - 1;:=strtofloat (edit1.Text);:=strtofloat (edit2.Text);:=(xn-x1)/n; i:=1 to (n + 1) do.Cells[i,3]:=floattostr((cos(a*strtofloat(stringgrid2.Cells[i+3,1])*strtofloat(stringgrid2.Cells[i+3,1]))+cos(a*strtofloat(stringgrid2.Cells[i+2,1])*strtofloat(stringgrid2.Cells[i+2,1]))+cos(a*strtofloat(stringgrid2.Cells[i+1,1])*strtofloat(stringgrid2.Cells[i+1,1])))/3+h*(91*(-sin(a*strtofloat(stringgrid2.Cells[i+3,1])*strtofloat(stringgrid2.Cells[i+3,1]))*(2*a*strtofloat(stringgrid2.Cells[i+3,1])))- 63*(-sin(a*strtofloat(stringgrid2.Cells[i+2,1])*strtofloat(stringgrid2.Cells[i+2,1]))*(2*a*strtofloat(stringgrid2.Cells[i+2,1])))+57*(-sin(a*strtofloat(stringgrid2.Cells[i+1,1])*strtofloat(stringgrid2.Cells[i+1,1]))*(2*a*strtofloat(stringgrid2.Cells[i+1,1])))- 13*(-sin(a*strtofloat(stringgrid2.Cells[i,1])*strtofloat(stringgrid2.Cells[i,1]))*(2*a*strtofloat(stringgrid2.Cells[i,1]))))/36);;;TForm1.N41Click(Sender: TObject) ;. Button8.Click ;; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char); (key in [ 0 .. 9 , # 8, - ]) thenkey: =# 0 ;; TForm1.Edit2KeyPress (Sender: TObject; var Key: Char); (key in [ 0 .. 9 , # 8, - ]) thenkey:=# 0; ; TForm1.Edit3KeyPress (Sender: TObject; var Key: Char); (key in [ 0 .. 9 , # 8, - ]) thenkey:=# 0 ;; TForm1.Edit5KeyPress (Sender: TObject; var Key: Char); (key in [ 0 .. 9 , # 8, - ]) thenkey:=# 0 ;; TForm1.Edit4KeyPress (Sender: TObject ; var Key: Char); (key in [ 0 .. 9 , # 8, - ]) thenkey:=# 0 ;; TForm1.N23Click (Sender: TObject); Form1. ColorDialog2.Execute then.Image1.Canvas.Pen.Color:=Form1.ColorDialog2.Color ;; TForm1.N20Click (Sender: TObject); Form1.ColorDialog1.Execute then.Image1.Canvas.Brush.Color:=Form1.ColorDialog1. Color ;; TForm1.N24Click (Sender: TObject); Form1.ColorDialog3.Execute then; TForm1.N25Click (Sender: TObject);.Checked:=true;.Checked:=false;.ComboBox1.Visible:=false;.Timer1.Enabled:=true;.ShowModal;;TForm1.N26Click(Sender: TObject);.Checked:=true;.Checked:=false;.ComboBox1.Visible:=false;.Timer1.Enabled:=true;.ShowModal;;TForm1.F1Click(Sender: TObject);.Checked:=true;.Checked:=false;.ComboBox1.Visible:=true;.Image1.Picture.LoadFromFile(laquo;1.bmpraquo;);.ShowModal;;TForm1.F2Click(Sender: TObject);.Checked:=true;.Checked:=false;.Timer1.Enabled:=true;.ComboBox1.Visible:=true;.Image1.Picture.LoadFromFile(laquo;122.bmpraquo;);.ShowModal;;TForm1.N9Click(Sender: TObject) ;. show ;;. Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, Buttons, Menus, StdCtrls;=class (TForm): TSaveDialog ;: TImage ;: TPopupMenu ;: TMenuItem ;: TTimer ;: TMenuItem ;: TTimer ;: TComboBox; FormPaint (Sender: TObject); N1Click (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean); Timer1Timer (Sender: TObject); Image1Click (Sender: TObject); Timer2Timer (Sender: TObject); ComboBox1Change (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; Unit1;, x2: real;// Межі зміни аргументу функції, y2: real;// Межі зм...
