Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
lola
Inscrit le: 09 Juin 2007 Messages: 3
|
Posté le: 21 Juin 2007 22:39 Sujet du message: aide procédure |
|
|
je voudrais écrire une procédure maple qui retourne l'ensemble de tous les diviseurs d'un entier sans avoir à utiliser la fonction divisors() mais je ne sais pas comment alors si quelqu'un pourrait me donner un coup de main j'en serai reconnaissante.
merci |
|
Revenir en haut de page |
|
 |
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 22 Juin 2007 10:40 Sujet du message: |
|
|
Bonjour, on peut utiliser la fonction mod qui donne le reste d'une division:
Exercice:
n étant un entier naturel non nul fixé , écrire une procédure qui affiche tous les diviseurs de n .
Corrigé Exercice:
Code: |
diviseurs:=proc(n::posint)
local k;
for k to n do
if n mod k = 0 then print(k) end if
end do;
end proc;
diviseurs(117);
1
3
9
13
39
117
|
|
|
Revenir en haut de page |
|
 |
|