, T_Mxy, . , , , .
- , .
procedure _(_: array of )
procedure Open_Vec(Vector: array of Real)
// .
:
- - -;
, ;
- .
- :
Low(Vec) , - 0.
High(Vec) - Word, , 1. .
3.
( 2) Cr_Mx Cr_My - . , , . , .
procedure Cr_Mx(Str_X, Str_d: string; Var MM: array of Real);
{ . - -. Str_X - 0. Str_d - dX.}
var i: Byte; //
dX: Real; // d
Begin
MM[0]:=StrToFloat(Str_X); { Str_X
MM[0] M. 0 }
dX:= StrToFloat(Str_d); // Str_d dX
for i:=1 To High(MM) do //High(MM )
MM[i]:= MM[i-1]+dX; //
End;
procedure Cr_My(Mx: array of Real; var My: array of Real; n: real);
{ My FXn(Mx[i], n). y - -. n .}
var i: byte; //
Begin
for i:= 0 to High(Mx) do // 0
My[i]:= FXn(Mx[i], n);
End;
.
. Mx procedure Cr_Mx(Str_X, Str_d: string; Var MM: array of Real) |
- MM[0]:=StrToFloat(Str_X) dX:= StrToFloat(Str_d); |
MM[i]:= MM[i-1]+dX |
i, 1..High(MM) |
True |
|
|
My[i]:= FXn(Mx[i], n)
FXn Mx[i]
n
I, 1..m
m
True
. My Mx
procedure Cr_My(Mx: T_Mxy; var My: T_Mxy; n: real)
- , , . , . :
Var
A: array of Integer; //
. SetLength.
SetLength(var S; NewLength: Integer) - ,
S - - ;
NewLength - ,
0.
, , ( ). nil Finalize.
Var
, : array of Integer;
.
begin //
SetLength(A,10); //10 Integer
SetLength(B,20); //20
// :
:= nil; //
Finalize(); //
.