Як програмувати на C + +: Пер. з англ.- Москва: ЗАТ «Видавництво БІНОМ», 1998.1024с.
Додатки
Додаток 1 Вихідний код програми
Server:
# include
# pragma hdrstop
# include «Unit1. h »
# include «math. h »
/ / ---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource «*. dfm »* Form1;
/ / ---------------------------------------------------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
/ / --------------------------------------------------------------------------- __fastcall TForm1 :: Button1Click (TObject * Sender)
{();
}
/ / ---------------------------------------------------------------------------
/ / / / Функція розрахунку завдання Варіант 17: (a / x) ^ b, тобто pow (Y, b)
double __ fastcall TForm1 :: calculateY (int x, double a, double b)
{res=a / x;// Виконуємо розрахунок згідно з формулою за варіантом (res <0) res *=- 1; pow (res, b);// Зводимо в ступінь b і повертаємо результат
}
/ / ---------------------------------------------------------------------------
Файл Класу Function Y:
/ / CALCULATEYIMPL. H: Declaration of the TCalculateYImpl
# ifndef CalculateYImplH
# define CalculateYImplH
# define ATL_APARTMENT_THREADED
# include «Project1_TLB. H »
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
/ / TCalculateYImpl Implements ICalculateY, default interface of CalculateY
/ / ThreadingModel: Apartment
/ / Dual Interface: TRUE
/ / Event Support: FALSE
/ / Default ProgID: Project1. CalculateY
/ / Description: My course work
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / ATL_NO_VTABLE TCalculateYImpl: CComObjectRootEx , CComCoClass , IDispatchImpl
{: ()
{
}
/ / Data used when registering Object
/ / _THREADING_MODEL (otApartment); _PROGID («Project1. CalculateY»); _DESCRIPTION («My course work»);
/ / Function invoked to (un) register object
/ / HRESULT WINAPI UpdateRegistry (BOOL bRegister)
