Estrutura de dados

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (501 palavras )
  • Download(s) : 0
  • Publicado : 13 de junho de 2012
Ler documento completo
Amostra do texto
unit X;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TFRM_Calculadora = class(TForm)
Edit2: TEdit;Edit3: TEdit;
LB_X: TLabel;
BT_Igual: TButton;
Edit1: TEdit;
BT_Limpar: TButton;
RB_Somar: TRadioButton;
RB_Multiplicar: TRadioButton;
RB_Dividir: TRadioButton;RB_Subtrair: TRadioButton;
BT_Soma: TButton;
BT_Subtrai: TButton;
BT_Multiplica: TButton;
BT_Divide: TButton;
Label1: TLabel;
procedure BT_IgualClick(Sender: TObject);procedure BT_LimparClick(Sender: TObject);
procedure RB_SomarClick(Sender: TObject);
procedure RB_MultiplicarClick(Sender: TObject);
procedure RB_SubtrairClick(Sender: TObject);procedure RB_DividirClick(Sender: TObject);
procedure BT_SomaClick(Sender: TObject);
procedure BT_MultiplicaClick(Sender: TObject);
procedure BT_DivideClick(Sender: TObject);procedure BT_SubtraiClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FRM_Calculadora: TFRM_Calculadora;

implementation

{$R*.DFM}

procedure TFRM_Calculadora.BT_IgualClick(Sender: TObject);
Var
V_Valor1 : Real;
V_Valor2 : Real;
begin

IF RB_Multiplicar.Checked = True then
BeginLB_X.Caption := 'X';
V_Valor1 := StrToFloat(Edit1.Text);
{StrToFloat converte texto para nº decimal}
{Float é conhecido como Ponto Flutuante}
V_Valor2 :=StrToFloat(Edit2.Text);
Edit3.Text := FloatToStr(V_Valor1 * V_Valor2);
{Converte de decimal para texto}
End;
If RB_Somar.Checked = True Then
BeginLB_X.Caption := '+';
V_Valor1 := StrToFloat(Edit1.Text);
{StrToFloat converte texto para nº decimal}
{Float é conhecido como Ponto Flutuante}...
tracking img