Interface

<интерфейсная часть> {раздел описаний}

IMPLEMENTATION

<исполняемая часть> {описания подпрограмм}

BEGIN

<инициирующая часть> {фрагмент программы}

END. {признак конца модуля}

Таким образом, модуль состоит из заголовка и трех частей, любая из которых может отсутствовать. Заголовок модуля должен совпадать с именем файла с расширением.pas, где записан этот модуль, этот заголо­вок служит для связи с другими модулями и основной программой.

Модуль может содержать обращения к другим модулям (в интерфейсной или

исполняемой частях). Недопустимо обращение к самому себе.

Для связи основной программы с модулями используется предложение

USES <список имен модулей через запятую>,

например: USES MODUL, CRT, GRAPH; подключает три модуля.

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

Program Unit15;

Uses unitma,crt;

const a: mas = (1,2,3,4,5,6,7,8,9,10);

b: mas = (11,22,33,44,55,66,77,88,99,100);

c: mas =(123,234,435,456,567,678,890,899,990,999);

var aa, bb, cc: mass;

n, ch, i: integer;

Begin

clrscr;

writeln('Введите элемент, который надо вставить в массив A: ');

readln(ch);

Vstavel(a,ch,aa);

writeln(Введите элемент, который надо вставить в массив B: ');

readln(ch);

Vstavel(b,ch,bb);

writeln(Введите элемент, который надо вставить в массив C: ');

readln(ch);

Vstavel(c,ch,cc);

readkey;

End.

{****************************************************}

Дата добавления: 2015-09-05