Posté le 26/05/2017 16:27
Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 87 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
Citer : Posté le 26/05/2017 17:05 | #
Lbl 0
1→C
"Rentrer le chiffre N à tester"
?→N
If N<2
Then "Non, N≥2!"
ClrText
Goto 0
IfEnd
Isz C
While List8 [C<√N
N/List 8 [C→P
If Int P=P
Then ClrText
N◢
"N'est pas premier"
Else ClrText
N◢
"Est premier"
IfEnd
WhileEnd
sa marche je viens de le tester ! 8)
Citer : Posté le 26/05/2017 17:24 | #
Pas vraiment, Eirblast. Si tu utilises Goto à l'intérieur d'une condition, tu n'en sors jamais ; et ça finira par te causer des problèmes. Toujours utiliser ⇒ pour réaliser des Goto conditionnels.
Deux notes rapides pour Mine:
- Utilise la balise appropriée pour insérer du code (le bouton ) ;
- Les Else sont facultatifs. Si tu n'as rien à mettre dedans, tu n'es pas obligé de les écrire.
Sinon, j'ai testé ton programme sur ma machine en pré-remplissant la liste 8 avec quelques nombres premiers et je n'ai pas eu de problème pour les tests : j'en ai effectué quelques-uns avec de bons résultats. L'algorithme semble bon par ailleurs ; en fait, on ne sait pas trop quel est le problème...
Mais je suis certain à 100% qu'il me saute la boucle While
Qu'est-ce qui te le fait penser ?
Citer : Posté le 26/05/2017 17:45 | #
Oulah, c'est embêtant ça, pour moi, il ne fonctionne pas toujours, en rentrant 25 par exemple le programme me met qu'il est premier... Par contre en utilisant un exemple du cours: 247 qui lui n'est pas premier, là le programme m'annonce bien la bonne réponse.
Je me disais que le calcul était drôlement rapide mais je n'avais essayé qu'avec 25. C'est idiot car il ne va vérifier que 2 et 3 donc le fait d'obtenir un résultat faux m'a fait penser à cela.
Néanmoins je pense avoir trouvé mon erreur. Je viens de changer While List 8[C]<√N en While List 8[C]≤√N et là eureka, 25 n'est plus premier (mauvaise lecture de mon cours, j'écrirai moins vite la prochaine fois).
Merci pour votre réponse (et pour votre question sans laquelle je n'aurai pas trouvé pourquoi il ne fonctionnait pas)
Citer : Posté le 26/05/2017 18:07 | #
Ah, en effet. J'ai rentré ≤ en recopiant... voyant venir le problème j'ai vérifié, mais en fait tu n'avais pas besoin de mon aide.
Note à part : tu peux écrire un tel programme sans avoir la liste 8 pré-remplie : soit en la remplissant au fur et à mesure, soit en testant un peu plus de diviseurs. Généralement, ce sera une meilleure idée car on ne pensera pas toujours à vérifier que la liste est suffisamment remplie pour le nombre que l'on veut tester