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

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

	1-й день	2-й день	3-й день	4-й день
Метеостанция 1	-8	-14	-19	-18
Метеостанция 2	25	28	26	20
Метеостанция 3	11	18	20	25

Требуется:

1. Распечатать показания термометров всех метеостанций за 2-й день

2. Определить среднюю температуру на третьей метеостанции

3. Распечатать всю таблицу

4. Распечатать, в какие дни и на каких метеостанциях температура была в диапазоне 24-26 градусов тепла

Для этого обозначим показания термометров индексированной переменной с двумя индексами по следующей схеме:

t[1,1] t[1,2] t[1,3] t[1,4]

t[2,1] t[2,2] t[2,3] t[2,4]

t[3,1] t[3,2] t[3,3] t[3,4]

Обратите внимание, что первый индекс в скобках обозначает номер строки (метеостанции), второй - номер столбца (дня) прямоугольной таблицы.

Программа:

{В памяти отводим массив из 3*4=12 ячеек под значения типа Integer индексированной переменной t. Будем называть его двумерным массивом:}

VAR t :array [1..3, 1..4] of Integer;

s,i,j :Integer;

BEGIN{Зададим значения элементов массива примитивным присваиванием:}

t[1,1]:=-8; t[1,2]:=-14; t[1,3]:=-19; t[1,4]:=-18;

t[2,1]:=25; t[2,2]:= 28; t[2,3]:= 26; t[2,4]:= 20;

t[3,1]:=11; t[3,2]:= 18; t[3,3]:= 20; t[3,4]:= 25;

{А теперь распечатаем второй столбец массива:}

for i:=1 to 3 do WriteLn(t[i,2]);

{Определим среднее значение элементов третьей строки:}

i:=3;

s:=0;

for j:=1 to 4 do s:=s+t[i,j];

WriteLn(s/4 :10:3);

{Распечатаем всю таблицу:}

for i:=1 to 3 do for j:=1 to 4 do WriteLn (t[i,j]);

{Распечатаем станции и дни с температурой 24-26 градусов:}

for i:=1 to 3 do for j:=1 to 4 do

if (t[i,j]>=24) AND (t[i,j]<=26) then WriteLn ('Станция ',i,' день ',j)

END.

Задание 107: Вычислить разницу между максимальной и минимальной температурой во всей таблице.

4. Какие бывают массивы

Массивы могут быть одномерные, двумерные, трехмерные, четырехмерные и т.д.:

array [1..10] of Integer-одномерный массив 10 ячеек

array [1..10, 1..5] of Integer-двумерный массив 50 ячеек

array [1..10, 1..5, 1..2] of Integer-трехмерный массив 100 ячеек

array [1..10, 1..5, 1..2, 1..3] of Integer-четырехмерный массив 300 ячеек

Массивы бывают не только числовые, но и символьные, строковые и прочие. Подходит любой известный нам тип. Например:

array [1..50] of Char

Это означает, что в каждой из 50 ячеек должно находиться не число, а произвольный символ. Еще один пример:

array [1..50] of String

Здесь в каждой из 50 ячеек должна находиться строка. Примеры программ с такими массивами мы увидим в 1.13.

Границы индексов в квадратных скобках тоже могут быть разными, например:

array [20..60] of Real

Здесь под вещественные числа отводится 41 ячейка.

array [0..9, -10..30] of Real

Здесь под вещественные числа отводится 10*41=410 ячеек.

Вообще индексы могут быть не только числовыми, но и любыми порядковыми. Например,

array [‘А’..’Я’] of Real

Зачем это нужно, будет ясно в 1.8.

Полная синтаксическая информация о массивах будет приведена в 3.8.

Какая польза от массивов при программировании игр?Вряд ли хоть одну «умную» игру можно запрограммировать без применения массивов. Возьмем хотя бы «крестики-нолики» на поле 3 на 3. Вам придется рисовать на экране большие клетки, а в них – нолики (кружочки) после ваших ходов и крестики (пересекающиеся линии) после ходов компьютера. Но этого недостаточно. Чтобы компьютер мог поставить крестик в свободном поле, он должен хотя бы знать, а в каких клетках крестики и нолики уже стоят. Анализировать для этого информацию о пикселах экрана очень неудобно. Гораздо разумнее заранее организоватьVAR a: array[1..3,1..3] of Byteи записывать туда в нужные места нолики после ходов человека и единички после ходов компьютера. Сразу же после записи в массив 0 или 1 программа должна рисовать в соответствующем месте экрана кружок или крестик. Мыслить компьютер мог бы при помощи примерно таких операторов –if (a[1,1]=0) AND (a[1,2]=0) then a[1,3]:=1.Это очевидный защитный ход компьютера.