Var Ozenka : Array [1..2,1..3] Of Word;
В этом случае по оператору присваивания:
Ozenka[2,1]:=3;
трудно догадаться, что у Петрова П. по математике оценка3.
Опишем этот массив, введя новые типы данных:
Type Fam = (Ivanov, Petrov);
Predm = (Math, Phis, Inf);
Var Ozenka : Array [Fam, Predm] Of 2..5;
Сейчас можно поставить Петрову П.оценку по математике следующим образом:
Ozenka[Petrov,Math]:=3;
Конечно, такое описание массива повышает наглядность программы.
При решении некоторых задач полезно использовать массивы размерностью более двух, например, трехмерные массивы. Такие массивы представляют собой объемную конструкцию типа куба. Этот куб состоит из нескольких слоев -двумерных массивов. Каждый из них имеет строки и столбцы.
Например, целочисленный массив Aразмером3слоя, по 4строки и5 столбцов в каждом слое, можно описать так:
Var a: Array [1..3, 1..4, 1..5] Of Integer;
и представить в следующем виде:
Примеры:
1.Задать элементы целочисленного вектораvectornслучайными числами, лежащими в диапазоне отvect_minдоvect_max.
Для решения этой задачи используется стандартная функция – генератор случайных чисел Random(k).При каждом обращении к этой функции она вырабатываетцелое случайное число, лежащее в диапазоне от0доk - 1.
Program Primer_1;
Uses WinCrt;
Const n = 10; задание исходных данных в виде именованных констант
vect_min = -10;
vect_max = 20;
Var i : Word; параметр цикла
Vector : Array [1..n] Of Integer; описание вектора с использованием константы n
Begin
ClrScr; очистка экрана
Randomize; запуск генератора случайных чисел
For i:=1 To n Do заполнение вектора случайными числами
Vector[i]:=Random(vect_max – vect_min + 1) + vect_min;
For i:=1 To n Do форматный вывод вектора на экран в одну строку
Write(Vector[i]:5);
WriteLn; переход на новую строку на экране
ReadLn; задержка картинки на экране до нажатия на ENTER
End.
2.Задать элементы целочисленного массиваmassivnmслучайными числами, лежащими в диапазоне отmass_minдоmass_max. Полученный массив вывести на экран построчно.
Program Primer_2;
Uses WinCrt;
Const n = 5;
m = 8;
mass_min = -50;
mass_max = 50;
Var i, j : Word; параметры циклов
Massiv : Array [1..n, 1..m] Of Integer; описание массива с использованием констант n и m
Begin
ClrScr;
Randomize; запуск генератора случайных чисел
For i:=1 To n Do заполнение массива случайными числами
For j:=1 To m Do в заданном диапазоне
Massiv[i, j]:=Random(mass_max – mass_min + 1) + mass_min;
For i:=1 To n Do форматный вывод массива на экран построчно
Begin
For j:=1 To m Do
Write(Massiv[i, j]:5);
WriteLn; переход на новую строку на экране
End;
WriteLn;
ReadLn;
End.
3.Задать элементы целочисленного массиваmassivnmв виде чисел от 1доn*m. Полученный массив вывести на экран построчно:
Program Primer_3;
Uses WinCrt;
Const n = 3;
m = 5;