двумерный массив в паскале

Ответ от Gennady[гуру]
Доброго времени суток.
>> var
>> n,i: integer;
>> mas: array [1..n,1..n] of integer;
Компилятор не пропустит такого безобразия, Grand...
А если по сути дела, то Krab Bark совершенно правильно предложил. Позволю себе продемонстрировать пример с динамическим выделением памяти.
{отключаем проверку компилятором границ массива. Необходимо для дин. массивов в Турбо Паскале}
{$R-}
type
MyType = Word; {для примера тип данных матрицы - беззнаковое целое}
PMyVector = ^MyVector;
{"строка" динамической матрицы}
MyVector = Array[1..1] of MyType;
MyArrayPtr = ^MyArray;
{сама матрица - представляется как массив указателей на "строки"}
MyArray = Array[1..1] of PMyVector;
var
DynamicArray : MyArrayPtr; {указатель на матрицу}
Count, i, j : Word;
begin
Write('Число элементов массива: ');
ReadLn(Count); {это ваша размерность матрицы}
{выделяем память под указатели на "строки"}
GetMem(DynamicArray, Count * SizeOf(PMyVector));
{и для каждой "строки" - выделяем память для хранения данных}
for i := 1 to Count do
GetMem(DynamicArray^[ i ], Count * SizeOf(MyType));
for i:=1 to Count do {Rows}
for j:=1 to Count do {Columns}
{немного изменяется способ обращения к элементу матрицы}
DynamicArray^[ i ]^[j] := i * j; {присвоение значений элементам}
{вывод на экран для проверки}
for i:=1 to Count do begin
WriteLn;
for j:=1 to Count do Write(DynamicArray^[ i ]^[ j ]:4);
end;
{освобождаем память в обратном порядке: }
{сначала - удаляем все "строки"}
for i := 1 to Count do
FreeMem(DynamicArray^[ i ], Count * SizeOf(MyType));
{а теперь и указатели на них ...}
FreeMem(DynamicArray, Count * SizeOf(PMyVector));
end.
Удачи!
Gennady
(51235)
Исходя из начальных условий, проще это вряд-ли... Дело в том, что размерность массива должна быть определена еще на этапе компиляции для того, чтобы под него в сегменте данных программы была выделена память. А поскольку вы хотите вводить эту размерность с клавиатуры, то остается только две возможности: объявление избыточного массива и работа с динамической памятью (или скажем так, мне не известны другие способы ). Все было бы ничего, но в стандарте пакаля нет динамических массивов. Поэтому и приходится устраивать такие пляски с бубном, как то: отключение проверки границ компилятором, объявление массивов всего из одного элемента, "ручное" выделение нужного объема памяти.