|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
Guimzo
Inscrit le: 02 Juin 2012 Messages: 209
|
Posté le: 27 Juin 2012 4:10 Sujet du message: Somme des décimales d'un nombre |
|
|
Bonjour ALS,
Je viens vous consulter cette fois-ci pour une petite séquence
qui calculerait la somme à n rang des décimales d'un nombre donné.
Exemple : 5611202228
Somme des décimales à 7 rangs = 5+6+1+1+2+0+2 = 17
Pour aller plus loin une autre séquence qui consisterait à fabriquer un nombre image à n rang à partir de la suite des sommes successives d'un nombre donné
Exemple : 5611202228
Nouveau nombre image à 10 rangs : 111213151517192129
(5+6 =11 ; 11+1 =12 ; 12+1 =13 etc...)
J'ai regardé un peu la fonction "sum" mais j'ai aucune idée comment l’utiliser... |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 27 Juin 2012 7:03 Sujet du message: |
|
|
Bonjour,
Il suffit d'écrire ces 2 petites procédures:
Code: |
somme_dec:=proc(nb::posint, n::posint)
> local k,l,s,t:
> l:=evalf(floor(log10(nb))); # longueur du nombre - 1
> if n>l+1 then error "bad second argument" fi:
> s:=[seq(floor(nb/10^(l-d)),d=0..n-1)];
> t:=s[1]:
> for k from 2 to nops(s) do
> t:=t,s[k]-10*s[k-1]
> od:
> convert([t],`+`);
> end proc:
> somme_dec(5611202228,7);
17
> somme_dec(5611202228,11);
Error, (in somme_dec) bad second argument
> image_nombre:=proc(nb::posint, n::posint)
> local i,l,k,s:
> s:=[seq(somme_dec(nb,k),k=2..n)];
> i:=0:
> l:=nops(s):
> for k to l do
> i:=i+s[l+1-k]*10^(2*(k-1))
> end do:
> i
> end proc:
> image_nombre(5611202228,10);
111213151517192129
|
Je pense que ça fonctionne. |
|
Revenir en haut de page |
|
|
Guimzo
Inscrit le: 02 Juin 2012 Messages: 209
|
Posté le: 27 Juin 2012 12:45 Sujet du message: Somme des décimales d'un nombre |
|
|
Bonjour ALS,
Comme d'habitude avec vous il n'y à que des solutions...!!
C'est impeccable pour les 2 séquences qui fonctionnent à point....!! : )
Merci Merci Merci....!
Soyez Béni ! |
|
Revenir en haut de page |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
Développé par phpBB © 2001, 2006 phpBB Group
Traduction par : phpBB-fr.com
Apprendre Maple - ©
- Alain Le Stang - Navigation optimisée pour une résolution 1024 x 768.
|