Apprendre Maple

[Bouzar]

Bonsoir

voici un programme qui j'espère pourra être utile à certains :

[img]MEMBER:= proc(x,L) local v;
for v in L do
if v=x then RETURN(true) fi
od;
false
end; [/img]

L:=[1,3,5,6,7,8,9]:member(9,L);member(19,L);
true
false

En voici un autre :

[img]MAX:= proc()
local r,i;
r := args[1];
for i from 2 to nargs do
if r < args[i] then r := args[i] fi
od;
r
end;

MAX(1,2,3,4,5);
5[/img]
Voila au fur et à mesure je posterai mes programmes sur ce site qui est vraiment génial et pleins d'encouragements à ALS pour avoir pris cette initiative. En cours d'envoi un programme de tri à bulle.

Par contre, je soumet le problème suivant :

étant donné un nombre entier naturel, on souhaite écrire un programme que l'on appelera chiffre et qui fait la chose suivante :

[img]143 est un entier naturel.

chiffre(143, 1);
3 "renvoie le chiffre du 1 er ordre"
chiffre(143, 2);
43
chiffre(143, 3);
143

chiffre(1300172, 3);
172[/img]
voilà j'attend des réponses et merci d'avance.

@+
[img][/img]