Section courante

A propos

Section administrative du site

DEC

Décrémente
Delphi/Kylix/Lazarus System

Syntaxe

Procedure Dec(Var X);
Procedure Dec(Var X; N:LongInt);

Paramètres

Nom Description
X Ce paramètre permet d'indiquer la variable à traiter
N 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.

Algorithme

MODULE DEC(REFERENCE X)
   XX - 1

MODULE DEC(REFERENCE X, N)
   XX - N

Remarques

Exemple

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

  1. Program DecSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.                  
  7. Var
  8.  I:Integer;
  9.                         
  10. BEGIN
  11.  I := 14;
  12.  While I > 5 do Begin
  13.   WriteLn('I = ',I);
  14.   Dec(I,2);
  15.  End;
  16.  While I > 0 do Begin
  17.   WriteLn('I = ',I);
  18.   Dec(I);
  19.  End;
  20. 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 - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Inc
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Pred
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sqr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sqrt
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Succ
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sum

Dernière mise à jour : Mercredi, le 18 février 2015