VÉRIFIER QU'UN NOMBRE EST PREMIER : ALGORITHME PARUT DANS LE S&V DE NOV 2002
cs_Sophus
Messages postés
37
Date d'inscription
mercredi 20 novembre 2002
Statut
Membre
Dernière intervention
27 juillet 2007
-
26 nov. 2002 à 17:39
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 2 mai 2009 à 20:31
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 - 2 mai 2009 à 20:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5177-verifier-qu-un-nombre-est-premier-algorithme-parut-dans-le-s-v-de-nov-2002
https://codes-sources.commentcamarche.net/source/5177-verifier-qu-un-nombre-est-premier-algorithme-parut-dans-le-s-v-de-nov-2002
2 mai 2009 à 20:31
Avec 27, on a un overflow... ?
A y regarder dans le code, je vois beaucoup de chose à redire. Par exemple :
(1 Mod r) donnera toujours 1 ! Je pense que la programmation ne suit pas l'algorithme de la capture...
Amicalement,
Us.
2 sept. 2005 à 20:47
Et dans le prog, les multiples de 5, 9 et 7 (pour ne citer qu'eux) et non multiples de 2 (ex : 9,27,21,45,555554545...) sont déclarés nombres premiers...
A revoir, donc.
14 déc. 2002 à 23:01
27 nov. 2002 à 21:01
http://www.vbfrance.com/article.aspx?Val=6434 (pour décomposer 1 nbr en facteurs premiers)
http://www.vbfrance.com/article.aspx?Val=6483 (pour sortir la liste des nbrs premiers)
mais cet algorithme est censé être bien plus rapide pour les très grand nombre (utilisés en cryptographie par exemple) de plusieurs dizaines de chiffres.
27 nov. 2002 à 20:37
c'est simple ! pourquoi tout compliquer ?
27 nov. 2002 à 16:03
27 nov. 2002 à 16:02
27 nov. 2002 à 15:53
27 nov. 2002 à 15:52
27 nov. 2002 à 15:52
27 nov. 2002 à 15:50
27 nov. 2002 à 15:50
27 nov. 2002 à 15:50
27 nov. 2002 à 15:50
27 nov. 2002 à 15:49
27 nov. 2002 à 15:49
27 nov. 2002 à 13:30
Je pense que je serais capable de faire un programme similaire ...
Si certaine personnes y tiennent , je le ferai, sinon bon ben tant pis ... :)
27 nov. 2002 à 09:32
Heu 2 n'est pas un nombre permier en Inde ? J'ai pourtant fait un an de math la bas, et il me semblait bien qu'il est était premier.... :D
Je confirme ce que je disais avant sauf que je retire la ligne ou j'ai écris "est doué en math" en fait c'est un mec qui a jms touche une ligne et qui n'a jms compris comment calculé un nb premier.... enfin c'est perso
27 nov. 2002 à 09:26
Je veux juste dire un truc, la version des dits INDIENS est merdique :D
En plus je vois pas pkoi la notation de log et de puissance viens foutre la dedans. C'est plus pour ralentir le code qu'autre chose !
Tu peux mettre niv 1 pour ton source, car c'est un amateur qui a du faire ce truc, il a jms touche a de la prog avant mais par contre c'est un doué un math... voila tout !
Je sais pas sur mais je crois que le language LISP ou ADA, permet de faire des calcul style
54546654654654654 ^ 4834043798324794 mod 3728173389723 en 1 sec... peut etre qu'avec ce language leur méthode serait bien rentabale mais la :D
27 nov. 2002 à 09:16
Donc 1 sera premier à vous de corriger lol ... (un petit oubli :D)
un if n 1 then isPrimefalse :exit function irra tres bien...
fo enlelver les msgbox c'etait juste pour moi quand j'ai testé :D
Public Function isPrime(ByVal n As Long) As Boolean
Dim milieu As Long
Dim resultat As Boolean
milieu = CLng(Sqr(n))
resultat = True
If n Mod 2 <> 0 Then
For i = 3 To milieu Step 2
If n Mod i = 0 Then
resultat = False: MsgBox "Il est divisible par " + CStr(i)
Exit For
End If
Next i
Else
If n <> 2 Then resultat = False: MsgBox "Il est divisible par 2"
End If
isPrime = resultat
End Function
26 nov. 2002 à 21:32
l'algo est foireux (du moins par rapport à ce que j'en connais présentement, à savoir la copie d'écran du source...) Si on part du principe que le mille borne est un bon jeu pour la famille, on peut écrire :
Function IsPrime(ByVal valeur As Double) As Boolean
Me.MousePointer = vbHourglass
Dim i As Double, j As Double
IsPrime True: j valeur
For i = 2 To j - 1
valeur = j / i
If i > 999 Then
Me.MousePointer = vbDefault
Exit Function
End If
If InStr(CStr(valeur), ",") = 0 Then
IsPrime = False
Me.MousePointer = vbDefault
Exit Function
End If
DoEvents
Next
Me.MousePointer = vbDefault
End Function
26 nov. 2002 à 20:43
Mais c'est COSMIC et non pas COMICS
OK!!!
Alors c'est good...
ça serait cool d'avoir le code original pour qu'on puisse le transcrire nous même...
Et a l'occasion mettre nos résultats en commun...
26 nov. 2002 à 20:01
26 nov. 2002 à 19:58
j'ai pas encore capté l'astuce mais ... ça va venir !
@+
26 nov. 2002 à 19:44
26 nov. 2002 à 19:20
en plus, division par zéro = pas géré. C++ c'est bien. Mais je pense que avec quelques API un vbiste peut faire presque aussi bien qu'un c++ iste !
(vous noterez le "presque...")
1- pas de typage de variables = pas bon
2- code pas indenté = pas bon
3- Interface ésotérique = pas bon...
Ma note = 4
@+
26 nov. 2002 à 18:51
26 nov. 2002 à 17:39