[aula 02]Desvio condicional sequencial (calculadora)

Deixe sua tela como abaixo

Digite:Resultado,na propriedade Name do Objeto Label5.
.Coloque cores e tamanho de letra em seus objetos.
.Digite:valor1,na propriedade Name do Objeto Edit1.
.Digite:valor2,na propriedade Name do Objeto Edit2.
.calcular, na propriedade Name do objeto button1.
adicionar um componente GroupBox.

.Deixe o componenteGroupbox selecionado.Dê um duplo clique no componente RadioButton

.Insira mais 3 componentes RadioButton.
Deixe os componentes como mostra a figura abaixo.

.Clique no componente RadioButton1 e coloque a propriedade name como somar.
.Clique no componente Radiobutton2 e coloque a propriedade name como subtrair.
.Clique no componente Radiobutton3 e coloque a propriedade name como Multiplicar.
.clique no componente Radiobutton4 e coloque a propriedade Name como dividir.
.clique no componente GroupBox1 e coloque a propriedade captioncomo Operações.
devera fica igual a tela em cima
var
A,B,Resultado1:Real;
Formato:string
begin
 A:=strtofloat(valor1.text);
 B:strtofloat (valor2.text);
 Resultado1:=0;
   If(somar.checked) then
 Resultado1:=A+B;

   If(subtrair.checked) then
 Resultado1:=A-B;

   If(Multiplicar.checked) then
 Resultado1:=A*B;

   If(Dividir.checked) then
   IF (B=0) the;
 showmessage ('Nao existe divisao por zero ')
Else
 resultado1:= A/B;
 formato:=formatfloat('0.00;(0.00);zerado',resultado1);
 RESULTADO.caption:=formato;
 valor1.setfocus;
end;
end.