Bonjour.
j'ai un soucis avec le nombre Pi.
J'ai déclaré la constante suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
PI : Constant Float := 3.1415926535 ;
avec, au préalable:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
with ada.text_io,
     ada.Integer_Text_IO,
     ada.Float_Text_IO;
use ada.text_io,
    ada.Integer_Text_IO,
    ada.Float_Text_IO;
Jusque là tout va bien sauf que quand je veux afficher la constante j'écris:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
   --affichage du nombre PI
   New_Line;
   Put("le nombre Pi a été initialisé à ");
   Put(PI, Exp =>0, Aft => 10);
Pour avoir un nombre à virgule avec 10 chiffres après la virgule et pas d'exposant.
Seulement quand je compile et lance le programme, il est affiché ceci:

le nombre Pi a été initialisé à 3.1415927410

j'ai donc une erreur sur le nombre Pi à compter du 7è chiffre après la virgule.
D'où une erreur de calcul.
Comment faire ? Je n'arrive pas à trouver.
Cordialement.