Презентация на тему: Язык Паскаль. Лекция 7 - Двумерные массивы

Двумерные массивы Лекция №7

План лекции Понятие двумерного статического массива Ввод – вывод элементов массива Заполнение массива случайными числами Квадратные матрицы Транспонирование матриц Умножение матрицы на вектор Умножение матрицы на матрицу Удаление строки Включение столбца Операции с элементами матриц Преобразование матрицы в одномерный массив Многомерные массивы

Двумерный массив При решении практических задач часто приходится иметь дело с различными таблицами данных, математическим эквивалентом которых служат матрицы. Такой способ организации данных, при котором каждый элемент определяется номером строки и номером столбца, на пересечении которых он расположен, называется двумерным массивом (матрицей) или таблицей. Их можно занести в память компьютера, используя понятие двумерного массива. Положение элемента в массиве определяется двумя индексами. Они показывают номер строки и номер столбца. Например: A[7,6], D[56,47].

Пример объявления двумерного массива

Ввод – вывод элементов двумерного массива Const n=6; m=8; Var a : array [1..n, 1..m] of integer; I, j : integer; Begin writeln (‘ Заполнение элементов целочисленного массива A[6,8] ‘); for i:=1 to n do for j:=1 to m do begin write (‘a[‘, i , ‘, ‘ , j, ‘] =‘); read (a[ i , j ]); end; writeln (‘В памяти компьютера сформирован двумерный массив с элементами’); for i:=1 to n do begin for j:=1 to m do write (a[ i , j ]:6); writeln; end End.

Ввод – вывод элементов двумерного массива Генерация элементов двумерного массива случайными числами. Const n=6; m=8; Var a : array [1..n, 1..m] of integer; I, j : integer; Begin randomize; for i:=1 to n do begin for j:=1 to m do begin a[ i, j ]:=random(101); write (a[ i , j ]:6); end; writeln; end End.

Квадратные матрицы В квадратной матрице количество строк и столбцов - одинаково и равно n. Любая квадратная матрица имеет элементы главной и побочной диагонали. Диагональные элементы главной диагонали : a[1 , 1];a[2 , 2];a[3 , 3];….;a[n , n]. Элементами побочной диагонали являются : a[1 , n];a[2 , n-1];a[3 , n-2];…;a[n-1 , 2];a[n , 1].

Квадратные матрицы В качестве примера рассмотрим задачу формирования квадратной матрицы порядка n случайными числами и нахождения произведения элементов главной диагонали и суммы элементов ниже побочной диагонали. Отметим элементы главной диагонали для нахождения их произведения.

Квадратные матрицы И элементы ниже побочной диагонали для поиска их суммы.

Квадратные матрицы Const n=9; Var a : array [1..n, 1..n] of integer; I, j, s, p : integer; Begin randomize; for i:=1 to n do begin for j:=1 to n do begin a[ i, j ]:=random(101); write (a[ i , j ]:6); end; writeln; end p:=1; for i:=1 to n do p:=p*a[ i, i ]; s:=0; for i:=2 to n do for j:=n-i+2 to n do s:=s+a[ i, j ]; writeln (p,s); End.

Транспонирование матриц В данном алгоритме транспонирования матрицы необходимо заменить строки матрицы ее столбцами, а столбцы - строками, т.е. вычислить b[ i,j ] :=a[ j,i ], где i=1,…,n; j=1,…,m. Матрица А Матрица B

Транспонирование матриц Const n=5; m=7; Var i, j : integer; a : array [1..n,1..m] of integer; b : array [1..m,1..n] of integer; Begin randomize; writeln (‘Сформирована матрица A’); for i:=1 to n do begin for j:=1 to m do begin a[ i,j ]:=random(31)-15; write (a[ i,j ]:6); end; writeln(‘’); end;

Транспонирование матриц Транспонированную матрицу можно получить в исходном массива А. Для квадратной матрицы n*n для этого необходимо поменять местами каждый элемент верхнего треугольника с соответствующим элементом нижнего (диагональные элементы переставлять не нужно). При этом для каждой строки нужно выполнять перестановку для элементов, расположенных правее главной диагонали, с элементами соответствующего столбца, расположенными ниже главной диагонали. При перестановке используем вспомогательную переменную tmp, помещая в нее для временного хранения один из переставляемых элементов, чтобы не потерять его значение.

Транспонирование матриц Const n=9; Var i, j, tmp : integer; a : array [1..n,1..n] of integer; Begin randomize; writeln (‘Сформирована квадратная матрица A’); for i:=1 to n do begin for j:=1 to n do begin a[ i,j ]:=random(101)-50; write (a[ i,j ]:6); end; writeln(‘’); end;

Умножение матрицы на вектор Для вычисления произведения С матрицы А размером n*m на вектор B размером m необходимо вычислить , i=1,….,n. Использование вспомогательной переменной s позволяет уменьшить время выполнения программы за счет исключения обращения в цикле по j к элементам массива C.

Умножение матрицы на вектор Const n=6; m=9; Var i, j, s : integer; a : array [1..n,1..m] of integer; b : array [1..m] of integer; c: array [1..n] of integer; Begin randomize; writeln (‘Сформирована матрица A’); for i:=1 to n do begin for j:=1 to m do begin a[ i,j ]:=random(101)-50; write (a[ i,j ]:6);

Умножение матрицы на матрицу Для умножения матрицы А размером n*k на матрицу B размером k*m необходимо вычислить , i=1,…,n; j=1,…,m.

Умножение матрицы на матрицу write (a[ i,j ]:6); end; writeln(); end; for i:=1 to n do for j:=1 to m do begin s:=0; for l:=1 to k do s:=s+a[ i,l ]*b[ l,j ]; c[ i,j ]:=s; end;

Удаление строки матрицы Алгоритм удаления строки является сходным с алгоритмом удаление элементов одномерного массива, за тем исключением, что операция переноса элементов выполняется для каждого столбца при переборе строк. Рассмотрим программу удаления из матрицы А заданной с клавиатуры строки T.

Удаление строки матрицы k:=n-1; for i:=t to k do for j:=1 to m do a[ i,j ]=a[ i+1,j ]; writeln (‘Получена матрица ‘); for i:=1 to k do begin for j:=1 to m do write (a[ i,j ]); writeln; end End.

Включение столбца в матрицу Алгоритм включения столбца в матрицу является сходным с алгоритмом включения элементов одномерного массива, за тем исключением, что операция переноса элементов выполняется для каждой строки при переборе столбцов. Рассмотрим пример, где необходимо в квадратной матрице А вставить столбец, содержащий ее элементы главной диагонали - следующим за столбцом, содержащим минимальный элемент матрицы. Для этого перепишем диагональные элементы в массив B, найдем минимальный элемент и его индекс по столбцу. Перебирая столбцы, сдвинем все столбцы на позицию вправо начиная от найденного индекса столбца минимального элемента. Занесем в следующий столбец за индексом минимального элемента - элементы столбца, которые хранятся в массиве B.

Включение столбца в матрицу Const n=7; Var i, j, min, j_min, m: integer; a : array [1..n,1..n+1] of integer; b : array [1..n] of integer; Begin randomize; writeln (‘Сформирована матрица A’); for i:=1 to n do begin for j:=1 to n do begin a[ i,j ]:=random(101); write (a[ i,j ]:6); end;

Операции с элементами матриц Предыдущий пример может служить так же и примером преобразования матрицы, однако довольно часто встречаются задачи на преобразования матриц за счет изменения значений их элементов. Рассмотрим пример на умножение заданной с клавиатуры строки матрицы на элемент, являющийся "седловой" точкой, т.е. например, минимальным элементом из максимальных элементов по строкам. Для решения такой задачи следует определить значение "седловой" точки. Это можно сделать, организовав поиск максимального элемента по каждой строке и занесение его в элемент соответствующий индексу этой строки одномерного массива. Далее найти минимальный элемент в получившемся массиве, который и будет являться "седловой" точкой. После алгоритм становится достаточно не сложным. Необходимо ввести с клавиатуры индекс строки для преобразования и в цикле по столбцам преобразовать все элементы заданной строки, умножив их значение на полученный элемент "седловой" точки.

Операции с элементами матриц Const n=7; m=6; Var i, j, max, sedlt, t: integer; a : array [1..n,1..m] of integer; b : array [1..n] of integer; Begin randomize; writeln (‘Сформирована матрица A’); for i:=1 to n do begin for j:=1 to m do begin a[ i,j ]:=random(101); write (a[ i,j ]:6); end; writeln; end;

Преобразование матрицы в одномерный массив Обработка одномерных статических массивов осуществляется быстрее, чем двумерных того же размера, что часто требует выполнения указанного преобразования. Требуется переслать элементы матрицы n*m в одномерный массив того же размера по строкам с сохранением порядка следования элементов. Для этого нужно соответствующим образом согласовать индексы исходной матрицы А и формируемого одномерного массива Х.

Преобразование матрицы в одномерный массив Const n=3; m=4; Var i, j : integer; a : array [1..n,1..m] of integer; x : array [1..n*m] of integer; Begin randomize; writeln (‘Сформирована матрица A’); for i:=1 to n do begin for j:=1 to m do begin a[ i,j ]:=random(101); write (a[ i,j ]:6); end; writeln; end;

Многомерные массивы Массивы могут быть более чем двумерными. Пример: … a : array [1..5, 1..3, 1..16, 1..4 ] of real; … for i:=1 to 5 do for j:=1 to 3 do for k:=1 to 16 do for m:=1 to 4 do a[ i,j,k,m ]:=random(101); …