Diversos

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"double pv,e,pl,pt,b,p,pm,pc,a,pcm,H,B,pzc,H1,H2,a1,a2,at,atr,ptr,ptra,pml,pcM,y;
double pev,v,h,BCC,qr,v1,v2,p1,p2,FR,j,ac,rc,rv,rt,As,ct,I,q,M,d,Mc,L,BM,bm,Ah0;
double em;

TForm1 *Form1;//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{

if ( RadioButton1->Checked==true)
{
Panel1->Visible=true;
Panel3->Visible=False;Panel4->Visible=False;
}
if(RadioButton2->Checked==true)
{
Panel3->Visible=True;
Panel4->Visible=False;
}
if(RadioButton3->Checked==true)
{
Panel1->Visible=False;Panel3->Visible=False;
Panel4->Visible=True;
}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{pv=Edit1->Text.ToDouble();
e=Edit4->Text.ToDouble();
pl=pv*e;

Edit18->Text=AnsiString(pl)+"kg/m2";

}
//---------------------------------------------------------------------------
void__fastcall TForm1::Button2Click(TObject *Sender)
{
pv=Edit1->Text.ToDouble();
b=Edit6->Text.ToDouble();
p=Edit7->Text.ToDouble();

pt=pv*b*p;
Edit19->Text=AnsiString(pt)+"kg/m2";}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{

pv=Edit2->Text.ToDouble();em=Edit5->Text.ToDouble();
pm=pv*em;

Edit21->Text=AnsiString(pm)+"kg/m2";

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject...