Многомерные массивы в Паскале

Что такое многомерные массивы в Паскале?

Как объявить многомерный массив в Паскале?

Многомерные массивы в Pascal

Если в массиве более одного измерения, то мы получаем многомерный массив.

Многомерные массивы в Паскале пример

Пример многомерного массива в Паскале:

здесь объявлен двумерный массив типа байт. У него два столбца и две строки. А где в описании array[1..2, 1..2] of Byte заданы столбцы и где строки? Первый диапазон 1..2 — это строки, а второй диапазон 1..2 — это столбцы. Если задать так: array[1..2, 1..3] of Byte, то будет две строки три столбца.

Простой пример работы с многомерным массивом в Паскале:

{ TMyArray } { @author Subbotin B.P. @see http://sbp-program.ru } type TByteMultiMassiv = array[1..2, 1..2] of Byte; procedure TMyArray.TestProc; var byteMassiv: TByteMultiMassiv; inn, jnn: Integer; begin { Заполняем массив } for inn := 1 to 2 do begin for jnn := 1 to 2 do begin byteMassiv[inn, jnn] := inn + jnn; end end; { Выводим значения элементов массива byteMassiv } Writeln(); Writeln(‘byteMassiv’); Writeln(); for inn := 1 to 2 do begin for jnn := 1 to 2 do begin Writeln(‘[‘ + IntToStr(inn) + ‘, ‘ + IntToStr(jnn) + ‘] = ‘ + IntToStr(byteMassiv[inn, jnn])); end end; ReadLn(); end;

Получаем:

У массива в примере две строки и два столбца.

Теперь пример двумерного массива, у которого две строки и три столбца:

{ TMyArray } { @author Subbotin B.P. @see http://sbp-program.ru } type TByteMultiMassiv = array[1..2, 1..3] of Byte; procedure TMyArray.TestProc; var byteMassiv: TByteMultiMassiv; inn, jnn: Integer; begin { Заполняем массив } for inn := 1 to 2 do begin for jnn := 1 to 3 do begin byteMassiv[inn, jnn] := inn + jnn; end end; { Выводим значения элементов массива byteMassiv } Writeln(); Writeln(‘byteMassiv’); Writeln(); for inn := 1 to 2 do begin for jnn := 1 to 3 do begin Writeln(‘[‘ + IntToStr(inn) + ‘, ‘ + IntToStr(jnn) + ‘] = ‘ + IntToStr(byteMassiv[inn, jnn])); end end; ReadLn(); end;

Получаем:

Многомерный массив в Паскале.