Déclaration du nombre PI.

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

Code:

---

PI : Constant Float := 3.1415926535 ;

---

avec, au préalable:

Code:

---

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:

---

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.

En passant (je ne suis pas spécialiste d'ADA)

Apparemment pour ce degré de précision il faut du Long Float ...

Code:

---

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

with ada.text_io, ada.Integer_Text_IO, ada.Long_Float_Text_IO, ada.Float_Text_IO; use ada.text_io, ada.Integer_Text_IO, ada.Long_Float_Text_IO, ada.Float_Text_IO;   procedure LongWayToTheTop is   PI :Long_Float :=3.1415926535; okPI:Long_Float; nokPI:Float; begin put("Le resultat final est =>"); put(PI,10,10,0); put(" et fois 2 =>"); okPI:=PI*Long_Float(2); put(okPI,10,10,0); put(" et notre PI tronqué =>"); nokPI:=Float(PI); put(nokPI,10,10,0);       end;

---

Cool. Merci. en bon débutant je n'étais pas arrivé encore à ce type de constat.
Ça fonctionne merci beaucoup.

Pi est une constante déclaré avec Ada dans Ada.Numerics.