Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

Объявление двумерного массива 
Как и одномерный массив, двумерный можно объявить двумя 
способами: 
1 способ: 
Type имя типа=array[n..m,k..p] of тип элементов; 
Var имя массива: имя типа; 

---

137 
2 способ: 
var имя массива: array [n..m,k..p] of тип элементов, 
где константы n, m указывают интервал изменения индексов строк; 
константы k, p – интервал изменения индексов столбцов, имя типа 
и имя массива задает пользователь, тип элементов – любой тип языка 
ПаскальАВС, кроме файлового типа. Тип элементов массива назы-
вается базовым. 
Ввод элементов двумерного массива 
Задание элементов можно производить как путем ввода 
элементов с клавиатуры, так и путем задания с помощью функции 
случайных чисел.
Пусть объявлен массив: 
Type tabl=array[1..10,1..10] of Integer; 
Var a:tabl; k, p, I, j : Integer; 
Запишем процедуру ввода элементов двумерного массива 
с помощью функции случайных чисел: 
PROCEDURE Wwod2 (k,p:Integer; Var a:tabl); 
Var i, j : Integer; 
BEGIN 
For i:=1 to k do 
For j:=1 to p do a[i,j]:=Random(1000); {Целые числа из [0; 1000)} 
END; 
Процедура ввода элементов того же двумерного массива, 
с клавиатуры. 
PROCEDURE Wwod1(k,p:integer; Var a:tabl); 
Var i, j : Integer; 
BEGIN 
For i:=1 to k do {Цикл по строкам} 
For j:=1 to p do {Цикл по столбцам} 
Begin 
Writeln(‘Ввести элемент a[’, I, ’,’, j, ’]’); 
Readln(a[I, j]; 
End; 
END. 

---

138 
Блок-схема (рис. 9.1) ввода элементов двумерного массива 
 
Рис. 9.1 
Вывод элементов двумерного массива на экран 
 
Обычно элементы двумерного массива выводят на экран в виде 
прямоугольной таблицы, чтобы были видны строки и столбцы. 
Запишем процедуру вывода массива, созданного в п. 2. 
PROCEDURE Wiwod (k, p:Integer; a: tabl); 
Var i, j : Integer; 
BEGIN 
For i := 1 to k do 
Begin 
For j := 1 to p do Write (a[ i, j]:6); 
Writeln; 
end; 
END; 

---

139