3 3,
type T2Ar_Real = array of array of Real; // implementation
var M2:T2Ar_Real; //
begin // -
SetLength(M2, 3); // = 3 (
)
SetLength(M2[0], 3);// 0- , 0
SetLength(M2[1], 3);// 1-
SetLength(M2[2],3);// 2-
3.
: , type T2Ar_Real = array of array of Real;
, var M2:T2Ar_Real;
Edit1, N;
Cr_2Mx N x N.
:
, N;
;
.
procedure Cr_2Mx(Str: String; var M2: T2Ar_Real; var N: integer);
{Str }
{ var M2 }
{ var N , }
var i, cod: Integer; // i , cod - -
begin If Str ='' //
Then begin
ShowMessage(' N!');
exit //
end; // if Str
Val(Str, N, od); // Str N
if cod = 0 //
Then begin
SetLength(M2, N); // - N
for i:= 0 to N -1 do // i- , 0
SetLength(M2[i], N);
End
Else begin
ShowMessage(' N!');
exit;
End;
End;
true |
true |
For |
Exit |
Str ='' |
if |
. Cr_2Mx(Str: String; var M2: T2Ar_Real; var N: integer) |
Val(Str, N, Cod) |
false |
N |
Exit |
SetLength(M2[i], N) i- |
SetLength(M2, N) - N |
if |
0.. N-1 |
N |
Cod = 0 |
true |
4.
. Randomize. , , .
procedure TForm1.FormActivate(Sender: TObject);
Begin
Randomize; //
End;
Randomize Random(Range: Integer) RandomRange(const AFrom, ATo: Integer): Integer.
|
|
, Random, :
Range , X:= Random 0 <= X < 1;
Range, X:= Random(n) 0 <= X < n; 10 20 X:= Random(10)+11.
RandomRange(const AFrom, ATo: Integer): Integer Math , Delphi uses.
Uses
Windows, Messages, , Math;
RandomRange(const AFrom, ATo: Integer): Integer;
AFrom ATo
.
TForm1.Button1Enter Cr_2Mx (. 3); , , 0 <= M[i, j] < 1; .
procedure TForm1.Button1Enter(Sender: TObject);
var i, j: Integer;
Begin
Label1.Caption:= ''; //
Cr_2Mx(LabeledEdit1.Text, M, N); //
for i:= 0 to N -1 do // i
Begin
for j:= 0 to N -1 do // j
Begin
M[i, j]:= Random;
Label1.Caption:= Label1.Caption + #9+FloatToStr(M[i, j])+#9;
end; // j
Label1.Caption:= Label1.Caption+#13; //
end; // i
End;
. TForm1.Button1Enter(Sender: TObject) |
for |
For |
i=0.. N-1 |
M[i, j]:= Random |
J=0.. N-1 |
Cr_2Mx(LabeledEdit1.Text, M, N) |