Решение задач на применение многомерных массивов в Паскале

Решение задач на применение многомерных массивов в Pascal

Задача 1. Создать массив случайных чисел, размерностью четыре на четыре. Выбрать из первого и третьего столбцов все элементы больше пяти и вывести их.

Посмотрим решение этой задачи

{ TMyArray } { @author Subbotin B.P. @see http://sbp-program.ru } type TByteMultiMassiv = array[1..4, 1..4] of Byte; procedure TMyArray.TestProc; var byteMassiv: TByteMultiMassiv; inn, jnn: Byte; begin { Заполняем массив случайными числами } Randomize; for inn := 1 to 4 do begin for jnn := 1 to 4 do begin byteMassiv[inn, jnn] := Random(10); end end; { Выводим значения всех элементов массива intMassiv } Writeln(); Writeln(‘byteMassiv’); Writeln(); for inn := 1 to 4 do begin for jnn := 1 to 4 do begin Writeln(‘[‘ + IntToStr(inn) + ‘, ‘ + IntToStr(jnn) + ‘] = ‘ + IntToStr(byteMassiv[inn, jnn])); end; end; { Выводим значения всех элементов массива byteMassiv, которые больше 5 } Writeln(); Writeln(‘values more then 5’); Writeln(); { Проходим первый столбец } jnn := 1; for inn := 1 to 4 do begin if byteMassiv[inn, jnn] > 5 then Writeln(‘[‘ + IntToStr(inn) + ‘, ‘ + IntToStr(jnn) + ‘] = ‘ + IntToStr(byteMassiv[inn, jnn])); end; { Проходим третий столбец} jnn := 3; for inn := 1 to 4 do begin if byteMassiv[inn, jnn] > 5 then Writeln(‘[‘ + IntToStr(inn) + ‘, ‘ + IntToStr(jnn) + ‘] = ‘ + IntToStr(byteMassiv[inn, jnn])); end; ReadLn(); end;

Получаем:

Задача 2. Создать массив случайных чисел, размерностью четыре на четыре. Определить сколько раз встречается в нём число, хранящееся в ячейке [3, 3].

{ TMyArray } { @author Subbotin B.P. @see http://sbp-program.ru } type TByteMultiMassiv = array[1..4, 1..4] of Byte; procedure TMyArray.TestProc; var byteMassiv: TByteMultiMassiv; inn, jnn, total: Byte; begin { Заполняем массив случайными числами } Randomize; for inn := 1 to 4 do begin for jnn := 1 to 4 do begin byteMassiv[inn, jnn] := Random(10); end end; { Выводим значения всех элементов массива intMassiv } Writeln(‘byteMassiv’); for inn := 1 to 4 do begin for jnn := 1 to 4 do begin Writeln(‘[‘ + IntToStr(inn) + ‘, ‘ + IntToStr(jnn) + ‘] = ‘ + IntToStr(byteMassiv[inn, jnn])); end; end; { Выводим значение, хранящееся в ячейке [3, 3] } Writeln(); Writeln(‘[3, 3] = ‘ + IntToStr(byteMassiv[3, 3])); Writeln(); { Находим количество элементов массива со значениями, равными byteMassiv[3, 3] } total := 0; for inn := 1 to 4 do begin for jnn := 1 to 4 do begin if byteMassiv[inn, jnn] = byteMassiv[3, 3] then total := total + 1; end; end; Writeln(‘total = ‘ + IntToStr(total)); ReadLn(); end;

Получаем:

Массив случайных чисел.