Calcule de nombre premier
Description
ce code calcul dans nombre premier en commancant au niveau que vous voulez (a partir du 100 000° si sa vous plait) durant un temps derterminé
Pour des raison de rendement il est reduit au minimum. Pour avoir le prog complet avec interface telecharger le .zip
Pour des raison de rendement il est reduit au minimum. Pour avoir le prog complet avec interface telecharger le .zip
Source / Exemple :
Public Function premier()
time1 = InputBox("temps", , "10")
time2 = Timer ' temps de dépard
nb = 5
nb1 = 1
scor = " 3"
time3 = time1 + time2 ' temps de fin
line1:
nb1 = 1
scor3 = 0
If time3 < Timer Then GoTo linefin
nb = nb + 2
len1 = Len(nb)
mid1 = Mid(nb, len1, 1)
If mid1 = 0 Then GoTo line1
If mid1 = 5 Then GoTo line1
line2:
len2 = Len(scor)
nb1 = nb1 + 1
If nb1 > len2 Then GoTo line5
mid2 = Mid(scor, nb1, 1)
If mid2 = " " Then GoTo line3
scor3 = scor3 + mid2
GoTo line2
line3:
scor1 = nb / scor3
scor3 = 0
scor4 = InStr(1, scor1, ",", vbBinaryCompare) 'recherche si le nombre est decimal
If scor4 = 0 Then GoTo line1 Else GoTo line2
line5:
scor5 = Str(nb)
scor = scor + scor5
nb1 = 1
scor3 = 0
GoTo line1
linefin:
scor = scor + " "
premier = scor
MsgBox (scor)
End Function
Codes Sources
A voir également
- Calcule de nombre premier
- Nombre premier ✓ - Forum C / C++ / C++.NET
- Algorithme nombre premier java - Forum Java
- Générateur de nombre ✓ - Forum PHP
- Calcul nombre de parpaing ✓ - Forum VB.NET
- Nombre de semaine par an - Forum C / C++ / C++.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.