unit UCalculadora;

interface

type
  TCalculadora = class
    private
      operando1, operando2: real;
    public
      constructor constroi(op1,op2: real);
      procedure setOperando1(op: real);
      procedure setOperando2(op: real);
      function getOperando1: real;
      function getOperando2: real;
      function soma: real;
      function subtrai: real;
      function multiplica: real;
      function divide(var erro: integer): real;
  end;

implementation
constructor TCalculadora.constroi(op1,op2: real);
begin
  operando1 := op1;
  operando2 := op2;
end;

procedure TCalculadora.setOperando1(op: real);
begin
  operando1 := op;
end;

procedure TCalculadora.setOperando2(op: real);
begin
  operando2 := op;
end;

function TCalculadora.getOperando1: real;
begin
  getOperando1 := operando1;
end;

function TCalculadora.getOperando2: real;
begin
  getOperando2 := operando2;
end;

function TCalculadora.soma: real;
begin
  soma := operando1 + operando2;
end;

function TCalculadora.subtrai: real;
begin
  subtrai := operando1 - operando2;
end;

function TCalculadora.multiplica: real;
begin
  multiplica := operando1 * operando2;
end;

function TCalculadora.divide(var erro: integer): real;
begin
  if operando2 <> 0 then
  begin
     divide := operando1 / operando2;
     erro := 0;
  end
  else
  begin
     divide := 0;
     erro := 1;
  end;
end;

end.