DESCRIPTION.

La fonction SGN() retourne le signe d'une variable ou d'une valeur numérique.

SYNTAXE.

ksigne = SGN( valeur )

REMARQUES.

valeur est obligatoire, mais peut être de n'importe quel type numérique.

SGN() retourne : 

- -1, si valeur est négatif, c'est-à-dire inférieur à 0 ;

- 0, si valeur est nulle, c'est-à-dire égal à 0 ;

- 1, si valeur est positif, c'est-à-dire supérieur à 0.

Utilisez ABS() pour déterminer la valeur absolue des nombres négatifs si nécessaire. 

RUBRIQUES.

Les opérations mathématiques pour plus de détails sur les opérations et fonctions mathématiques disponibles.

Les fonctions trigonométriques pour plus de détails sur les opérations et fonctions trigonométriques disponibles.

Les types de variables pour plus de détails sur la déclaration des variables et leurs différents types.

EXEMPLES.

PRINT SGN(7): REM --- retourne retourne 1 ---

PRINT SGN(-7): REM --- retourne retourne -1 ---

PRINT SGN(0): REM --- retourne retourne 0 ---

PRINT SGN(7.8): REM --- retourne retourne 1 ---

PRINT SGN(-7.8): REM --- retourne retourne -1 ---

PRINT SGN(5 + 8): REM --- retourne retourne 1 ---

PRINT SGN(5 - 8): REM --- retourne retourne -1 ---

PRINT SGN(5 + 3 - 8): REM --- retourne retourne 0 ---

REM --- Test si un nombre est positif ---

FOR kvaleur = -3 TO 3

    CASE SGN(kvaleur) OF

        WHEN -1: ksigne$ = "negatif"

        WHEN 0: ksigne$ = "nul"

        WHEN 1: ksigne$ = "positif"

    ENDCASE

    PRINT kvaleur; " est un nombre "; ksigne$; "."

NEXT

END

REM --- Ne retourner que des valeurs positives ---

FOR kvaleur = 1 TO 10

kdebut = RND(800) - 500

kfin = RND(800) - 500

ktotal = kdebut + kfin

PRINT kdebut; " + "; kfin; " = "; ktotal;

IF SGN( ktotal) = -1 THEN ktotal = ABS(ktotal)

PRINT " dont "; ktotal

NEXT