A voir également:
- Comprehension
- Lecture compréhension cm1 cm2 pdf - Télécharger - Éducatifs
2 réponses
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
lol et l'algorithmique ca te dit quelque chose?