Array
(
)

Codigo erroneo, solução inconpleta

Gollum
   - 27 ago 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?


Gandalf.nho
   - 27 ago 2004

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


Ipc$
   - 27 ago 2004

Se E1 = E2 e F=1/F e PO=1/PO ==> F = PO.

Citação:

PI:=1/(F-PO);

Acho que PI := 1/0.


Gollum
   - 27 ago 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...


Rômulo Barros
   - 27 ago 2004

#Código

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