Codigo erroneo, solução inconpleta
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?
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
Curtidas 0
Respostas
Gandalf.nho
27/08/2004
Teste se o valor do divisor antes da divisão é zero ou use TRY... EXCEPT...
GOSTEI 0
Ipc$
27/08/2004
Se E1 = E2 e F=1/F e PO=1/PO ==> F = PO.
Acho que PI := 1/0.
PI:=1/(F-PO);
Acho que PI := 1/0.
GOSTEI 0
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...
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
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