Codigo erroneo, solução inconpleta
27/08/2004
0
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
Posts
27/08/2004
Gandalf.nho
27/08/2004
Ipc$
Acho que PI := 1/0.
27/08/2004
Gollum
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...
27/08/2004
Rômulo Barros
Try { ... Coloque o código aqui ... } Except On EDivByZero Do Begin Variavel := 1; end; On EZeroDivide Do Begin Variavel := 1; end; End;
Clique aqui para fazer login e interagir na Comunidade :)