Je viens de terminer un programme de calcul (très ?) rapide de nombres premiers, basé sur mes propres recherches.
Je voudrais savoir si quelqu'un pourrait le tester, pour y trouver une éventuelle faille, mais aussi pour savoir s'il existe des algorithmes aussi rapides.
Merci d'avance.
Voici le code :
Code : Tout sélectionner
OpenConsole()
Repeat
PrintN("Entrez un nombre a verifier :")
a$=Input()
nb.q=Val(a$)
Premier=1
tt.f=ElapsedMilliseconds()
i.q=2
j.q=3
While (j.q*j.q)<=nb.q
j.q=j.q+1
Wend
While i.q<j.q
If (nb.q % i.q)=0
Premier=0
j.q=nb.q/i.q
PrintN(Str(i.q)+" * "+Str(j.q))
EndIf
i.q=i.q+1
Wend
tt.f=(ElapsedMilliseconds()-tt.f)/1000.000
If Premier=1
PrintN("Ce nombre est PREMIER !")
Else
PrintN("Ce nombre n'est PAS PREMIER !")
EndIf
PrintN("Temps de verification : "+StrF(tt.f))
PrintN("")
PrintN("Voulez vous verifier un autre nombre ? (o/n)")
a$=Input()
If LCase(a$)<>"o"
CloseConsole()
End
EndIf
PrintN("")
ForEver