Ada

Arrondi d'un point floattant

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Arrondi d'un point floattant

Profil supprimé

Bonjour,

j'ai définit un type point fixe de la manière suivante :

Code :

type T_Alphabet is delta 0.01 range 0.0..1.0;

Et j'utilise un un type point flottant définit comme suit :

Code :

type Real is digits System.Max_Digits;

Je souhaite obtenir l'arrondi à 0.01 pré du type Real pour l'affecter au type T_Alphabet.

Exemple :
var_real = 9.59600000000000E-2 => je veux affecter 0.1 à une variable de type T_Alphabet.

Comment faire ? Merci.

Message cité 1 fois

Publicité

Un Programmeur

Il y a un attribut (de memoire: T_Alphabet'Round(var_real)). Est-tu sur que tu ne voudrais pas
plutot

Code :

type T_Alphabet is delta 0.01 digits 2;

pour avoir un type decimal?

Message cité 1 fois

Profil supprimé

Un Programmeur a écrit :

Il y a un attribut (de memoire: T_Alphabet'Round(var_real)). Est-tu sur que tu ne voudrais pas
plutot

Code :

type T_Alphabet is delta 0.01 digits 2;

pour avoir un type decimal?

C'est possible ! Parce qu'en effet, l'attribut Round prend un préfixe de type décmal.
Je suis un peu dans la confusion avec ce genre de type.

J'ai testé une simple conversion : Var_Alphabet := T_Alphabet(Var_Real); ça donne pas mal.
Je vais voir ce que me dis le compilateur en déclarant mo type T_Alphabet comme tu le suggères.

Profil supprimé

j'ai déclaré le type T_Alphabet is deltat 0.01 digits 2; Et à l'utilisation de l'attribut Round Constraint_Error(Range check failed) est levée.

T'es sûr de ton coup ?

Message cité 1 fois

Profil supprimé

Avec Var_Real = 9.999*E-01, Je remarque qu'une simple conversion lève la même erreur.

Un Programmeur

Ca fait 10 ans que je n'ai plus fait d'Ada. Mais ceci a l'air de faire ce que tu veux.

Code :

with Ada.Text_IO;
procedure Rounding is
type Decimal is delta 0.01 digits 2;
package DIO is new Ada.Text_IO.Decimal_IO(Decimal);
X : Long_Float := 9.596E-2;
D : Decimal;
begin
D := Decimal'Round(X);
DIO.Put(D);
Ada.Text_IO.New_Line;
end;

Message cité 1 fois

Profil supprimé

Un Programmeur a écrit :

Ca fait 10 ans que je n'ai plus fait d'Ada. Mais ceci a l'air de faire ce que tu veux.

Code :

with Ada.Text_IO;
procedure Rounding is
type Decimal is delta 0.01 digits 2;
package DIO is new Ada.Text_IO.Decimal_IO(Decimal);
X : Long_Float := 9.596E-2;
D : Decimal;
begin
D := Decimal'Round(X);
DIO.Put(D);
Ada.Text_IO.New_Line;
end;

Oui, ton programme fonctionne. Mais avec une valeur de X telle que 9.999E-02, ça ne fonctionne plus.

Profil supprimé

avec x = 9.999E-1

Pardon

Profil supprimé

Merci Un Programmeur !

j'ai pigé pourquoi 9.999E-1 lève un erreur de contrainte.

Un Programmeur

Pour les archives: 0.999E-1 est arrondi à 1.00 et le type décimal delta 0.01 digits 2 ne représente des valeurs que jusqu'à 0.99.

FORUM HardWare.fr

Programmation

Ada

Arrondi d'un point floattant

Sujets relatifs
Problème GTK - point d'entrée de précédure introuvable	Trouver un point différents d'autres points
[PHP] Librairie graphique php - Valeur du point en survol	Affichage de point!!!!!!
[Access] fonction arrondi sup	[Javascript] Tester l'existence d'un point avec l'api google map
Jpgraph - Afficher un seul point avec $lineplot->value->show();	Mise au point : dépendance sur une librairie systeme, migration de pro
Dessiner un point sur un pixmap avec GTK2	Tirer une point aléatoire dans cercle sur une sphère
Plus de sujets relatifs à : Arrondi d'un point floattant

Page générée en 0.039 secondes