Comprehension
Fermé
biba
-
16 déc. 2010 à 01:40
Scoleproj Messages postés 231 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 août 2022 - 16 déc. 2010 à 02:19
Scoleproj Messages postés 231 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 août 2022 - 16 déc. 2010 à 02:19
A voir également:
- Comprehension
- Dans le but d'améliorer ses performances, notre site est actuellement en maintenance. merci pour votre compréhension. - Forum Wordpress
- Problème de compréhension sur les structures ✓ - Forum C++
- Compréhension commande cisco ✓ - Forum CISCO
- Compréhension interfaces vlan - Forum Réseau
- Besoin d'aide à la compréhension des pb de débit ✓ - Forum Livebox
2 réponses
aragon6980
Messages postés
1195
Date d'inscription
vendredi 19 novembre 2010
Statut
Membre
Dernière intervention
19 avril 2011
252
16 déc. 2010 à 02:15
16 déc. 2010 à 02:15
tu ne nous dit pas en quoi tu programme
voila un petit truc en VB6
Private Function IsPrime(ByVal Number As Double) As Boolean
' Compteur
Dim i As Double
' Nombre
Dim d As Double
' Trois nombres ne seront pas pris en compte par le compteur, on s'organise pour
' qu'ils soient vus avant.
Select Case Number
Case 0
IsPrime = False
Exit Function
Case 1
IsPrime = False
Exit Function
Case 2
IsPrime = True
Exit Function
End Select
' Voici la boucle.
' Pas besoin de commencer à 1 et de finir au nombre, 3 et la racine du nombre
' font bien l'affaire
For i = 2 To Int(Sqr(Number)) + 1
' d = Number / i
d = Number Mod i
' If d = Int(d) Then
If d = 0 Then
IsPrime = False
Exit Function
End If
Next i
' Verdict ?
IsPrime = True
End Function
voila un petit truc en VB6
Private Function IsPrime(ByVal Number As Double) As Boolean
' Compteur
Dim i As Double
' Nombre
Dim d As Double
' Trois nombres ne seront pas pris en compte par le compteur, on s'organise pour
' qu'ils soient vus avant.
Select Case Number
Case 0
IsPrime = False
Exit Function
Case 1
IsPrime = False
Exit Function
Case 2
IsPrime = True
Exit Function
End Select
' Voici la boucle.
' Pas besoin de commencer à 1 et de finir au nombre, 3 et la racine du nombre
' font bien l'affaire
For i = 2 To Int(Sqr(Number)) + 1
' d = Number / i
d = Number Mod i
' If d = Int(d) Then
If d = 0 Then
IsPrime = False
Exit Function
End If
Next i
' Verdict ?
IsPrime = True
End Function
Scoleproj
Messages postés
231
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 août 2022
26
16 déc. 2010 à 02:16
16 déc. 2010 à 02:16
Tu fais une boucle avec i de n/2 a n et tu memorises i si celui ci est premier
16 déc. 2010 à 02:16
16 déc. 2010 à 02:19
lol et l'algorithmique ca te dit quelque chose?