Section courante

A propos

Section administrative du site

ABS

Absolue
Modula-2

Syntaxe

PROCEDURE ABS(X : type) : type;

Paramètres

Nom Description
X Ce paramètre permet d'indiquer l'expression contenant un nombre à traiter.

Retour

Valeur Description
0 ou supérieur Ces valeurs sont les seules pouvant être retourné. La valeur absolue d'un nombre est toujours positive.

Description

Cette fonction retourne la valeur absolue d'une expression numérique.

Algorithme

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

Exemples

Voici un exemple montrant une utilisation de la valeur absolue avec des parenthèses :

  1. MODULE Abs1Samples;
  2.  
  3. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  4.  
  5. BEGIN
  6.  WriteString('Abs(9*(-7))=');
  7.  WriteInt(ABS(9*(-7)),1);
  8.  WriteLn;
  9. END Abs1Samples.

on obtiendra le résultat suivant :

Abs(9*(-7))=63

Voici un exemple montrant une utilisation plus classique de la valeur absolue :

  1. MODULE Abs2Samples;
  2.  
  3. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  4. FROM SRealIO IMPORT WriteReal; 
  5.  
  6. BEGIN
  7.  WriteString('Abs(1)=');
  8.  WriteInt(ABS(1),1); 
  9.  WriteLn;
  10.  WriteString('Abs(-1)=');
  11.  WriteInt(ABS(-1),1); 
  12.  WriteLn;
  13.  WriteString('Abs(30.2)=');
  14.  WriteReal(ABS(30.2),1); 
  15.  WriteLn;
  16.  WriteString('Abs(-35.4)=');
  17.  WriteReal(ABS(-35.4),1);  
  18.  WriteLn;
  19. END Abs2Samples.

on obtiendra le résultat suivant :

Abs(1)=1
Abs(-1)=1
Abs(30.2)=3.02E+1
Abs(-35.4)=3.54E+1


Dernière mise à jour : Dimanche, le 11 janvier 2015