[vasketsov]

Crazy Wolf

но как это сделать на Паскале?

Точно так же.

[XXXX Pro]

Чтобы матрица была произвольного размера, память для нее надо выделять динамически, и адреса подсчитывать вручную. (Т.е. к смещению базового адреса прибавить (номер строки-1)*(число столбцов)*размер элемента+(номер столбца-1)*размер элемента)
Все остальное - примерно также, как и в C.

XXXX Pro
А попдробнее....как в Паскале с адресами работать.. если можно кусок любого кода для примера....

[Crew]

Если это учебная программа должна быть написана под ДОС, то мои соболезнования.
Сейчас языки срастаются потихоньку, дерут друг у друга самое ороше, а вот Паскаль 7.... там например выделение памяти через new совсем не так как в С работает.

В С как просто было

char *str = new char[20];
//не нужно стало
delete []str;

А в паскале так и не получилось динамически выделять память, (у меня конечно) он постоянно хотел знать сколько надо выделять и до маразма дошло  -  на каждый вариант свой тип данных вводить, под который он уже тогда память динамически выделял. Может и проще можно

Ну тогда рискуя вызвать общий гнев попрошу привести кусок кода с использованием ООП в ПАСКАЛЕ....

Добавлено:

Т.е. я так понимаю что в Паскале нужно создать подобие класса в Си++.... как это делать?

[vasketsov]

type
TElement = Integer;

TRow = class
 Items:array of TElement;
end;

TMatrix = class
 Rows:array of TRow;
end;

Вот примерно так.

[Crew]

Я извиняюсь, конечно, это работать будет только в Delphi мне кажется, потому что границы массива не определены. (учитывая стиль T??????, тем более)
а под ДОС можно было *в функцию передавать массив без границ, только он его извлекать не хотел.
Crazy Wolf
А на чем писать надо, может "мой" досовский паскаль и не нужен?


[s]Исправлено: Crew, 8:14 15-01-2003[/s]

[shurikan]

Crew

(учитывая стиль T??????, тем более)

Не факт, что это Delphi. Нормальное Поскакальное обьявление. Похоже на стандарт Delphi - да, но и только.

vasketsov
А это тягомотно. Можно проще, правда без функций-членов:
Crazy Wolf
(допустим, тебя попросили в данный момент создать матрицу 6x7)

Код:

TMatrix = class
public:
 *V: Variant;
 *constructor Create(const Bounds: array of Integer);
end;

constructor TMatrix.Create(const Bounds: array of Integer);
begin
 *V := VarArrayCreate(Bounds, varInteger);
end;


Matrix: TMatrix;

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

 *Matrix.V[1,1] := 1; {и т.д.}
end.

[s]Исправлено: shurikan, 9:12 15-01-2003[/s]

Да! Это на Delphi



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

Crew

А на чем писать надо, может "мой" досовский паскаль и не нужен?

Как я понял он то и нужен.... поэтому и затеял эту дискуссию... Просто не слышал что бы в обычном Паскале такие вещи вершить можно.....