Interface {интерфейс модуля}

uses {подключение других модулей}

const

type

var

procedure

function

Implementation {реализация}

uses

const

type

var

procedure

function

Initialization {инициализация}

<операторы> {исполняются один раз перед выполнением }

{операторов программы, включающей модуль }

finalization {завершение}

<операторы> {исполняются один раз после завершения}

{операторов программы, включающей модуль }

end.

3. Структуры данных

3.1. Массивы

Массив – это структура данных, состоящая из фиксированного числа элементов, имеющих один и тот же тип и расположенных в памяти последовательно.

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

Массив – это структура данных с произвольным доступом, то есть время доступа к значению элемента массива не зависит от номера элемента.

Синтаксис описания массива:

array[<размерность>] of <тип элементов>;

Пример:

type

ArrayType1 = (one, two, three);

ArrayType2 = 1..5;

var

mas_int : array[- 5..5] of integer;

mas_real : array[1..7, 1..4] of real;

mas_byte1 : array[ArrayType1] of byte;

mas_byte2 : array[ArrayType2] of byte;

begin

mas_int[- 4] := 10;

mas_real[2, 5] := 10.5;

mas_byte1[one]:= 75;

mas_byte2[2] := mas_byte1[one];

end;

3.1.1. Действия над массивами

Над массивами, как едиными целыми, допустимы только операции сравнения =, <> и операция присваивания. Массивы, участвующие в этих операциях, должны иметь одинаковые размерности и типы элементов.

Пример ввода-вывода значений элементов массива:

const

N=2; M=3;

type

massiv= array[1..N, 1..M] of real; {2-мерный массив, N строк и M столбцов}

{ элементы вещественного типа }

var

A, B : massiv; { описание 2-мерных массивов A и B }

C :array[1..10] of integer; { описание одномерного массива C из }

{ 10 элементов целого типа }

I, j : byte; { индексы элементов массивов }

begin

{ввод с клавиатуры значений массива C}

for i:=1 to 10 do

readln(C[i]);

{инициализация массива A случайными значениями}

randomize; { Инициализация датчика случайных чисел }

for i:=1 to N do

for j:=1 to M do

A[i, j]:= random(10); {случайное число в диапазоне от 0 до 10 }

{присвоение элементам B соответствующих значений элементов A }

b:=a; { возможно только для массивов одинакового типа! }

{вывод на экран значений массива B по строкам}

for i:=1 to N do begin

for j:=1 to M do begin { вывод i–й строки массива B }

write(b[i, j]);

end;

writeln; { переход на новую строку }

end;

end.

3.1.2 Передача массивов в качестве параметров

Рассмотрим функцию вычисления суммы значений элементов одномерного массива. Входной параметр этой подпрограммы – одномерный массив.