@Nepumuk
16.12.2005 11:31:30
tubias
habe hier einen Beitrag von dir gefunden:
https://www.herber.de/forum/archiv/556to560/t559952.htm
Wollte mal fragen warum du beim prüfen einer Zahl auf Prim in 10er Schritten arbeitest:
'Diese Funktion prüft Zahlen, ob diese Prim sind oder nicht
Private Function IsPrim(ByVal lng_pruefziffer As Long) As Boolean
Dim lng_counter As Long
If lng_pruefziffer Mod 3 = 0 Then Exit Function
If lng_pruefziffer Mod 7 = 0 Then Exit Function
For lng_counter = 10 To CLng(lng_pruefziffer ^ 0.5) Step 10
If lng_pruefziffer Mod (lng_counter + 1) = 0 Then Exit Function
If lng_pruefziffer Mod (lng_counter + 3) = 0 Then Exit Function
If lng_pruefziffer Mod (lng_counter + 7) = 0 Then Exit Function
If lng_pruefziffer Mod (lng_counter + 9) = 0 Then Exit Function
Next
IsPrim = True
End Function
Soll das schneller sein als wenn man das so machen würde wie in Wikipedia beschrieben?
wurzel_n = CLng(sqrt(n))
do i=2 to wurzel_n
if (n mod i = 0) then composite = 1
while
mfg tobias
*** http://www.tubias.de ***
Anzeige