Тема 8. Модули в языке Pascal.

Многомерные массивы.

Процедуры генерации и вывода массива.

1. Зададим в виде константы максимально возможное количество элементов массива. Для большинства задач будет достаточно 100 элементов.

const n=100

2. Объявим тип массива

Type Tmas 1d=array[1..n] of real;

Назначение элементам массива типа real не является принципиальным.

3. Процедуры генерации

procedure GenMas1d(p:integer;a,b:integer);

var mas1d:Tmas1d);

var i:integer;

begin

for i:=1 to p do

mas1d[i]:=a+Random(b-a);

Генерируем случайным образом массив из р элементов, каждый из которых лежит в интервале от а до b.

4. Вывод массива

Procedure PrintMas1d(p:integer; S, t:byte; mas1d:Tmas1d);

var i:integer;

begin

for i:=1 to p do

write(mas1d[i]:S:t,’ ‘);

wtiteln;

end;

Пример.

Положительные элементы массива из 20-ти элементов заменить их квадратами, а отрицательные – нулями.

Var a:Tmas1d;

Procedure WorkMas(p:integer; var mas1d; Tmas 1d);

Var i:integer;

Begin

For i:=1 to p do

Begin

if masld[i].>0 then mas1d[i]:=sqr(mas1d[i])

else mas1d[i]:=0;

End;

End.

Begin

Clrscr;

Randomize;

GenMas1d(20,20,20,a);

PrintMas1d(20,7,5,а);

WorkMas(20,а);

PrintMas1d(20,7,5,а);

Readln;

End.

В языке Паскаль имеется возможность работы как с одномерными массивами(вектор), так и с двумерными(матрица), так и с массивами большей размерности.

На практике массивы размерности больше двух используются редко.

Пусть имеется двумерный массив A размерности n*n. Под размерностью массива понимают количество строк и количество столбцов.

Замечание: при обращении к двумерному массиву сначала указывается номер строки, затем номер столбца.

Замечание: при объявлении двумерного массива как совокупности одномерных можно сказать следующее, если A:Tmatr, то обращение A[i,j] реализует обращение к элементу массива с индексом i, а обращение A[i] реализует обращение к строке с номером i.

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

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