Section courante

A propos

Section administrative du site

DEC

Décrémente
Turbo Pascal 4+ 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.

Remarques

Algorithme

MODULE DEC(REFERENCE X)
   XX - 1

MODULE DEC(REFERENCE X,n)
   XX - n

Exemple

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

Essayer maintenant !
  1. Program DecSamples;
  2.              
  3. Var
  4.  I:Integer;
  5.                     
  6. BEGIN
  7.  I := 14;
  8.  While I > 5 do Begin
  9.   WriteLn('I = ',I);
  10.   Dec(I,2);
  11.  End;
  12.  While I > 0 do Begin
  13.   WriteLn('I = ',I);
  14.   Dec(I);
  15.  End;
  16. 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 - Turbo Pascal - Référence de procédures et fonctions - INC

Références

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 137.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1220.

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