Section courante

A propos

Section administrative du site

SIGN

 Signe
Fortran

Syntaxe

FUNCTION SIGN(n,signe)

Paramètres

Nom Description
n Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter
signe Ce paramètre permet d'indiquer le signe à appliquer au nombre à traiter

Description

Cette fonction permet de fixer le signe (+ ou -) de l'entier spécifié à partir du second argument.

Algorithme

MODULE ABS(valeur)
   SI valeur < 0 ALORS
      RETOURNE - valeur
   SINON
      RETOURNE valeur
   FIN SI

MODULE SIGN(valeur,signe)
   SI signe < 0 ALORS
      RETOURNE - ABS(valeur)
   SINON SI signe = 0 ALORS
      RETOURNE 0
   SINON
      RETOURNE ABS(valeur)
   FIN SI

Exemple

Voici un exemple d'une utilisation typique de cette fonction :

  1. PROGRAM signsamples
  2.     PRINT*,'Sign(-1,-910) = ', sign(-1,-910)
  3.     PRINT*,'Sign(-1,-1) = ', sign(-1,-1)
  4.     PRINT*,'Sign(0,0) = ', sign(0,0)
  5.     PRINT*,'Sign(1,10) = ', sign(1,10)
  6.     PRINT*,'Sign(1,1) = ', sign(1,1)
  7.     PRINT*,'Sign(1,1000) = ', sign(1,1000)
  8. END

on obtiendra le résultat suivant :

Sign(-1,-910) = -1
Sign(-1,-1) = -1
Sign(0,0) = 0
Sign(1,10) = 1
Sign(1,1) = 1
Sign(1,1000) = 1

Dernière mise à jour : Dimanche, le 23 novembre 2014