Discussion :

[med.ycf]

Salut à tous,

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

Code :

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

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 :

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

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 ???

[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 :

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

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.

[l_autodidacte]

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 :

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

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.