;
/ / * 0.95;:=1; i:=0 to n - 1 do [1, i]:=ms [12 + r, i + 1]; r=1 then:= 3; i:=0 to n - 1 do [2, i]:=ms [13 + r, i + 1]; i:=0 to n - 1 do [3, i]:=ms [15 + r , i + 1];; i:=0 to n - 1 do [i]:=ms [12 + r, i + 1]; (w, ww, a, q, ss, n); i:=0 to n - 1 do [i]:=ms [12 + r, i + 1]; (w, ww, a, 5, n); j:=1 to l do.ch.Series [j - 1]. Clear;. ch.Series [j - 1]. AddArray (h [j]);; j:=4 to 7 do («прогноз» + inttostr (strtoint (form1.ComboBox2.Items.Strings [r - 1 ]) +5 * (j - 3)));. ch.Series [j - 1]. Clear;. ch.Series [j - 1]. AddArray (h [j]);; interpol1 (wmat: tmatrix; t: Integer; var wi: tvector);, k, l, j, gg: integer;, s, xx: real;:=0;:=0; k:=1 to 16 dol:=1 to 5 do ( xx-round (xx)) <> 0 then:=0; i:=0 to 15 do:=1; j:=- 45 to 65 doi <> j then p:=p*(xx-j)/(i-j);:=p*wmat[t,i+1];:=s+p;;:=wmat[t,k];[gg]:=s;:=gg+1;:=xx+0.2;;;TForm1.Button3Click(Sender: TObject); i, j: integer;: real;, ss: double;; (ms, 13, k0); (ms, r, k1); (ms, r +6, k2); i:=0 to ( (n * 3) - 1) do [1, i +1]:=k0 [i]; i:=0 to n * 3 - 1 do [i]:=k0 [i]; i:=1 to 1 do:=0;. ch.Series [i - 1]. Clear; j:=0 to n * 5 do.Ch.Series [i - 1]. AddXY (xx, k0 [j]);:=xx + 0.2;;
{}; I:=0 to N * 3 - 1 doJ:=0 to N * 3 - 1 do [I, J]:=0; I:=0 to N * 3 -2 do [i + 1, i]:=sqr (sqr (1 - k1 [i] / 1000)) * (1 - k1 [i] / 1000); [n - 1, n - 1]:=sqr ( sqr (1 - k1 [n - 1] / 200)) * (1 - k1 [n - 1] / 200); I:=10 to n * 3-1 do [0, i]:=5 * k2 [ i] / 2000; I:=0 to (N * 3) - 1 doJ:=0 to (N * 3) - 1 do [I, J]:=A1 [i, j]; i:=0 to n * 3 - 1 do [i]:=k0 [i]; (w, ww, a1, q, ss, n * 5); i:=0 to n * 3 - 1 do [i]:=k0 [i ]; (w, ww, c1, 5, n * 5); i:=1 to 3 do:=0;. ch.Series [i +3 - 1]. Clear; j:=0 to n * 5 do . Ch.Series [i +3-1]. AddXY (xx, h [i +1 +2, j]);:=xx +1 / 5;;;; TForm1.ComboBox2Change (Sender: TObject);;: =form1.ComboBox2.ItemIndex +1;; TForm1.Button4Click (Sender: TObject);, J, l: integer;, ss: double;; I:=0 to N - 1 doJ:=0 to N - 1 do [ I, J]:=0; I:=0 to N - 2 do [i + 1, i]:=sqr (sqr (1 - ms [r, i + 1] / 1000)) * (1 - ms [ r, i + 1] / 1000); [n - 1, n - 1]:=sqr (sqr (1 - ms [r, n] / 200)) * (1 - ms [r, n] / 200) ; I:=0 to n - 1 do [0, i]:=5 * ms [r + 6, i + 1] / 2000; I:=0 to N - 1 doJ:=0 to N - 1 do [ I, J]:=A [j, i];
/ / * 0.95;:=1; i:=0 to n - 1 do [i]:=ms [r + 12, i + 1]; (w, ww, c, q , ss, n);. ch.Series [0]. AddArray (ww);. Text:=floattostr (q);; TForm1.FormActivate (Sender: TObject); i: integer;: string;; i:=1 to 6 do:=floattostr(ms[i,0]);.ComboBox2.Items.Add(str);;.ComboBox2.ItemIndex:=0;;TForm1.Button5Click(Sender: TObject);i:integer;.StringGrid1.ColCount:=76;.StringGrid2.ColCount:=76;.StringGrid3.ColCount:=76;(ms,13,k0);(ms,r,k1);(ms,r+6,k2);i:=1 to 75 do.StringGrid1.Cells [i, 0]:=FloatToStr (k0 [i - 1]);. StringGrid2.Cells [i, 0]:=FloatToStr (k1 [i - 1]);. StringGrid3.Cells [ i, 0]:=FormatFloat («0.000E +00», k2 [i - 1]);;. ShowModal;;.
«Unit2.pas»
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=class (TForm): TMemo;
{Private declarations}
{Public declarations};: Tformdat;
{$ R *. dfm}.
«Unit3.pas»
Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls;=class (TForm): TStringGrid;: TStringGrid;: TStringGrid;: TLabel;: TL...
