float C_k_n (int n, int k)
{
float C;
C= (float) Factorial (n)/ (Factorial (k)*Factorial (n-k));
/ / float.
return C;
}
.
pow (). .
#include <math.h>
//
float Binom (float a, float b, int n)
{
float summa;
summa =0.0;
for (int k = 0; k < n +1; k ++)
summa = summa+ pow (a, n-k)* C_k_n(n,k)*pow(b, k);
return summa;
}
, , .
9. h- Function
int Factorial (int n);
float C_k_n (int n, int k);
float Binom (float a, float b, int n);
10. Panel Memo
Panel1Click
11. "Function.cpp" #include "Function.h Main.cpp
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
float B_N, a, b;
int n;
String S;
Memo1->Clear ();
a = StrToFloat (Edit1->Text);
b = StrToFloat (Edit2->Text);
n = StrToInt (Edit3->Text);
S.printf (" = %f", pow (a+b, n));
Memo1->Lines ->Add(S);
B_N = Binom (a, b, n);
S.printf (" = %f", B_N);
Memo1->Lines ->Add(S);
return;
}
, a, b, n.
main.pp "Function.cpp" #include "Function.h"
int Test_value ()
{
try
{
StrToFloat (Form1-> Edit1->Text);
}
catch (...)
{
Form1->Edit1->Focused ();
ShowMessage (" ");
return -1;
}
try
{
StrToFloat (Form1-> Edit2->Text);
}
catch (...)
{
Form1->Edit2->Focused ();
ShowMessage (" ");
return -1;
}
try
{
StrToFloat (Form1-> Edit3->Text);
}
catch (...)
{
Form1->Edit3->Focused ();
ShowMessage (" ");
return -1;
}
return 0;
}
int Test_value () , . , .
15. "Function.h"
|
|
int Test_value ();
16. Panel1Click
if (Test_value ()) return;
1. , Use dinamic RTL
Runtime packages
1. , , ?
2. Memo , .
3. , . !