|
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
michel
Inscrit le: 23 Juin 2006 Messages: 72
|
Posté le: 05 Avr 2017 10:31 Sujet du message: Sortir d'une boucle |
|
|
Bonjour,
Voici une procédure qui permettrait si un nombre est brésilien:
Un nombre entier naturel n est dit brésilien s'il existe une base b dans laquelle il s'écrit avec toujours le même chiffre répété plusieurs fois,
au moins deux, cette base devant être inférieure à n - 1 : b < n - 1 (et supérieure à 1, évidemment).
Code: |
> Nbre:=proc(n)
> local bresilien,base,compteur,flag,i,k,q,r:
> bresilien:=0:compteur:=0:
> for base from 2 to n-1 do
> q:=n:k:=0:flag:=0:
> while q<>0 do
> r[k]:=irem(q,base):
> q:=iquo(q,base):
> if (k>0 and r[k]=r[k-1]) then flag:=1: break: fi:
> k:=k+1:od;
> if flag=0 then compteur:=compteur+1: bresilien:=1:
> printf("\n base=%d ",base):
> for i from 0 to k-1 do printf("%d",r[i]):i:=i+1 od fi:
> base:=base+1:od:
> if (bresilien=1) then printf("\n Le nombre %d est brésilien de %d façon(s)\n",n,compteur)
else printf("\n Le nombre %d n'est pas brésilien \n",n) fi
> end:
|
exemples: 13=111(2),31=11111(2)=111(5)...Pourquoi "break" n'agit-il pas ? Merci. |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 05 Avr 2017 13:15 Sujet du message: |
|
|
Bonjour, plusieurs erreurs dans votre code, voici le corrigé :
Code: |
Nbre:=proc(n)
> local bresilien,base,compteur,flag,i,k,q,r:
> bresilien:=0:compteur:=0:
> for base from 2 to n-1 do
> q:=n:k:=0:flag:=0:
> while q<>0 do
> r[k]:=irem(q,base):
> q:=iquo(q,base):
> if (k>0 and r[k]<>r[k-1]) then flag:=1: break: fi:
> k:=k+1;
> od;
>
> if flag=0 then
> compteur:=compteur+1: bresilien:=1:
> printf("\n base=%d ",base):
> for i from 0 to k-1 do printf("%d.",r[i]) od
> fi:
> od;
> if (bresilien=1) then printf("\n Le nombre %d est brésilien de %d façon(s)\n",n,compteur)
> else printf("\n Le nombre %d n'est pas brésilien \n",n) fi
> end:
>Nbre(341);
base=4 1.1.1.1.1.
base=30 11.11.
base=340 1.1.
Le nombre 341 est brésilien de 3 façon(s)
|
Le break fonctionne bien, vous aviez mis une instruction contraire à r[k]<>r[k-1].
Voilà, le programme fonctionne dans sa globalité, semble-t-il.
A+ |
|
Revenir en haut de page |
|
|
michel
Inscrit le: 23 Juin 2006 Messages: 72
|
Posté le: 05 Avr 2017 16:06 Sujet du message: Nombres brésiliens |
|
|
Merci ALS pour cette correction.
L'erreur provient d'une mauvaise interprétation d'un langage que je ne connais pas en maple :
Voici l'extrait :
{ q= nombre; k=0; flag=0;
while(q!=0)
{ r[k]=q%base; q=q/base;
if (k>0 && r[k]!=r[k-1]) { flag=1; break;} k++;
}
La procédure corrigée fonctionne parfaitement.
A- |
|
Revenir en haut de page |
|
|
ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 06 Avr 2017 9:36 Sujet du message: |
|
|
Il s'agit du langage C.
ALS |
|
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.
|