voyage 200

Question

Bonjour, je voudrai créer un programme permettant de vérifier si un nombre est premier ou pas (c'est-à-dire s'il n'est divisible que par lui-même et par 1 ou par d'autres nombres). Voici mon algo : lire n k:=2 tant que k^2<=n faire si k/n imprimer : n est non premier sinon k:=k+1 imprimer : n est premier fin du si fin du tant Voici ce que j'ai programmé sur la Voyage 200 nombprem(n) Prgm Local k 2->k While k^2<=n If k/n=true Then Disp « le nombre n'est pas premier » Else k+1->k Disp « le nombre est premier » EndIf EndWhile EndPrgm Lorsque je l'exécute, il m'affiche toujours que le nombre est premier ce qui n'est pas toujours le cas. Pouvez-vous m'aider? Je vous en remercie d'avance.

PCPT · Answer

salut,
utilise le moteur de recherche, il y a beaucoup de sources &#224; ce sujet
PCPT   [AFCK]

Sim 2005 · Answer

Il faut r&#233;aliser non pas "If k/n = true" mais k mod n = 0. L'algorithme est pas tr&#232;s performant, lorsque les nombres deviennent trop grand, il est inefficace. Cf : Crible quadratique, GNFS sont meilleurs

Tu devrais tester &#231;a


lire n


si n mod 2 = 0

imprimer : n est non premier

fin du si

k:=1


tant que k^2<=n faire


si n mod k = 0


imprimer : n est non premier


fin du si

k:=k+2


fin du tant


imprimer : n est premier

Sim 2005 · Answer

Oups c'est pas k = 1 mais k = 3. (Les nombres premiers sont divisibles par un)

cricrinature · Answer

merci
j'ai r&#233;ussi &#224; faire mon programme

Voyage 200

4 réponses

Discussions similaires