Salut à tous,
Voilà mon problème quand j'écris ce programme :
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)); WriteLn(Param); End; Var Nombre : Real; BEGIN ClrScr; Write('Entrez un nombre :'); ReadLn(Nombre); Maths(Nombre); ReadLn; END.
le résultat est la même valeur entrée pour le nombre, mais pourquoi ???
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.
Partager