Создание оконного приложения. Панель диалога с полученными результатами представлена на рис

Панель диалога с полученными результатами представлена на рис. 4.1, а текст программы может иметь следующий вид:

...

#include <math.h>

//------------Декларации прототипов функций Пользователя ---------------

double fun1(double);

double fun2(double);

void Out_Rez(int, double, double, double);

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="0,1";

Edit2->Text="3";

Edit3->Text="0,3";

Memo1->Clear();

Memo2->Clear();

RadioGroup1->ItemIndex = 0;

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double a, b, h;

a = StrToFloat(Edit1->Text);

b = StrToFloat(Edit2->Text);

h = StrToFloat(Edit3->Text);

Out_Rez (RadioGroup1->ItemIndex, a, b, h);

}

//---------- Реализации функций Пользователя ---------------------------------

double fun1(double r)

{

return 2*exp(r*r);

}

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

double fun2(double r)

{

return pow(sin(r), 2);

}

Рис. 4.1

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

void Out_Rez (int kod, double xn,double xk,double h)

{

double (*fun)(double); // Декларация указателя на функцию

TMemo *mem;

switch(kod) {

case 0:

fun = fun1;

mem = Form1->Memo1;

break;

case 1:

fun = fun2;

mem = Form1->Memo2;

break;

}

for(double x=xn; x<=xk; x+=h)

mem->Lines->Add(" x = " + FloatToStrF(x,ffFixed,8,2) +

" y = " + FloatToStrF(fun(x),ffFixed,8,4));

}

Поиск по сайту: