Динамическая матрица Опции

[kent]

Захотел использовать динамическую матрицу в задаче, но что то не получается... Попытался сначала сделать ввод вывод, но вводишь к примеру M = 3, N = 3...

Вводишь
1 2 3
1 2 3
1 2 3

Выводит
1 1 1
1 1 2
1 2 3

Вот код:

uses crt;
var M,N : Integer;
type
    MyType = Integer;
type
    MyMatrix = array [1..1,1..1] of MyType;
    TMatrix = ^MyMatrix;

{-----------------------------------------------}
Procedure ReadMatrix(var mx : TMatrix);
var i,j : Integer;
begin
     for i := 1 to M do
        for j := 1 to N do begin
           Write('Element [',i,',',j,']:');
           ReadLn(mx^[i,j]);
        end;
end;
{-----------------------------------------------}

{-----------------------------------------------}
Procedure WriteMatrix(var mx : TMatrix);
var i,j : Integer;
begin
     for i := 1 to M do
        for j := 1 to N do begin
           Write(mx^[i,j]:3);
           if j = N then WriteLn;
        end;
end;
{-----------------------------------------------}

var a : TMatrix;
    Size : Word;

begin
     {$R-}
     Clrscr;
     Write('Input M:');
     ReadLn(M);
     Write('Input N:');
     ReadLn(N);
     Size := M * N * SizeOf(MyType);
     GetMem(a,Size);
     WriteLn('Input Matrix:');
     ReadMatrix(a);
     WriteLn;
     WriteLn('Source Matrix:');
     WriteMatrix(a);
     FreeMem(a,Size);
     Readkey;
end.

Подскажите что не так...

Сообщение отредактировано: kent - 30.07.2005 20:39

[volvo]

Подскажите что не так...

Подсказываю:

GetMem(a,Size);

Если бы все было так просто... Вообще-то описания типов должны быть такими:

type
  MyType = Integer;
  PVector = ^TVector;
  TVector = Array[1 .. maxInt div sizeof(MyType)] Of MyType;

  PMatrix = ^TMatrix;
  TMatrix = Array[1 .. MaxInt div sizeof(PVector)] Of PVector;

Ну, и выделение/освобождение памяти, соотвественно:

  ReadLn(M);
  GetMem(a, M*SizeOf(PVector));
  ReadLn(N);
  For i := 1 To M Do
    GetMem(a^[i], N*SizeOf(MyType));

Кстати, в процедуре распечатки матрицы у тебя лишний If - зачем?
Вот так не лучше? ;)

Procedure WriteMatrix(mx : PMatrix);
var i, j : Integer;
begin
  for i := 1 to M do begin
    for j := 1 to N do
      Write(mx^[i]^[j]:3);
    WriteLn;
  end;
end;