 |
Apprendre Maple Site dédié au logiciel de calcul formel Maple
|
Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
prof-shadoko
Inscrit le: 02 Nov 2007 Messages: 1
|
Posté le: 02 Nov 2007 22:17 Sujet du message: suite d'entiers consecutifs non premiers |
|
|
Bonsoir !
J'ai codé un programme pour trouver une suite de a entiers concécutifs non premiers, le voici (ici je cherche une suite de 4 nombres succesifs non premiers) :
> restart:
> a:=0:
> for k from 0 while a<=4
> do
> if isprime(k+1) then a:=0, print(k,a) else a:=a+1, print(k,a) end if
> end do;
et voila ce que j'obtiens :
0, 1
1, 2
2, 0
3, 0
4, 1
5, 0
...
22, 3
23, 0
24, 1
25, 2
26, 3
Jusque là c'est OK, subsiste 2 problemes
- pourquoi dois je avoir "isprime(k+1)" ?
- lorsque je commence avec un k different de 0, les valeurs de a(k) ne collent plus avec celles de k, pourquoi ?
Merci de votre réponse
@+ |
|
Revenir en haut de page |
|
 |
prof_simplet
Inscrit le: 12 Sep 2006 Messages: 86
|
Posté le: 03 Nov 2007 9:32 Sujet du message: |
|
|
Bonjour, il va falloir reprendre tout ça, car votre programme n'affiche pas ce qui est demandé.
Pour a=4, on devrait afficher 1,4,6,8 puis 9,10,12,14 etc ...
Voilà ce que je vous propose:
variable i de 1 à nbmax : on affiche nbmax suites de a entiers non premiers
variable j de 1 à a: on remplit la séquence L de a nombres entiers non premiers
variable k : varie de 1 en 1 au cours du calcul
variable L: séquence des nombres à afficher
Code: |
> affiche:=proc(a::posint,nbmax::posint)
> local i,j,k,L;
> k:=0:
> for i to nbmax do
> j:=0: L:=NULL:
> while j<a do
> k:=k+1:
> if not isprime(k) then
> L:=L,k: j:=j+1
> end if
> end do:
> print(L)
> end do
> end proc:
> affiche(4,5);
1, 4, 6, 8
9, 10, 12, 14
15, 16, 18, 20
21, 22, 24, 25
26, 27, 28, 30
|
A plus |
|
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.
|