Procédures sous maple !

[ichigo01]

Salut à tous !

Je ne sais pas si j'ai le droit de poser cette question ici mais j'ai un problème avec maple : Les procédures ne marchent pas chez moi ?
Je fais une procédure simple, par exemple :

fact:=proc(n)
if n=0 then 1
else n*fact(n-1)
fi
end:

Mais ça ne donne rien !
Merci !
-----

[invite152a412d]

Oui c'est normal que ça ne fonctionne pas, tu n'as pas annoncé tes variables dans ton programme. Voila ce qu'il faut mettre pour calculer le factoriel d'un entier :

fact:=proc(n);
[COLOR="rgb(255, 0, 255)"]local[/COLOR] s,k;%on identifie les variables dont on va avoir besoin
s:=1;%initialisation de la variable
for k from 1 to n [COLOR="rgb(46, 139, 87)"]do[/COLOR]
s:=s*k;
[COLOR="rgb(46, 139, 87)"]od[/COLOR];
print(s);%commande pour renvoyer ton résultat
end;%fin de ta procédure

[invite152a412d]

Oui c'est normal que ça ne fonctionne pas, tu n'as pas annoncé tes variables dans ton programme. Voila ce qu'il faut mettre pour calculer le factoriel d'un entier :

fact:=proc(n);
[COLOR="rgb(255, 0, 255)"]local[/COLOR] s,k;%on identifie les variables dont on va avoir besoin
s:=1;%initialisation de la variable
for k from 1 to n [COLOR="rgb(46, 139, 87)"]do[/COLOR]
s:=s*k;
[COLOR="rgb(46, 139, 87)"]od[/COLOR];
print(s);%commande pour renvoyer ton résultat
end;%fin de ta procédure

oups désolès fausse manip :

fact:=proc(n);
local s,k; %on identifie les variables dont on va avoir besoin
s:=1; %initialisation de la variable
for k from 1 to n [COLOR="rgb(46, 139, 87)"]do[/color]
s:=s*k;
[COLOR="rgb(46, 139, 87)"]od[/color];
print(s); %commande pour renvoyer ton résultat
end;%fin de ta procédure

[invite152a412d]

oups désolès fausse manip :

fact:=proc(n);
local s,k; %on identifie les variables dont on va avoir besoin
s:=1; %initialisation de la variable
for k from 1 to n [COLOR="rgb(46, 139, 87)"]do[/color]
s:=s*k;
[COLOR="rgb(46, 139, 87)"]od[/color];
print(s); %commande pour renvoyer ton résultat
end;%fin de ta procédure

Mince je vais y arriver, il est tard c'est pour ça ^^

fact:=proc(n);
local s,k;%on identifie les variables dont on va avoir besoin
s:=1;%initialisation de la variable
for k from 1 to n do
s:=s*k;
od;
print(s);%commande pour renvoyer ton résultat
end;%fin de ta procédure

[A voir en vidéo sur Futura]

[invite34b13e1b]

salut,
je pense que ce qui ne va pas dans ton probleme c'est que tu ne lui demandes pas de te renvoyer le résultat avec "then 1". Je propose de passer par une variable intermédiaire, (tt en gardant la récursivité)

fact := proc (n)
e := 1;
if n = 1 then e = 1 else e := fact(n-1)*n fi;
e;
end

[invite34b13e1b]

en y repensant ton truc devrait marcher quand meme... t'es sur de ne pas avoir oublié des ";"? (on peut rêver^^)

[invite0a963149]

euh manque des virgules ou des point virgule

fact:=proc(n),
if n=0 then 1
else n*fact(n-1)
fi,
end;

(enfin ça fait longtemps que j'ai pas fait du Maple, faut peut être des print non ?)

[invite81055034]

Salut,

Je viens de copier coller ton code source original dans maple 13 et ça marche sans problèmes ... (Après c'est peut être parce que c'est Maple 13 et qu'il est plus "laxiste" sur la syntaxe ^^ )

[invite34b13e1b]

euh manque des virgules ou des point virgule

fact:=proc(n),
if n=0 then 1
else n*fact(n-1)
fi,
end;

(enfin ça fait longtemps que j'ai pas fait du Maple, faut peut être des print non ?)

a priori, maple affiche son dernier calcul effectué s'il n'y a pas print, donc bien n! ici.

[invite81055034]

@Yogono,
Je pense que le but ici est d'illustrer les procédures récursives.
Après les itératives marchent sans soucis mais sont moins "classes" ^^