Salut a tous.
Voila un algorithme (assez long je l'admet) qui se doit de verifier si un nombre est premier. Pour l'info je l'ai deja ecrit sur calculette en BAsic (HP) et ca allait impec. Voila le truc en Visual Basicss
 
1 : For i = 2 to (premier - 1) 'les var sont crées avantss
2 :ssss If premier mod i = 0 Then
3:ssssss MsgBOx("Pas premier" )
4:ssssss Else
5:ssssss MsgBox("premier" )
 
 
Pour moi ce truc teste toutes les valeurs de 2 a premier-1 (premier et le chiffre a tester) donc si le reste de la div euclidienne de premier par toutes les valeurse comprises entre 2 et premier-1 est different de 0 le nombre est premier.
 
Sinon il existe l'algo de wilson et le petit fermatss
et pis le test de la racine carrée.
 
Merci de m'aider ou de me recommander un autressalgo

Le raisonnement est évidemment bon
 
Il ne manque pas des trucs genre NEXT et END IF???

tu dis qu'il marche pas mais il fait quoi ton algo, il te retourne toujours premier ?

bizarre ton algo ... pi fredo a raison: il manque le next du for et le end if du if (end if du if pas mal hein!!!)

Pour des raisons de symetrie tu n'es pas oblige de monter jusqu'a premier-1 tu peux t'arreter a partie entiere de premier/2 voirsspartie entiere de (premier-1)/2 si premier > 4
 
 
Pour le petit fermat si tu fais reference au petit theoreme de fermat qui dit que:
si p est premier alors quelque soit a entier a^p est congru a a modulo pssje crains qu'il ne te soit pas d'une tres grande utilite car la reciproque est fausse cf le contre exemple celebre 2^341 -2 est divisble parss341 alors que 341 n'est pas premier.
 
Desole de pas avoir pu t'aiderss
 
a+ et bonne chance

 
Il peut même se limiter à la partie entière de la racine carrée de p.

--Message édité par Verdoux--

oui c'est tout a fait vrai !
 
Merci Verdoux d'avoir corrige.

--Message édité par zeltron--

Ah oui, tu devrais aussi prévoir une sortie de boucle si le nombre n'est pas premier, avec un do...while par exemple.