Langage de programmation - Free Pascal - Référence de procédures et fonctions

DEC	Décrémente
Free Pascal	System

Syntaxe

Procedure Dec(var X: TOrdinal);

Procedure Dec(var X: TOrdinal;Decrement: TOrdinal);

Paramètres

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

Description

Cette procédure effectue la décrémentation de 1 ou de N d'une variable.

Remarques

La procédure Dec diminue la valeur de X avec le paramètre Decrement. Si le paramètre Decrement n'est pas spécifié, la valeur 1 est pris par défaut.
Une vérification d'intervalle peut se produire, ou une erreur de dépassement inférieur, si une tentative est faite pour réduire X en dessous de sa valeur minimale.

Exemple

Voici un exemple de l'utilisation de la procédure «DEC» :


			
				
Program DecSamples;

 
Var

 I:Integer;


 
BEGIN

 I := 14;

 While I > 5 do Begin


  WriteLn('I = ',I);

  Dec(I,2);


 End;

 While I > 0 do Begin

  WriteLn('I = ',I);


  Dec(I);

 End;

END.

on obtiendra le résultat suivant :

I = 14 I = 12 I = 10 I = 8 I = 6 I = 4 I = 3 I = 2 I = 1

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - «Inc»

Dernière mise à jour : Samedi, le 18 juillet 2015

Section courante

A propos

Section administrative du site

DEC