Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Primzahlentest Nr. 2

Uploader:Mitgliedgast
Datum/Zeit:28.08.2005 10:03:48

'Autor: Tomtitom

'Prim2
'Es wird nur durch die Primzahlen geteilt, da ja jede andere Zahl eine Primzahl als Teiler hat
'wenn sie selbst keine Primzahl ist
'braucht mehr Speicher, ist aber schneller als Prim1

dim bisdahin as uinteger = 1000000
dim prim(100000) as uinteger
prim(0) = 3
prim(1) = 5
z= 0
lastprim = 2

t# = timer
for i = 5 to bisdahin step 2
    do
        if i/prim(z) = i\prim(z) then p = 1:exit do
        z=z+1
    loop until prim(z) > sqr(i)
    if p then
        p=0
    else
        prim(lastprim) = i
        locate 1,1:print "letzte Primzahl = "; prim(lastprim)
        lastprim = lastprim + 1
    end if
    z=0
next
print timer-t#
print lastprim
sleep