Шутилина Л.А., Lshutilina@yandex.ru. A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5] - презентация

1 Шутилина Л.А.,

2 A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5] Двумерный массив можно представить себе в виде таблицы, в которой все строки и столбцы пронумерованы. Каждый элемент такого массива имеет два индекса: Первый индекс – это номер строки; Второй индекс – номер столбца.

3 Описание двумерных массивов: Const n=4; m=5; Var A :array [1..n, 1..m] of integer; СтрокиСтолбцы A [2,4] A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5] A [4,2]

4 Двумерные массивы создаются путем ввода данных с клавиатуры, с помощью случайных чисел и вычислений по формулам. Для формирования массива используется два вложенных цикла. Первый цикл перебирает строки, а второй – столбцы. For i:=1 to n do for j:=1 to m do a[i, j]:=random(100); For i:=1 to n do for j:=1 to m do readln (a[i, j]); For i:=1 to n do for j:=1 to m do a[i, j]:=i*j;

5 For i:=1 to n do begin writeln; end; for j:=1 to m do write (a[i, j]);

6 Примеры решения задач. Задача 1. Создать программу для формирования таблицы умножения (таблицы Пифагора). Вывод массива:

7 Пример. Составить программу, которая в двумерном массиве случайных чисел находит в каждой строке наибольший элемент и записывает его в одномерный массив. m – количество строк в двумерном массиве и длина одномерного массива; n – количество столбцов; A[1..m,1..n] - двумерный массив; B[1..m] – одномерный массив max – вспомогательная переменная для нахождения наибольшего элемента в каждой строке.

8 Program max_str; Uses crt; Const m=5; n=6; var i,j:byte; a: array [1..m, 1..n] of integer; b: array [1..m] of integer; max: integer; begin clrscr; randomize; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; writeln ('Массив из максимальных значений в строках:'); for i:=1 to m do begin max:=a[i,1]; for j:=2 to n do begin if a[i,j]>max then max:=a[i,j]; end; b[i]:=max; write (b[i]:4); end; readln; end.