Medios de comunicacion

DoubléLC1,PC1,Rc1,ST1,esc,i,n,Pi,pi,Gc,A,RcST,PC,grado,LC,CD,PT,b,c,d,e,f,g,h,zzz,j,k,m,mm,www,o,p,q,r,s,t,u,v,x,yyy,le,oe,Ac,kk,teta,L,tetaC,Li,tetauno,tetados,Lj,tetao,Xc,Yc,K,P,STe,TL,TC,aa,bb,cc,dd,ee,ff,gg,hh,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,g1,h1,l1,m1,o1,j1,s1,u1,v1,w1,x1,y1,z1,aa1,bb1,cc1,dd1,ee1,B,B1,B2,B3,B4,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,deflex,XC,Sc,YC,K1,STe1,TE,TE1,TL1,TC1,Ec1,Ec,CE,CE1,ET.ET1,b1,b2,c1,d1,e1,i1,k1,n1,p1,p2,jj,qq,ll,rr,pp,xx,xx1,xx2,xx3,xx4,yy,yy1,yy2,yy3,yy4,zz,zz1,zz2,zz3,zz4;
Inta,z,w,y;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
:TForm(Owner)
{
}
PROGRAMACION PARA LOS BOTONES
{draw:frame}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
PROGRAMACION PARA EL BOTON
{draw:frame}
//---------------------------------------------------------------------------
void __fastcallTForm1::Button1Click(TObject *Sender)
{
Pi=Edit1->Text.ToDouble( );
Gc=Edit2->Text.ToDouble( );
A=Edit3->Text.ToDouble( );
CD=Edit4->Text.ToDouble( );
esc=Edit5->Text.ToDouble( );
Edit1->SetFocus( );
Rc1=((1145.92/Gc));
Rc=Rc1/esc;
Edit6->Text=AnsiString(Rc);
grado=(M_PI/180)*A/2;
ST1=(Rc1*(tan(grado)));
ST=ST1/esc;
Edit7->Text=AnsiString(ST);
PC1=(PI-ST1);
PC=PC1/esc; { }Edit8->Text=AnsiString(PC);
LC1=(CD*(A/Gc));
LC=LC1/esc;
Edit9->Text=AnsiString(LC);
PT=(PC1+LC1)/esc;
Edit10->Text=AnsiString(PT);
a=PC;
CD=CD/esc;
{Edit11->Text=AnsiString(PC);}
b=a+ CD;
if(a==0)
{b=0; }
elseif(b>PT)
{ b=0; }
elseif(bText=AnsiString(b);
c=b+ CD;
if (b==0)
{ c=0; }
elseif(c>PT)
{ c=0; }
elseif(cText=AnsiString(c);d=c+ CD;
if (c==0)
{ d=0; }
elseif(d>PT)
{ d=0; }
elseif(dText=AnsiString(d);
e=d+ CD;
if (d==0)
{ e=0; }
elseif(e>PT)
{ d=0; }
elseif(eText=AnsiString(e);
f=e+ CD;
if (e==0)
{ f=0; }
elseif(f>PT)
{ f=0; }
elseif(fText=AnsiString(f);
g=f+ CD;
if (f==0)
{ g1=0; }
elseif(g>PT)
{ g1=0; }
elseif(gText=AnsiString(g1);
h=g1+ CD;
if(g1==0)
{ h1=0; }
elseif(h>PT)
{ h1=0; }
elseif(hText=AnsiString(h1);
j=h1+ CD;
if (h1==0)
{ j1=0; }
elseif(j>PT)
{ j1=0; }
elseif(jText=AnsiString(j1);
I=j1+ CD;
if (j1==0)
{ I1=0; }
elseif(I>PT)
{ I1=0; }
elseif(IText=AnsiString(I1);
m=I1+ CD;
if (I1==0)
{ m1=0; }
elseif(m>PT)
{ m1=0; }
elseif(mText=AnsiString(m1);
o=m1+ CD;if (m1==0)
{ o1=0; }
elseif(o>PT)
{ o1=0; }
elseif(oText=AnsiString(o11);
s=o1+ CD;
if (o1==0)
{ s1=0; }
elseif(s>PT)
{ s1=0; }
elseif(sText=AnsiString(s1);
t=s1+ CD;
if (s1==0)
{ t1=0; }
elseif(t>PT)
{ t1=0; }
elseif(tText=AnsiString(t1);
u=t1+ CD;
if (t1==0)
{ u1=0; }
elseif(u>PT)
{ u1=0; }
elseif(uText=AnsiString(u1);
v=u1+CD;
if (u1==0)
{ v1=0; }
elseif(v>PT)
{ v1=0; }
elseif(vText=AnsiString(v1);
x=v1+ CD;
if (v1==0)
{ x1=0; }
elseif(x>PT)
{ x1=0; }
elseif(xText=AnsiString(x1);
www=x1+ CD;
if (x1==0)
{ w1=0; }
elseif(www>PT)
{ w1=0; }
elseif(wwwText=AnsiString(w1);
yyy=w1+ CD;
if (w1==0)
{ y1=0; }
elseif(yyy>PT)
{ y1=0; }elseif(yyyText=AnsiString(y1);
zzz=y1+ CD;
if (y1==0)
{ z1=0; }
elseif(zzz>PT)
{ z1=0; }
elseif(zzzText=AnsiString(z1);
aa=z1+ CD;
if (z1==0)
{ aa1=0; }
elseif(aa>PT)
{ aa1=0; }
elseif(aaText=AnsiString(aa1);
bb=aa1+ CD;
if (aa1==0)
{ bb1=0; }
elseif(bb>PT)
{ bb1=0; }
elseif(bbText=AnsiString(bb1);
cc=bb1+ CD;
if (bb1==0)
{ cc1=0; }
elseif(cc>PT)
{...