Тема: «Двумерные массивы. Преобразование и построение матриц»

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

Begin

For i:= 1 to n do

For j:= 1 to n do

tabl[i,j]:=Random(10);

End;

Begin

Randomize;

Enter (m);

End.

С помощью процедуры Enter осуществляется ввод двумерного массива размерностью 10´10 случайными числами из диапазона от 0 до 10. Задание диапазона значений определяется константой n=10.

Описание двухмерного массива производится следующим образом:

Const

n=<ранг матрицы>;

Type

matr=array [1..n,1..n] of <тип элементов матрицы>;

Var

<имя матрицы>: matr;

Примеры решений задач

1. Процедура ввода матрицы.

Procedure Enter;

Var

ii, jj: integer;

Begin

For jj:=1 to n do

For ii:=1 ot n do

write('g[',ii,',',jj,']=>');readln (g[ii,jj]);

End;

2. Процедура вывода матрицы на экран. (В данной процедуре используется процедура GotoXY, содержащаяся в модуле CRT. Поэтому необходимо при использовании этой процедуры указать имя библиотеки CRT в разделе описания библиотек Uses)

ProgramName_Program;

UsesCrt;

. . .

Procedure List;

Var

ii, jj: integer;

Begin

For jj:=1 to n do

For ii:=1 to n do begin

gotoxy(3*ii, jj);

write (g[ii,jj]);

end;

End;