Delphi x calculadora

Solo disponible en BuenasTareas
  • Páginas : 2 (409 palabras )
  • Descarga(s) : 0
  • Publicado : 23 de octubre de 2010
Leer documento completo
Vista previa del texto
CALCULADORA
procedure TForm1.Button1Click(Sender: TObject);
VAR
A,B,TOTAL:REAL;
CODIGO:INTEGER;
CADENA:STRING;
begin
LABEL4.CAPTION:=' ';
VAL(EDIT1.Text, A, CODIGO);VAL(EDIT2.TEXT,B,CODIGO);
TOTAL:=A+B;
STR(TOTAL:8:2,CADENA);
LABEL4.CAPTION:='LA SUMA ES := '+CADENA;
end;

procedure TForm1.Button2Click(Sender: TObject);
VAR
A,B,TOTAL:REAL;
CODIGO:INTEGER;
CADENA:STRING;
beginLABEL4.CAPTION:=' ';
VAL(EDIT1.Text, A, CODIGO);
VAL(EDIT2.TEXT,B,CODIGO);
TOTAL:=A-B;
STR(TOTAL:8:2,CADENA);
LABEL4.CAPTION:='LA SUMA ES := '+CADENA;
end;

procedureTForm1.Button3Click(Sender: TObject);
VAR
A,B,TOTAL:REAL;
CODIGO:INTEGER;
CADENA:STRING;
begin
LABEL4.CAPTION:=' ';
VAL(EDIT1.Text, A, CODIGO);
VAL(EDIT2.TEXT,B,CODIGO);
TOTAL:=A/B;
STR(TOTAL:8:2,CADENA);LABEL4.CAPTION:='LA SUMA ES := '+CADENA;
end;

procedure TForm1.Button4Click(Sender: TObject);
VAR
A,B,TOTAL:REAL;
CODIGO:INTEGER;
CADENA:STRING;
begin
LABEL4.CAPTION:=' ';
VAL(EDIT1.Text, A,CODIGO);
VAL(EDIT2.TEXT,B,CODIGO);
TOTAL:=A*B;
STR(TOTAL:8:2,CADENA);
LABEL4.CAPTION:='LA SUMA ES := '+CADENA;
end;

end.

procedure TForm1.Button4Click(Sender: TObject);
VAR
A,B,TOTAL:REAL;CODIGO:INTEGER;
CADENA:STRING;
begin
LABEL4.CAPTION:=' ';
VAL(EDIT1.Text, A, CODIGO);
VAL(EDIT2.TEXT,B,CODIGO);
TOTAL:=A*B;
STR(TOTAL:8:2,CADENA);
LABEL4.CAPTION:='LA SUMA ES := '+CADENA;end;

end.

C

TEOREMA DE PITÁGORAS
procedure TForm1.Button1Click(Sender: TObject);
VAR
A,B,C:REAL;
CODIGO:INTEGER;
CADENA:STRING;
begin
LABEL4.Caption:=' ';
VAL(EDIT1.Text,A,CODIGO);VAL(EDIT2.TEXT,B,CODIGO);
C:=SQRT((SQR(A))+(SQR(B)));
STR(C:3:2,CADENA);
LABEL4.CAPTION:=' HOPOTENUSA = : '+CADENA;
end;

procedure TForm1.Button2Click(Sender: TObject);
VAR
A,B,C:REAL;CODIGO:INTEGER;
CADENA:STRING;
begin
LABEL6.Caption:=' ';
VAL(EDIT3.Text,C,CODIGO);
VAL(EDIT2.TEXT,B,CODIGO);
IF C>B THEN
BEGIN
A:=SQRT((SQR(C))-(SQR(B)));
STR(A:3:2,CADENA);
LABEL6.CAPTION:='...
tracking img