TP7. Странно заполняет динам. массив

[Человек_Борща]

Доброго времени суток!

Есть некий динам. массив 1..M x 1..N
M = 2
N = 2

заполняю:
1 2
1 2


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


Код:

type
  TDynArray = array[1..1,1..1] of Integer;
  TOneDynArray = array[1..1] of Integer;
var
  op,N,M:Integer;
  mass:^TDynArray;
  rmass:^TOneDynArray;
  i,j,d,iNum:Integer;
  sM,sN:string;
begin
 WriteLn('N = ');
 ReadLn(N);
 WriteLn('M = ');
 ReadLn(M);
 GetMem(mass,SizeOf(Integer)*N*M);
 GetMem(rmass,SizeOf(Integer)*M);
 
 for i:=1 to M do
 begin
  rmass^[i]:=0; //Обнуляю массив результата
 end;
 
 //Заполняю массив польз. вводом
 for i:=1 to M do
 begin
   for j:=1 to N do
   begin
   WriteLn('Vvedite element '+IntToStr(i)+' stroki,'+IntToStr(j)+' stolbca: ');
   iNum:=0;
   ReadLn(iNum);
   mass^[i,j]:=iNum;
   end;
 end;

 //Вывод заполненного массива:
 for i:=1 to M do
 begin
   for j:=1 to N do
   begin
     WriteLn('mass['+IntToStr(i)+','+IntToStr(j)+'] = '+IntToStr(mass^[i,j]));
   end;
 end;

M = 2
N = 2

Я заполняю так:
mass[1,1] = 1
mass[1,2] = 2
mass[2,1] = 1
mass[2,2] = 2

На печать выводит так:
mass[1,1] = 1
mass[1,2] = 1
mass[2,1] = 1
mass[2,2] = 2

Почему так, чт я делаю не так?

[Poma][a]

Это точно TP?
IntToStr в нем не было..

И массив у Вас 1 на 1.. а Вы его хотите N на M сделать.. вот он и косячит..

И не плохо было бы память освободить..

rmass^[i]:=0; //Обнуляю массив результата

Если у Вас нет процедур\функций, то можно и так оставить.. переменные будут локальные и сразу получат 0..

[Stilet]

И массив у Вас 1 на 1.. а Вы его хотите N на M сделать.. вот он и косячит..

Так он у него динамический:mass:^TDynArray;
А там действительно можно так написать.

[Аватар]

См. в #7 как работать с двумерным динамическим в паскале
http://www.programmersforum.ru/showthread.php?t=47171

[Человек_Борща]

Poma][a, я Str под IntToStr замаскировал.
Да, в Borland Pascal нет динам. массивов, компилятор не умеет этого, зато я умею.
Создал массив 1.1, дал памяти, вот и новый массив.

Самое странное, что мли сделать так:

 //Заполняю массив польз. вводом
 for i:=1 to M do
 begin
   for j:=1 to N do
   begin
   WriteLn('Vvedite element '+IntToStr(i)+' stroki,'+IntToStr(j)+' stolbca: ');
   iNum:=0;
   ReadLn(iNum);
   mass^[i,j]:=iNum;
   WriteLn('mass['+IntToStr(i)+','+IntToStr(j)+'] = '+IntToStr(mass^[i,j]));
   end;
 end;

 //Вывод заполненного массива:
 for i:=1 to M do
 begin
   for j:=1 to N do
   begin
     WriteLn('mass['+IntToStr(i)+','+IntToStr(j)+'] = '+IntToStr(mass^[i,j]));
   end;
 end;

то, по ходу ввода, в массиве лежат правильные числа. При повторном выводе массива, уже не правильные.

Смотрю пост 7 по ссылке. Ячего-то не понимаю, но там вроде одномерный массив, а мне надо M на N, т.н. M,N устанавливает пользователь.

[Аватар]

Там двумерный и для каждой строки отдельно выделяется память

ADD можно упростить примерно так

type TDynStroka = array[1..1] of Integer;
     TDynArray = array[1..1] of ^TDynStroka;
var N,M: Integer;
    mass: ^TDynArray;
    i,j: Integer;
begin
  N:=2;
  M:=2;
  GetMem(mass,SizeOf(TDynStroka)*M);
  for i:=1 to M do GetMem(mass^[i],SizeOf(Integer)*N);

  for i:=1 to M do
    for j:=1 to N do mass^[i]^[j]:=i*10+j;

  for i:=1 to M do
    for j:=1 to N do
      WriteLn('mass['+IntToStr(i)+','+IntToStr(j)+'] = '+IntToStr(mass^[i]^[j]));

  for i:=1 to M do FreeMem(mass^[i]);
  FreeMem(mass);

[Arigato]

В чем актуальность ТР7?

я Str под IntToStr замаскировал.

Для Write преобразование в строку не требуется.

Странно заполняет динам. массив

Ну так все верно, у вас же: TDynArray = array[1..1,1..1] of Integer;
То есть матрица 1*1. А для того, чтобы найти ячейку памяти, где будет элемент [i,j], надо ((i-1)*n+j-1)*2, где n - кол-во столбцов, 2 - размер в байтах для типа Integer. Так вот компилятору это n не известно, точнее, оно равно 1 исходя из размерностей матрицы.

по ходу ввода, в массиве лежат правильные числа. При повторном выводе массива, уже не правильные.

Адреса ячеек рассчитываются неправильно. Но так как вывод происходит из той же неправильной ячейки, то кажется, что все правильно.

[Аватар]

Кстати можно обойтись и одномерным массивом как в #1 обявлено, но обращаться чуть по хитрей

for i:=1 to M do
  for j:=1 to N do
    mass^[(i-1)*M+j]

[Человек_Борща]

В чем актуальность ТР7?

В преподе предмета наверное.

Кстати можно обойтись и одномерным массивом как в #1 обявлено, но обращаться чуть по хитрей

Для студента 1го курса это сильно мощно)
Вариант Аватара работает как должно.

[Poma][a]

Вот тоже самое на фряхе(тыц), но работает правильно (т.к. массив от 1 до 2..)
Так что.. не уверен, что так объявлять можно..