Var f: Text;

{определение площади треугольника по формуле Герона – по трем его сторонам a, b, c – вещественного типа}

Function Geron(a, b, c: Real): Real;

{обмен значениями двух переменных x и y - вещественного типа}

Procedure Swap(Var x, y : Real);

Implementation раздел реализации

Function Geron;

Var p: Real;

Begin

p := (a + b + c) / 2.0; {полупериметр}

Geron := Sqrt(p * (p –a) * (p – b) * (p – c));

End;

Procedure Swap;

Var temp: Real;

Begin

temp := x;

x := y;

y := temp;

End;

Begin инициирующий раздел

Assign(f, ‘D:\User\f.txt’);

End.

Сохраним этот файл на диске с именем My_modul.pas.

Компиляция модулей

В среде Turbo Pascal имеются средства, управляющие способом компиляции модулей и облегчающие разработку крупных программных проектов.

Результатом компиляции модуля является файл с тем же именем и расширением tpu (Turbo Pascal Unit), который можно хранить на диске так же, как и exe-файл.

Меню Compile, управляющее процессом компиляции, содержит следующие опции:

Compile

Make

Build

Destination (Memory, Disk)

Primary File…

Первые три опции – это режимы компиляции:

Compile – все модули, входящие в компилируемый модуль, должны быть предварительно откомпилированы (имеется их объектный код). Если какой-либо файл tpu не обнаружен, то система ищет одноименный файл с исходным текстом (расширением pas) и при обнаружении компилирует его,

Make – система следит за возможными изменениями, внесенными программистом в исходный текст модуля. Если в текст модуля были внесены изменения, то система заново его компилирует и только потом приступает к компиляции основной программы. Кроме того, если изменения были внесены в интерфейсный раздел модуля, то будут перекомпилированы и все другие модули, обращающиеся к нему,

Build – автоматически компилируются все модули, независимо от времени их обновления. Это самый надежный, но и самый медленный режим подготовки модульной программы.

Далее идут опции:

Destination – для задания места сохранения tpu- и exe-файлов: при значении Disk они будут сохранены на текущем диске, Memory – в оперативной памяти. В среде Borland Pascal эти файлы автоматически сохраняются на диске, там нет этой опции в меню Compile,

Primary File – позволяет задавать файл, который будет автоматически добавляться в начало исходного текста перед компиляцией. Таким способом удобно отлаживать модули, подключая к ним головную программу в качестве Primary File. При этом в процессе отладки не придется постоянно перемещаться между окнами основной программы и отлаживаемого модуля.

Полностью отлаженный и протестированный модуль в виде tpu-файла может быть распространен с приложением к нему заголовка и интерфейсного раздела (но не раздела реализации!) исходного текста модуля в качестве инструкции по использованию с подробными комментариями. Обращаться к такому модулю в вызывающей программе можно указанием его имени в операторе Uses:

Uses CRT, My_modul;