Листинг программного кода

//—————————————————————————————————————;

#include.

#pragma hdrstop.

#include «Unit1.h» .

#include «math.h» .

//—————————————————————————————————————;

#pragma package (smart_init).

#pragma resource «*.dfm» .

TForm1 *Form1;

//—————————————————————————————————————;

__fastcall TForm1: TForm1(TComponent* Owner).

: TForm (Owner).

{.

}.

//—————————————————————————————————————;

void __fastcall TForm1: FormCreate (TObject *Sender).

{.

//Загрузка данных варианта № 8 в таблицу.

Tbl->Cells[0][0] = «№» ;

Tbl->Cells[1][0] = «tau, ч» ;

Tbl->Cells[2][0] = «Ii, имп/мин» ;

Tbl->Cells[3][0] = «Iiр, имп/мин» ;

for (int i=1;i<=7;i++).

Tbl->Cells[0][i] = IntToStr (i);

Tbl->Cells[1][1] = «0,5» ;

Tbl->Cells[1][2] = «1» ;

Tbl->Cells[1][3] = «1,5» ;

Tbl->Cells[1][4] = «2» ;

Tbl->Cells[1][5] = «2,5» ;

Tbl->Cells[1][6] = «3,5» ;

Tbl->Cells[1][7] = «4,5» ;

Tbl->Cells[2][1] = «2660» ;

Tbl->Cells[2][2] = «2090» ;

Tbl->Cells[2][3] = «1640» ;

Tbl->Cells[2][4] = «1280» ;

Tbl->Cells[2][5] = «1000» ;

Tbl->Cells[2][6] = «620» ;

Tbl->Cells[2][7] = «378» ;

}.

//—————————————————————————————————————;

void __fastcall TForm1: Button1Click (TObject *Sender).

{.

double x[100], y[100], sx=0,sy=0,sxy=0,sx2=0;

int n = Tbl->RowCount-1;

//вычисление всех необходимых сумм.

for (int i=1;i<=n;i++){.

x[i] = StrToFloat (Tbl->Cells[1][i]);

y[i] = log (StrToFloat (Tbl->Cells[2][i]));

}.

for (int i=1;i<=n;i++){.

sx = sx + x[i];

sy = sy + y[i];

sxy = sxy + x[i]*y[i];

sx2 = sx2 + pow (x[i], 2);

}.

//вычисление a и b.

double a = (n*sxy-sx*sy)/(n*sx2-pow (sx, 2));

double b = (sx2*sy-sx*sxy)/(n*sx2-pow (sx, 2));

//расчёт I0 и T½.

double I0 = exp (b);

double t12 = 0.693/-a;

Label1->Caption = «Начальнаяскоростьсчёта I0 = „+FloatToStrF (I0,ffFixed, 4,1)+“ имп/мин» ;

Label3->Caption = «Периодполураспада T½ = «+FloatToStrF (t12,ffFixed, 4,1)+' мин';

//построение графиков и запись расчётных данных в таблицу.

Series1->Clear ();

Series2->Clear ();

Series1->Title = «Ii (tau)» ;

Series2->Title = «Iiр (tau)» ;

for (int i=1;i<=n;i++){.

Series1->AddXY (StrToFloat (Tbl->Cells[1][i]), StrToFloat (Tbl->Cells[2][i]));

Tbl->Cells[3][i] = FloatToStrF (I0*exp ((0.693*StrToFloat (Tbl->Cells[1][i]))/-t12), ffFixed, 5,2);

Series2->AddXY (StrToFloat (Tbl->Cells[1][i]), StrToFloat (Tbl->Cells[3][i]));

}.

//критерийоптимальности.

double S = 0;

S = pow ((StrToFloat (Tbl->Cells[2][1])-StrToFloat (Tbl->Cells[3][1])), 2);

//расчёт критерия оптимальности.

for (int i=2;i<=n;i++).

if (S > pow ((StrToFloat (Tbl->Cells[2][i])-StrToFloat (Tbl->Cells[3][i])), 2)).

S = pow ((StrToFloat (Tbl->Cells[2][i])-StrToFloat (Tbl->Cells[3][i])), 2);

Label4->Caption = «Критерийоптимальности S = «+FloatToStrF (S, ffFixed, 4,4);

}.

//—————————————————————————————————————;

void __fastcall TForm1: Button2Click (TObject *Sender).

{.

Close ();

}.

//—————————————————————————————————————;