Функции могут быть использованы в качестве формальных параметров подпрограмм. Для этого определяется тип-указатель на функцию:

typedef <тип_результата> (*<имя_указателя на функцию>)(<список типов>);

9.2.Использование модулей

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

Модуль – программная единица, включающая в себя файл программы с расширением (.cpp), где находится определение функций, и заголовочный файл с расширением (.h), где находятся прототипы функций, описание классов, объявления глобальных переменных.

Заголовочный файл подключается к файлу программы с помощью директивы препроцессора #include. По этой директиве препроцессор до

компиляции программы добавляет содержимое заголовочного файла в файл программы.

9.3.Порядок выполнения задания

Задание: написать программу вывода на экран таблицы функции, которую оформить в виде процедуры. В качестве функции использовать по выбору Tg(x), ch(x) и sin2(x).

9.3.1. Создание модуля

Для создания модуля в меню File выбрать New – Unit. В результате будет создан файл с заголовком Unit Unit1. Имя модуля можно сменить на другое, отвечающее внутреннему содержанию модуля, например MyUnit.

9.3.2. Подключение модуля

Для того чтобы подключить модуль к проекту, необходимо в меню Project выбрать опцию Add to Project… и выбрать файл, содержащий модуль. После этого

подключить заголовочный файл модуля с помощью директивы препроцессора #include. Теперь в проекте можно использовать функции, содержащиеся в модуле.

Панель диалога будет иметь вид рис. 9.1.

Тексты модуля и вызывающей программы приведены ниже. Текст заголовочного файла модуля:

//---------------------------------------------------------------------------

#ifndef MyUnitH #define MyUnitH #include <StdCtrls.hpp>

//---------------------------------------------------------------------------

typedef double (*TFun)(double);

void Tab(TMemo *mem,TFun f,double xn,double xk,double h); #endif

PDF created with pdfFactory Pro trial version www.pdffactory.com

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

{

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="0,1";

Edit2->Text="3";

Edit3->Text="0,3";

Memo1->Clear(); RadioGroup1->ItemIndex=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

Memo1->Clear();

double xn=StrToFloat(Edit1->Text); double xk=StrToFloat(Edit2->Text); double h=StrToFloat(Edit3->Text); switch(RadioGroup1->ItemIndex)

{

case 0:Tab(Memo1,cTg,xn,xk,h); break; case 1:Tab(Memo1,Ch,xn,xk,h); break; case 2:Tab(Memo1,Sin2,xn,xk,h); break;

}

}

double cTg( double x)

{

return cos(x)/sin(x);

}

PDF created with pdfFactory Pro trial version www.pdffactory.com