Discussion :

[airbus]

Bonjour à tous,

je viens vous voir pour un gros au secours, j'ai des noeuds au cerveau.

voici le programme pas très long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit1;
 
interface
 
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
  var essai:real;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
essai:=essai-0.025;
button1.caption:=floattostr(essai);
if essai<118 then form1.Caption:='oui' else form1.Caption:='non';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
essai:=118.1;
end;

quand je clique sur mon bouton, voici les valeur affichées
118.075/non
118.05/non
118.025/non
et le pire
118/oui alors que l'opérateur est stricte===> le problème est donc ici!
117.975/oui

Je suis obligé de faire ceci pour que cela marche
essai:=essai-0.02;
essai:=essai-0.005;

et donc j'aurai bien
118.075/non
118.05/non
118.025/non
118/non
117.75/oui

J'ai essayer le code sur delphi 7 et Delphi 8XE même problème

A votre bon coeur et vous remercie d'avance

[Cirec]

Bonjour,

remplace le type Real par Currency et ça roule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var essai: Currency;

je me rappelle plus pourquoi ... si je retrouve la discussion sur le sujet je donnerais le lien ici
ou si quelqu'un d'autre a l'explication

Edit:
pour visualiser le problème utilise le type Single et tu verras les décalages occasionnés

pour l'explication voir par ici
Cordialement,
@+

[Charly910]

Bonjour,

oui, je pense que c'est un problème lié à la représentation des nombres réels. Il faut utiliser un "Epsilon" pour la comparaison.

Regarde la FAQ qui traite du cas de la comparaison de 2 nombres réels :

Comparer 2 Réels

A+
Charly

[Charly910]

Pour compléter ma réponse :

pour comparer 2 réels (ou mieux Double), au lieu de

if (Essai < 118) ...

tu dois faire :

// Uses Math

If ((118 - Essai)<Min(Abs(Essai),118)*1E-12) ...

A+
Charly

[paulfr]

bonjour

Pour comparer 2 nombres réels il faut calculer l'erreur relative : Abs( A - B) / B

et définir l'erreur admissible, exemple 1/100 ou moins si nécessaire.

PL

[Papy214]

System.Math.Comparevalues ne feraient pas le job plus facilement ??