Section courante

A propos

Section administrative du site

Dec

Décrémenter
HighSpeed Pascal System

Syntaxe

Procedure Dec(N [;Count]);

Paramètres

Nom Description
N Ce paramètre permet d'indiquer la variable à traiter
Count Ce paramètre permet d'indiquer la valeur à ajouter à la variable

Description

Cette procédure permet de décrémenter la valeur de la variable spécifié.

Remarque

Algorithme

MODULE DEC(REFERENCE X)
   XX - 1

MODULE DEC(REFERENCE X,n)
   XX - n

Exemple

L'exemple suivant permet de décrmenter la valeur 100000 jusqu'à ce qu'elle atteigne 0 :

  1. Program DecSamples;
  2. Var
  3.  L:LongInt;
  4. BEGIN
  5.  L:=100000;
  6.  Repeat
  7.   Dec(L); { décrémente L par 1 }
  8.   Dec(L,2); { décrémente L par 2 }
  9.  Until (L < 0);
  10. END.


Dernière mise à jour : Lundi, le 20 avril 2020