Problema com variável tipo Double

[bnobre]

Olá a todos, uso o Delphi 2010 e reparei um pequeno problema em minha aplicação. Observem o código abaixo como exemplo:

procedure Tfrm_nfce_pdv_fechamento.btn_finalizarnClick(Sender: TObject);
var
credito: Double
begin
    credito := 32.3;
    ShowMessage(FloatToStr(credito - 32.3));
end;

Ao invés de exibir o valor ZERO, recebo um valor absurdo, -2,84147705365001E-15.

Mas se eu declarar a variável "credito" como sendo Currency, o resultado aparece ZERO, como deveria ser.

Porque esse comportamento com a variável do tipo Double?

Desde já agradeço a atenção de todos

 

[Daniel Simoes]

O Currency limita as decimais em 4 casas...

http://rvelthuis.de/articles/articles-floats.html

[bnobre]

15 minutos atrás, Daniel Simoes disse:

O Currency limita as decimais em 4 casas...

http://rvelthuis.de/articles/articles-floats.html

Obrigado pela dica Daniel,

Mas se eu atribui "32.3" a variável Double, mesmo não limitando a 4 casas, como 32.3 - 32,3 resulta em -2,84147705365001E-15?

Desde já agradeço a sua atenção

[Daniel Simoes]

Isso é explicado no artigo indicado... é uma característica de como o "Double" foi implementado no Delphi...

[EMBarbosa]

-2,84147705365001E-15 é mais ou menos igual a -0,000000000000002841477053650.

Essa é a diferença entre os dois números que você calculou. Isso acontece devido a forma de armazenamento.

O artigo que o Daniel citou explica um pouco sobre isso.

[bnobre]

56 minutos atrás, EMBarbosa disse:

-2,84147705365001E-15 é mais ou menos igual a -0,000000000000002841477053650.

Essa é a diferença entre os dois números que você calculou. Isso acontece devido a forma de armazenamento.

O artigo que o Daniel citou explica um pouco sobre isso.

Olá EMBarbosa, estava lendo o artigo, bem completo e um tanto complexo

Pelo que pude entender, essa variável Double por motivos internos do Delphi acabou recebendo o valor de 32,29999999999999715852294635, mais ou menos. Como forma de contornar isso, entendi que devem ser aplicados arredondamentos, entendi corretamente?

Desde já agradeço a atenção de todos

Editado 13 Dezembro, 2016 por doidopb

[Daniel Simoes]

Isso mesmo.. use os métodos de Round, ou ainda algo como:

  CompareValue(Val1, Val2, 0.001);

 

[bnobre]

1 minuto atrás, Daniel Simoes disse:

Isso mesmo.. use os métodos de Round, ou ainda algo como:

  CompareValue(Val1, Val2, 0.001);

 

Daniel, pelo que acompanhei no artigo todos os tipos do Delphi para armazenamento de números decimais tem essa peculiaridade, Double, Currency, etc.

É isso mesmo ou teria algum tipo específico ou mais aconselhável para ser usado nesse caso e me livrar de ter que arredondar?

[Daniel Simoes]

Se você não precisar mais do que 4 casas decimais... Currency é a escolha certa...

[EMBarbosa]

1 hora atrás, doidopb disse:

Pelo que pude entender, essa variável Double por motivos internos do Delphi acabou recebendo o valor de 32,29999999999999715852294635, mais ou menos.

Isso não é do Delphi especificamente. Toda linguagem de programação é assim armazenando apenas uma aproximação do número decimal (conhecido como ponto flutuante ou float).

Pense no seguinte: Quantos números reais existem entre 0 e 1?

Infinitos.

E entre 0,1 e 0,2?

Infinitos.

E entre 0,0000001 e 0,0000002?

Infinitos.

Mas a memória do seu computador é finita. Pior, a memória alocada para uma variável numérica é finita. Então é impossível expressar todos os números entre 0,1 e 0,2 com a memória alocada para um tipo. Quanto menos expressar todos os números reais...

Um artigo com explicação mais detalhada é o "What Every Computer Scientist Should Know About Floating-Point Arithmetic" por David Goldberg.

Já citei este artigo em outro tópico, juntamente com um link para uma pergunta relacionada no StackOverflow:

Em 17/03/2012 at 10:07, EMBarbosa disse:

Pra quem quiser estudar mais a fundo, link para o artigo What Every Computer Scientist Should Know About Floating-Point Arithmetic (O que todo cientista da computação deveria saber sobre aritmética de ponto flutuante). E pergunta a "Como comparar double no Delphi?" no StackOverflow (também em inglês) http://stackoverflow.com/questions/6106119/how-to-compare-double-in-delphi