Помогите пожалуйста описать двумерный массив с изменяемой размерностью. Паскаль
Добавлено: 11 апр 2010, 20:20
Здравствуйте.
Не могу решить простую задачу. Подскажите пожалуйста как описать в Паскале двумерный числовой произвольный массив (кол-во строк и столбцов можно будет задавать в начале программы). Примеров с заданием размерности массива с помощью константы много, а про произвольный ничего не ясно. Пробовал использовать типизированные константы, начинает ругаться компилятор, видимо описываю неправильно.
Очень буду признателен.
Не могу решить простую задачу. Подскажите пожалуйста как описать в Паскале двумерный числовой произвольный массив (кол-во строк и столбцов можно будет задавать в начале программы). Примеров с заданием размерности массива с помощью константы много, а про произвольный ничего не ясно. Пробовал использовать типизированные константы, начинает ругаться компилятор, видимо описываю неправильно.
Всю голову себе сломал.program zadanie;
uses crt;
const a:integer=2;
b:integer=2;
type mas=array[1..a, 1..b] of integer;
var massiv: mas;
procedure InsertMas(var mass: mas; a,b: integer);
var i,j:integer;
begin
for i:=1 to a do
for j:=1 to b do
begin
write('Введите [',i,',',j,']-ый элемент массива: '); readln(mass[i,j]);
end;
end;
procedure PrintMas(mass: mas; a,b: integer);
var i,j:integer;
begin
for i:=1 to a do
for j:=1 to b do
begin
gotoxy(j*5+50,i);
write(mass[i,j]);
end;
end;
BEGIN
clrscr;
writeln('Введите количество строк в массиве '); readln(a);
writeln('Введите количество столбцов в массиве '); readln(b);
InsertMas(massiv);
PrintMas(massiv);
readln;
readln;
END.
Очень буду признателен.