Section courante

A propos

Section administrative du site

DEC

 Décrémente
Turbo Pascal pour Windows System

Syntaxe

Procedure Dec(s,n);
Procedure Dec(s);

Paramètres

Nom Description
s 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.

Exemple

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

  1. Program DecSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var
  6.  I:Integer;
  7.  
  8. BEGIN
  9.  I := 14;
  10.  While I > 5 do Begin
  11.   WriteLn('I = ',I);
  12.   Dec(I,2);
  13.  End;
  14.  While I > 0 do Begin
  15.   WriteLn('I = ',I);
  16.   Dec(I);
  17.  End;
  18. 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

Dernière mise à jour : Dimanche, le 10 décembre 2017