Курсовая работа: Привод конвейера ПК-19

Label26: TLabel; Label27: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Z1,Z2,X1,X2,Aw,A,q,h,ha,ha1,c,ha2,m,hf1,hf2,d1,d2,dw1,dw2,db1,db2,da1,da2,

df1,df2,S1,S2,P,Pb,r:real;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Z1:=strtoFloat(Edit1.Text);

Z2:=strtoFloat(Edit2.Text);

m:=strtoFloat(Edit3.Text);

ha:=strtoFloat(Edit4.Text);

c:=strtoFloat(Edit5.Text);

q:=strtoFloat(Edit6.Text);

q:=q*pi/180;

X1:=( 17-Z1)/17;

X2:=-X1;

A:=0.5*m*(Z1+Z2);

Aw:=A;

h:=2.25*m;

ha1:=m*(ha+X1);

ha2:=m*(ha+X2);