Двумерный массив

1. Двумерный массив

2.

Двумерный массив представляет из себя
прямоугольную таблицу, которая состоит из строк и
столбцов.
Местоположение каждого элемента
определяется индексом(номером) строки и индексом
(номером) столбца.
А
строки
x
y
1
2
3
1
0
1
3
2
8
-2
13
A – имя массива;
x,y – индекс;
A [x,y] – элемент массива
столбцы
Пример: А [1, 3] – элемент 1 строки, 3 столбца

3.

Описание двумерного массива на языке
программирования Паскаль.
VAR <имя массива>: ARRAY [тип индекса] OF <тип компонента>;
Пример1: описать числовой целочисленный двумерный массив с
именем DIM, размером 10×10.
VAR DIM:ARRAY[1..10,1..10] OF INTEGER;
Пример2: описать числовой вещественный двумерный массив с
именем POL, размером 3×5.
VAR POL:ARRAY[1..3,1..5] OF REAL;

4.

Пример 3. Охарактеризовать заданный массив:
VAR ABC:ARRAY[1..5,1..8] OF REAL;
1.
2.
3.
4.
Массив двумерный, тип массива вещественный;
Имя массива – ABC;
Размер массива( максимальная длина) – 40;
Размерность равна 2.
Пример 4. Охарактеризовать заданный массив:
P
5
12
3
-4
-1
9

5.

Способы ввода элементов двумерного массива.
1. Способ ввода элементов через клавиатуру.
начало
x:=1;3
y:=1;3
Ввод A[x,y]
x:=1;3
y:=1;3
Вывод A[x,y] в столбец
1 этап
ввод
PROGRAM PRIMER;
VAR A:ARRAY[1..3, 1..3] OF INTEGER;
x,y:integer;
BEGIN
FOR x:=1 to 3 do
FOR y:=1 to 3 do
Begin
Writeln(‘A[‘,x,’,’,y,’]=‘);
read (A[x,y]);
End;
{readln;}
2 этап FOR x:=1 to 3 do
вывод FOR y:=1 to 3 do
Begin
Writeln(‘A[‘,x,’,’,y,’]=‘,A[x,y] );
End;
Readln;
End.
конец

6.

2. Заполнение элементов массива по формуле.
начало
x:=1;3
y:=1;3
1 этап
ввод
A[x,y]:= (x + 0.5) / y
x:=1;3
y:=1;3
Вывод A[x,y] в строку
PROGRAM PRIMER;
VAR A:ARRAY[1..3, 1..3] OF REAL;
x,y:integer;
BEGIN
FOR x:=1 to 3 do
FOR y:=1 to 3 do
Begin
A[x,y]:=(x+0.5)/y;
End;
FOR x:=1 to 3 do
FOR y:=1 to 3 do
2 этап Begin
Writeln(‘A[‘,x,’,’,y,’]=‘,A[x,y] );
вывод
End;
Readln;
End.
конец

7.

3. Заполнение элементов массива случайными числами.
начало
x:=1;3
y:=1;3
A[x,y]:=сл. число (-15;15)
x:=1;3
y:=1;3
Вывод A[x,y] в строку
1 этап
ввод
PROGRAM PRIMER;
VAR A:ARRAY[1..3, 1..3] OF INTEGER;
x,y:integer;
BEGIN
RANDOMIZE;
FOR x:=1 to 3 do
FOR y:=1 to 3 do
Begin
A[x,y]:=random (15+15)-15;
End;
FOR x:=1 to 3 do
2 этап FOR y:=1 to 3 do
вывод Begin
Writeln(‘A[‘,x,’,’,y,’]=‘,A[x,y] );
End;
Readln;
End.
конец

8.

Задан двумерный массив с именем А размером 3 на 4 с помощью датчика
случайных чисел на промежутке случайных чисел [-10; 20]. Вывести
элементы массива в строку, вывести отрицательные элементы.
начало
X:=1;3
y:=1;4
А[x,y]:= случайное
число из [-10;20]
1 этап
X:=1;3
y:=1;4
Вывод A[x,y] в
строку
2 этап

9.

X:=1;3
y:=1;4
А[x,y] < 0
3 этап
Вывод А[x,y]
конец
1. Составить программу по данной блок-схеме.
2. Выполнить трассировочную таблицу для элементов
массива:
20
-5
-10
3
10