Le paramètre passé à une procédure n'est pas modifié

Version imprimable

Salut à tous,

Voilà mon problème quand j'écris ce programme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Exemple9b;
 
Uses Crt;
 
Procedure Maths (Param : Real);
Begin
  WriteLn('Procédure de calcul. Veuillez patienter.');
  Param := Sin(Sqrt(Param + 10));
  WriteLn(Param);
End;
 
Var Nombre : Real;
 
BEGIN
  ClrScr;
  Write('Entrez un nombre :');
  ReadLn(Nombre);
  Maths(Nombre);
  ReadLn;
END.

Le programme s'exécute normalement et c'est juste mais quand je change le programme en cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Exemple9b;
 
Uses Crt;
 
Procedure Maths (Param : Real);
Begin
  WriteLn('Procédure de calcul. Veuillez patienter.');
  Param := Sin(Sqrt(Param + 10));
End;
 
Var Nombre : Real;
 
BEGIN
  ClrScr;
  Write('Entrez un nombre :');
  ReadLn(Nombre);
  Maths(Nombre);
  writeln(nombre);
  ReadLn;
END.

le résultat est la même valeur entrée pour le nombre, mais pourquoi ???

15/02/2014, 12h59
Roland Chastain

Bonjour !

Pour que la valeur de la variable passée en paramètre soit modifiée, il faut ajouter le mot-clé var dans l'en-tête de la procédure :

Code:

Procedure Maths (var Param : Real);

Dans la première version de ton programme, la valeur n'est modifiée qu'à l'intérieur de la procédure.

Tu pourras consulter avec profit cet article de la FAQ : Modes de transmission d'un paramètre à une procédure.

Je dirais plutôt que dans la première version, l'écriture se fait dans la procédure Maths et dans la seconde, tu as demandé la réécriture du nombre que tu viens d'entrer au clavier. Il n'a pas été modifié par la procédure.
A la place de la procédure, utilises plutôt une fonction que tu appelleras dans le programme principal du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Uses Crt; Function Maths (Param : Real) : Real; Begin WriteLn('Procédure de calcul. Veuillez patienter.'); Maths := Sin(Sqrt(Param + 10)); End; Var Nombre : Real; BEGIN ClrScr; Write('Entrez un nombre :'); ReadLn(Nombre); Write(Maths(Nombre)); ReadLn; END.