ABS ...

[jerexgrz]

Une petite commande pour avoir des valeurs absolues pour les entiers !!

[Ar-S]

Un truc comme ça ?

Code : Tout sélectionner

Procedure.i Abso(Valeur)
  Protected AbsVal
  If valeur < 0
    AbsVal = Val (RemoveString(Str(valeur),"-"))
  Else
    AbsVal = Valeur
  EndIf  
  ProcedureReturn Absval
  
EndProcedure

  

a = 1250
b = -45322
c = -28

Debug Abso(a)
Debug Abso(b)
Debug Abso(c)

[Golfy]

Pourquoi ne pas utiliser int() ?

Code : Tout sélectionner

Debug Abs(-5)        --> 5.0 
Debug Int(Abs(-5))   --> 5

[Ar-S]

Pourquoi ne pas utiliser int() ?

Code : Tout sélectionner

Debug Abs(-5)        --> 5.0 
Debug Int(Abs(-5))   --> 5

j'utilise tellement peu cette fonction que je l'avais zappé.

[Mindphazer]

Code : Tout sélectionner

    AbsVal = Val (RemoveString(Str(valeur),"-"))

Heu....

Code : Tout sélectionner

AbsVal = -valeur 

C'est pas plus simple ?

[graph100]

Si un entier est passé en argument et que sa valeur est grande une perte de précision sera constatée. Une autre fonction sera proposée au seul usage des valeurs entières.

[Ar-S]

Certes

[Golfy]

Si un entier est passé en argument et que sa valeur est grande une perte de précision sera constatée. Une autre fonction sera proposée au seul usage des valeurs entières.

C'est pas faux !

Code : Tout sélectionner

Debug -9876543210123456789.9
Debug Abs(-9876543210123456789.9)
Debug Int(Abs(-9876543210123456789.9))
;
Debug -987654321012345678.9
Debug Abs(-987654321012345678.9)
Debug Int(Abs(-987654321012345678.9))

renvoit

Code : Tout sélectionner

8570200863586095100.0
8570200863586095100.0
8570200863586095104
;
-987654321012345730.0
987654321012345730.0
987654321012345728

Un effet du debug ?

[graph100]

bah tu as n'as pas utilisé des entiers !!!

Je t'invite à lire la doc concernant l'utilisation des nombres à virgules flottantes de précision simple et double
c'est dans les Thèmes généraux > Variables, Types et Opérateurs.

[Le Soldat Inconnu]

et tout simplement

Code : Tout sélectionner

Valeur.q = -12
AbsValeur.q = Abs(Valeur)
Debug AbsValeur

Parce que un Int() c'est lent. A utiliser que si nécessaire

[Golfy]

bah tu as n'as pas utilisé des entiers !!!

Je t'invite à lire la doc concernant l'utilisation des nombres à virgules flottantes de précision simple et double
c'est dans les Thèmes généraux > Variables, Types et Opérateurs.

Oui, c'est vrai j'ai poussé le bouchon un peu loin
Et même si je suis en 64 bits (mes int sont donc sur 8 oct.) j'ai dépassé la valeur (en gros, 19 chiffres).

Pour l'URL, pour la page des variables, j'y passe plusieurs fois par semaine (car j'oublie les différences entre .a, .c par exemple et pleins d'autres problèmes comme .d <> .f ou quels sont les signé et non-signés)

je reste cependant sur ma fin avec le code suivant :

Code : Tout sélectionner

a.q = -987654321012345678.2
b.d = -987654321012345678.2
c.f = -987654321012345678.2
d.i = -987654321012345678
x.q = Abs(a.q)
y.q = Int(Abs(b.d))
z.f = Int(Abs(c.f))
d64 = Abs(d.i)
Debug x.q
Debug y.q
Debug z.f
Debug d64

Clairement, pas besoin de quad (en 64 bits bien sur) mais la valeur absolue d'un grand nombre décimal... c'est une autre histoire, non ? et finalement... le code d'Ar-S n'est pas hors sujet

Edit : bien sur, je suis dysléxique en agencement de commande !!!
y.q = Abs(Int(b.d)) marche parfaitement si je veux un entier

[graph100]

Code : Tout sélectionner

a.q = -987654321012345678.2

Moi c'est ça qui m'a surpris
Tu mets un nombre à virgule dans un format entier, le quad.

et plus haut c'est même pire ! Tu as utilisé l'auto-assignation de pb pour tes variables

-9876543210123456789.9

c'est pas un entier.

Mais il me semble que la doc encadre le sujet. A moins que la fonction ne marche pas exactement comme l'aide le dis.

Resultat.f = Abs(Nombre.f)

C'est des flottant simple précision partout.
fait toi une macro ou une procedure adaptée sur les variations de

Code : Tout sélectionner

If nombre < 0 : res = -nombre : EndIf

[Golfy]

Code : Tout sélectionner

a.q = -987654321012345678.2

Moi c'est ça qui m'a surpris
Tu mets un nombre à virgule dans un format entier, le quad.

fait toi une macro ou une procedure adaptée sur les variations de

Code : Tout sélectionner

If nombre < 0 : res = -nombre : EndIf

C'est pas faux
Je retombe dans ce vieux travers de GFA basiciens : je m'attendais à ce que Purebasic tronque la valeur décimale automatiquement
Tu as entièrement ( ) raison : si je choisis un type, ce n'est pas pour y mettre autre chose

[graph100]

je pense qu'effectivement PB fait la conversion lorsque tu assignes un type à ta variable. (et c'est une troncature dans le cas que tu as utilisé, mais j'ralais pour le principe )
Mais quand tu ne précises le type, il me semble qu'il utilise un long par défaut