Реферат: Математическое моделирование процессов измельчения твёрдых материалов

Приложение B

Unit 4.

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

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

#include <vcl.h>

#pragma hdrstop

#include "math.h"

#include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

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

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{

double M,B,S,e,alfa,Q,hag,n,n1,Q1,i;

n=StrToFloat(Edit1->Text);

M=StrToFloat(Edit2->Text);

B=StrToFloat(Edit3->Text);

S=StrToFloat(Edit4->Text);

e=StrToFloat(Edit5->Text);

alfa=StrToFloat(Edit6->Text);

Q=30*n*M*B*S*(2*e+S)/tan(alfa);

Edit7->Text = (AnsiString)Q;