Codigo erroneo, solução inconpleta

27/08/2004

0

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

Responder

Posts

27/08/2004

Gandalf.nho

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


Responder

27/08/2004

Ipc$

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

Acho que PI := 1/0.


Responder

27/08/2004

Gollum

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...


Responder

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;



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar