Инициализационная часть

Date: 2015-10-07; view: 505.

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

Модули транслируются отдельно. В отличии от основных программ, результатом трансляции которых будут файлы с расширением exe, модули получают расширение tpu. При трансляции основной программы все модули (tpu-файлы) присоединятся к ней автоматически. Если в каком-либо из модулей были внесены изменения, то при трансляции Вашей программы все модифицированные модули также будут предварительно перетранслированы (эту функцию реализует среда ТР).

Полностью отлаженный модуль (tpu-файл) можно подсоединить к файлу стандартных модулей TURBO.TRL с помощью утилиты TRUMOVER. В этом случае он будет загружаться в память автоматически при запуске компилятора.

Пример. Вычислить S_n=(n+1)(a₀+a_n)/2

Unit Ar ;

Interface

Function Tg ( x : rеal ) : real ;

Procedure Sum ( a0 , an : real ; N : integer ; var Sn : real ) ;

Implementation

Function Tg ( x : real ) : real ;

Begin

Tg : = sin(x)/cos(x) ;

End;

Procedure Sum (a0 , an : real ; n : integer ; var Sn : real ) ;

Begin

Sn : = ( n + 1 ) * ( a0 + an ) / 2;

End;

End.

Сохраним этот модуль в виде файла с именем Ar.pas и оттранслируем его отдельно. Для этого необходимо предварительно установить режим компиляции Destination Disk ( в команде Compile главного меню ) .

В результате трансляции будет сформирован файл Ar.tpu. Затем введем программу, использующую этот модуль:

Program test;

Uses Ar;

Var s , x , a0 , an : real;

N : integer ;

Begin

Readln ( x ) ;

Writeln ( '…' , tg ( x ) ) ;

Readln ( a0 , an, n ) ;

Sum ( a0 , an , n , s ) ;

Writeln ( s ) ;

End .