Procedure

Function

Procedure

Function

Begin {начинает раздел инициализации (инициирующая часть)}

{В этом разделе указываются операторы начальных установок, необходимых для запуска корректной работы модуля, т.е. подготовительные операции. Эти операторы выполняются при начальном запуске программы в порядке их описания в uses- предложениях основной программы.

Если операторы инициализации не требуются, то ключевое слово Begin может быть опущено}

End.

Пример. Составить программу расчета . При этом вычисление функции tg х (х – аргумент в градусах) и факториала n! объединить в отдельный модуль.

unit matem; { заголовок модуля }

Interface

{ список uses отсутствует, так как нет необходимости в использовании других модулей }

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

function tg(x:real):real;

procedure fact(n:byte; var f:real);

Implementation

{ список uses отсутствует, так как нет необходимости в использовании других модулей }

function tg; { реализация функции tg x }

Begin

x:=x*pi/180;

tg:=sin(x)/cos(x)

end;

procedure fact; { реализация процедуры вычисления

var i:byte; факториала }

begin f:=1;

for i:=1 to n do

f:=f*i;

end;

{ инициирующая часть отсутствует, так как в данном модуле инициализация не требуется }

end.

Далее этот модуль подключается к основной программе с условным названием Proba.

Program Proba; { основная программа }

uses Matem, Printer; { список используемых модулей }

var al,y:real; k,m:byte; f1,f2:real;

Begin

write('al=');readln(al);

write('k=');readln(k);

write('m=');readln(m);

{ обращения к процедуре модуля matem }

fact(k,f1); fact(m,f2);

{ обращения к функции модуля matem }

y:=((1+tg(al)*tg(al))/f1)*(1-1/f2);

writeln(Lst, 'y=',y:12);

end.

Date: 2016-02-19; view: 390; Нарушение авторских прав