{$R-}
Type
TType = Word;
Type
PVector = ^TVector;
TVector = Array[1 .. 1] of TType;
PDynMatrix = ^TDynMatrix;
TDynMatrix = Array[1 .. 1] of PVector;
function max (const a:PVector):integer;
Var
i: Word;
begin
max:=0;
For i := 1 To round(SizeOf(PVector) / SizeOf(TType)) Do
if max< a^[i] then max:=a^[i];
end;
procedure ChPos(PV1, PV2:PVector);
var
p:pointer;
begin
p:=PV1;
PV1:=PV2;
PV2:=p;
end;
Var
mxDynamic: PDynMatrix;
n, m,i, j: Word;
Begin
write ('m='); ReadLn(m);{размеры}
write ('n='); ReadLn(n);//векторы
GetMem(mxDynamic, m * SizeOf(PVector));{память}
For i := 1 To n Do
GetMem(mxDynamic^[i], n * SizeOf(TType));
For i := 1 To n Do Begin{чтение}
WriteLn;
For j := 1 To m Do begin
write (' a[',i,',',j,']=');
ReadLn(mxDynamic^[I]^[J]);
end;
End;
For i := 1 To n Do Begin{печать}
WriteLn;
For j := 1 To m Do begin
write (' a[',i,',',j,']=');
WriteLn(mxDynamic^[I]^[J]:4);
end;
End;
ChPos(mxDynamic^[1],mxDynamic^[n]);//МЕНЯЮ, а оно не меняется
For i := 1 To n Do Begin{печать}
WriteLn;
For j := 1 To m Do begin
write (' a[',i,',',j,']=');
WriteLn(mxDynamic^[I]^[J]:4);
end;
End;
readln;
read;
For i := 1 To m Do
FreeMem(mxDynamic^[i], m * SizeOf(TType));
For i := 1 To n Do
FreeMem(mxDynamic, n * SizeOf(PVector));
End.
почему столбики не меняются местами?
заранее благодарен.