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