Создание модуля и подключение его к проекту

В соответствии с заданием создадим модуль, в котором вычисление значений Y(x) оформим в виде функции, а вычисление S(x) – в виде процедуры. Для создания модуля откроем в главном меню пункт File, выберем опцию New(Новый…), затем Unit. Откроется окно с «пустым» модулем Unit2. С помощью опции Save As… меню File сохраним модуль в папке с файлами проекта, присвоив ему имя, например, UnFuncProc.

В этом модуле операторы вычисления Y(x) в виде подпрограммы-функции F и операторы вычисления S(x) в виде подпрограммы-процедуры Summa оформим по правилам создания модулей. Текст модуля UnFuncProc приведен в пункте 10.2.4.

Для подключения модуля UnFuncProc к проекту необходимо сделать активным окно с текстом модуля UnModul, затем в меню File выбрать опцию Use Unit… и в открывшемся окне Use Unit указать имя используемого модуля UnFuncProc. Убедитесь в том, что в разделе Implementation модуля UnModul появился оператор Uses UnFuncProc, который Delphi вставила в текст модуля UnModul.

Откройте главный файл проекта и убедитесь в том, что проект не содержит посторонних модулей и файлов.

Текст модуля UnFancProc

unit UnFuncProc;

Interface

Function F(x:real):real;

Procedure Summa(x:real;var s:real);

Implementation

Function F(x:real):real;

Begin

F:=2*(sqr(cos(x))-1) ;

end;

Procedure Summa(x:real; var s:real);

Var

n,i: byte;

p: real;

Begin

p:=1; s:=0;

for i:=1 to n do

Begin

p:=p*(-sqr(2*x))/((2*i-1)*2*i);

s:=s+p;

end;

end;

End.