Discussion :

[paskal++]

Bonsoir,
je ne comprends pas pourquoi pascal tolère le passage par variables pour les fonctions car du coup je ne vois plus l'intérêt des procédures !
exemple: function test(var x : integer) : integer ;
merci.

[droggo]

Lai,

Où est le problème ?

[Transgarp]

Pour moi, une fonction économise le nombre de variables intermédiaires dans le cas de calculs spéciaux; du genre A:= Fonction_B(D-E) div Fonction_C(F+G);

[Alcatîz]

Bonjour,

Tu peux profiter de cette possibilité de mille et une façons.
Par exemple, une fonction qui renvoie plusieurs résultats et un code d'erreur.
Mettons que la fonction suivante reçoit deux nombres et en renvoie la somme, la différence, le produit, le quotient ainsi qu'un indicateur d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function Calcul (n1, n2 : integer; var som, dif, pro, quo : integer) : boolean;

L'appel de cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if Calcul(a,b,som1,dif1,pro1,quo1) and Calcul(c,d,som2,dif2,pro2,quo2)
   then...

est plus élégant qu'avec une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Procedure Calcul (n1, n2 : integer; var som, dif, pro, quo : integer; var resultat : boolean);
 
Calcul(a,b,som1,dif1,pro1,quo1,resultat);
if resultat
   then
     begin
       Calcul(c,d,som2,dif2,pro2,quo2,resultat);
       if resultat
          then
       ...
     end;

[paskal++]

merci.