Синтаксис подключения модулей:

uses <список имен модулей>;

Структура модуля в языке Object Pascal:

unit <имя модуля>;

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

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

Const

Type

Var

Procedure

Function

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

Uses

Const

Type

Var

Procedure

Function

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

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

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

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

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

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

End.

СТРУКТУРЫ ДАННЫХ

Массивы

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

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

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

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

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;

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

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

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

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.