[Animal]

Crazy Wolf
На обычном досовском Паскале можно, но я тебе примерчик без ООП сделал, просто по работе с динам. памятью:
uses crt,dos;
Type
pint=^integer;
pbyte=^byte;
pstring=^string;
Var
x,y,i,j,N,temp:integer;
size:longint;
Matrix:pointer;
{А вот это универсальная функция, позволяющая}
{работать с динам. данными, как с обычным массивом}
{p - имя динам. переменной, V - размер одного элемента в матрице в байтах, N - число столбцов, i - координата по вертикали, j - координата по горизонтали}
{координаты считаются от единицы!}
function GetElem(var p:pointer;N,V,i,j:integer):pointer;
var adr:longint;
* * p1:pointer;
begin
adr:=((i-1)*N+(j-1))*V;
p1:=pointer(longint(p)+adr);
GetElem:=p1;
end;

BEGIN
clrscr;
{спросим размерность матрицы}
readln(x);{число столбцов}
readln(y);{число строк}
N:=x
{Допустим матрица со значениями типа integer
в досевом паскале переменная типа integer занимает 2 байта,
в Delphi - 4 байта}
{Выделяем динамич. память}
size:=(x)*(y)*2;
getmem(Matrix,size);

//Пример бестолковой работы с матрицей
i:=3;{номер строки}
j:=4;{номер столбца}
pint(GetElem(Matrix,N,2,i,j))^:=temp;
temp := pint(GetElem(Matrix,N,2,i,j))^;

{Освобождаем динамич. память}
freemem(Matrix,size);{можно не делать, если конец программы}
END.

Успешной сдачи!

[s]Исправлено: Animal, 23:34 15-01-2003[/s]

[Crew]

Animal
Этот даже я себе скопирую, пригодится

[shurikan]

Animal

{Выделяем динамич. память} size:=(x)*(y)*2; getmem(Matrix,size);

Я бы не стал использовать константу, представляющую в д. случае размер типа Integer. Лучше использовать sizeof

[Animal]

shurikan
Я не писал оптимальный с т.зрения эффективности или с т.зрения красоты/краткости написания код. Это просто пример по работе с динамической памятью в досовском паскале, на мой взгляд довольно наглядный. Кстати, если смотреть формально, то использование функции вместо константы замедлит работу.

[vasketsov]

shurikan
Тем более что он будет равен 4, если в Win32.

2ALL
Большое сенкс...дошло до меня теперь....
Будете в Славном городе Стерлитамаке, что в Башкирии
:beer:

[shurikan]

Animal

использование функции вместо константы замедлит работу.

sizeof вовсе не функция, если применяется для типа, вместо неё компилятор подставляет константу. В случае DOS - это будет 2, ну а для Win32, как правильно заметил vasketsov - 4. И не в красоте дело, просто её использование позволяет писать переносимый код.

[shurikan]

Я тут глянул и понял, что немного облажался:

Код:

Matrix.Create([1,6,1,7]); {Первая пара нач. и конеч. индексы первого измерения,
 *вторая пара - соотв для второго. Нумеруются от 1 до 6 и от 1 до 7}

Должно быть так:

Код:

Matrix := TMatrix.Create([1,6,1,7]);

Поскольку конструктор - функция класса.
Извините...


[s]Исправлено: shurikan, 7:39 17-01-2003[/s]

[vasketsov]

shurikan
Animal
В случае .NET вообще sizeof запрещено как небезопасный код.

[Animal]

shurikan
Да знал я, знал, что в Win32 тип integer 4 байта, в коментариях ведь написано в моем первом посте - почитай! Смысл то примера - простая работа с динам. памятью на стандартном паскале DOS и только.
vasketsov
Странно, что может быть небезопасного в функции sizeof. Это ни к тому, что я тебе не верю, просто любопытно.