programmation voyage 200

[cricrinature1]

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.

[tama]

bienvenue sur TIBank, cricrinature1, n'hésite pas à participer et à poser tous tes problèmes (aucune question n'est débile, seuls ceux qui n'osent pas la poster sont débiles )

Pour ton problème :

-il y a beaucoup plus simple
-à partir de l'écran Home : isprime(n) (où n est ton nombre))

sinon pour ton code :
(ne recopie pas ce qu'il y a après les "//"

Code: Select all

nombprem(n)
Local k
For k,2,int(/n)+1  // "/"=symbole de la racine carrée, n'oublie pas de fermer la parenthèse après !
If fPart(n/k)=0
Then
Disp string(n)" n'est pas premier"
Stop
EndIf
EndFor
Disp string(n)" premier"


P.S : ce sujet doit être déplacé dans la catégorie "programmation 68k"