Codigo erroneo, solução inconpleta

Delphi

27/08/2004

F:=strtofloat(E1.Text);
E1.Enabled:=false;
PO:=strtofloat(E2.Text);
E2.Enabled:=False;
PO:=1/PO;
F:=1/F;
if (F = PO)then
img.Picture.LoadFromFile(´E:\Familia\Renato\Delphi\Mauricio\Imagens\ConcavoF4.bmp´);
PI:=1/(F-PO);
E5.Text:=floattostr(PI);

fiz este codigo, mas cando eu coloco valores iguais na caixa E1 e E2.
ele dá pau. Erro:´ Divisão por zero.´ Como faço para contonar isso?


Gollum

Gollum

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

27/08/2004

Teste se o valor do divisor antes da divisão é zero ou use TRY... EXCEPT...


GOSTEI 0
Ipc$

Ipc$

27/08/2004

Se E1 = E2 e F=1/F e PO=1/PO ==> F = PO.
PI:=1/(F-PO);

Acho que PI := 1/0.


GOSTEI 0
Gollum

Gollum

27/08/2004

ja tentei tambem
PI:=1/(F-PO);

o que acontece é:
quando eu ponho na caixa da variavel PO e F valores iguais
o delphi emite um erro assim:
floating point division by zero.
como eu posso resolver isso?
eu sou iniciante no delphi...


GOSTEI 0
Rômulo Barros

Rômulo Barros

27/08/2004

  Try
    { ... Coloque o código aqui ...  }
  Except
    On EDivByZero Do
    Begin
       Variavel := 1;
    end;
    On EZeroDivide Do
    Begin
       Variavel := 1;
    end;
  End;



GOSTEI 0
POSTAR