liczby pierwsze banał?? nie dla mnie :-)

[Koza]

podajcie mi proszę kod liczący liczby pierwsze lub sprawdzający czy dana liczba
jest pierwsza.
Może ktoś ma makro liczące współczynnik spearmana (excel nie ma gotowej funkcji)
dzięki
PS.Nie udawadniajcie mi że to nie tu i Wasz poziom nie sięga tak nisko :-)

[Tajan]

Witam!

podajcie mi proszê kod licz±cy liczby pierwsze lub sprawdzaj±cy czy dana

liczba

jest pierwsza.

(.....)

Jezeli chodzi o Excel'a, to przyklad prostej funkcji sprawdzajacej czy dana
liczba naturalna jest liczba pierwsza:

Public Function Pierwsza(N As Variant) As Boolean
Dim I As Variant
If N <= 1 Then
Pierwsza = False
Else
I = 2
Do While N Mod I <> 0
I = I + 1
Loop
Pierwsza = (I = N)

End If
End Function


Pozdrawiam
Tajan

[Henryk Tomczyk]

Witam!

Post by Tajan
Jezeli chodzi o Excel'a, to przyklad prostej funkcji sprawdzajacej czy dana
Public Function Pierwsza(N As Variant) As Boolean

================================================
Fajna funkcja, dobra dla niewielkich liczb.
Dla liczb > 1 000 000 000 nie radzę używać z powodu powolnego algorytmu.

Może zainteresuje kolegę Kozę "Generator liczb pierwszych"?
Gotowiec na stronie
http://www.excel.republika.pl/dopobrania/genliczb1szych/genliczb1szych.htm

Pozdrawiam
Henryk Tomczyk