Discussion :

[bosskay]

Bonjour j'aimerais que vous puissiez m'aider à terminer mon programme de la fonction factoriel, le voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
let fac a =
let r = ref 0 in
let x=ref 1 in
if a=0 then
r:=!x;
if a<0 then
print_string("nombre négatif refusé");
if a>0 then
(for i=1 to a do
x:=!x*i
done;
r:=!x);
!r;;

Problème:
- Pour a<0, le programme affiche quand même int = 0

Je tiens vraiment a ce programme, donc j'ai une deuxième requête plutôt que de m'aider a trouvé un nouveau programme qui peut faire exactement la même chose, j'aimerais que vous m'aidiez à finir celui la, parce que tout marche sauf la ptite bidouille avec a<0.

Autre chose, j'aimerais savoir si il y a une commande "STOP" pour arrêter le programme, parce que si c'est le cas je pense que mon problème sera résolu assez rapidement !

Merci d'avance !

[SpiceGuid]

Une méthode classique consiste à remplacer la ligne 7 par :

Code OCaml :

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

failwith "nombre négatif refusé";

[TchoubiTchoub]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
let fac a =
let r = ref 0 in
let x=ref 1 in
if a=0 then
r:=!x;
if a<0 then
print_string("nombre négatif refusé");
if a>0 then
(for i=1 to a do
x:=!x*i
done;
r:=!x);
!r;;

Je ne vais pas changer ton code mais simplement une ou deux petites remarques :

Tu écris

Code :

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

1
2
3
if a = 0 then ...;
if a < 0 then ...;
if a > 0 then ...;

Tu pourrais remplacer ça par

Code :

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

1
2
3
4
5
6
7
if a = 0 then r := !x
else if a < 0 then raise Exit (* Exit est une exception standard *)
else (* là on est sûr que a > 0) 
(for i=1 to a do
   x:=!x*i
 done;
 r:=!x);

C'est bien mieux.

Sinon, tu peux aussi définir tes propres exceptions comme ça :

Code :

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

exception Division_par_zero

et tu l'appelles avec

Code :

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

raise Division_par_zero

Cordialement

[bosskay]

Merci sa passe crème merci pour tout ce que vous avez fais !
Dernière question, est-ce qu'il y a un système d'étiquette genre "go to" & "lbl" (dsl c'est un peu le langague TI82 ^^')

[SpiceGuid]

Il n'y aucun système pour faire un saut à un point prédéfini du code.
Par contre il y a un système d'exception qui fait presque la même chose en plus discipliné :

Quand on exécute raise e, où e est une exception, le programme se rend au point with du dernier try ... with ... exécuté.

Voir le chapitre exceptions du manuel.