56 lines
1,006 B
ObjectPascal
56 lines
1,006 B
ObjectPascal
type TMatrix = array of array of double;
|
|
|
|
|
|
|
|
procedure DisplayMatrix(Memo: TMemo; Mat: TMatrix);
|
|
{Display specified matrix}
|
|
var X,Y: integer;
|
|
var S: string;
|
|
begin
|
|
S:='';
|
|
for Y:=0 to High(Mat[0]) do
|
|
begin
|
|
S:=S+'[';
|
|
for X:=0 to High(Mat) do
|
|
S:=S+Format('%4.0f',[Mat[X,Y]]);
|
|
S:=S+']'+#$0D#$0A;
|
|
end;
|
|
Memo.Lines.Add(S);
|
|
end;
|
|
|
|
procedure ZigzagMatrix(Memo: TMemo);
|
|
var Mat: TMatrix;
|
|
var X,Y,Inx,Dir: integer;
|
|
const Size = 10;
|
|
|
|
procedure Toggle(var I: integer);
|
|
{Toggle Direction and increment I}
|
|
begin
|
|
Dir:=-Dir;
|
|
Inc(I);
|
|
end;
|
|
|
|
|
|
procedure Step(var X,Y: integer);
|
|
{Take one step "Dir" direction}
|
|
begin
|
|
X:=X+Dir;
|
|
Y:=Y-Dir;
|
|
end;
|
|
|
|
begin
|
|
SetLength(Mat,Size,Size);
|
|
Inx:=0; X:=0; Y:=0; Dir:=1;
|
|
repeat
|
|
begin
|
|
Mat[X,Y]:=Inx;
|
|
if (X+Dir)>=Size then Toggle(Y)
|
|
else if (Y-Dir)>=Size then Toggle(X)
|
|
else if (X+Dir)<0 then Toggle(Y)
|
|
else if (Y-Dir)<0 then Toggle(X)
|
|
else Step(X,Y);
|
|
Inc(Inx);
|
|
end
|
|
until Inx>=Size*Size;
|
|
DisplayMatrix(Memo,Mat);
|
|
end;
|