Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [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. 1

Uploader:Mitgliedgast
Datum/Zeit:27.08.2005 22:55:25

'Autor: Tomtitom

'Prim1
'die zu prüfende Primzahl wird einfach durch alle anderen Zahlen geteilt
'Das einzige Programm, mit dem man eine Zahl prüfen kann und die auch nicht (so doll) vom Speicher abhängt

dim bisdahin as uinteger = 1000000

t#=timer
for i = 3 to bisdahin step 2
    for j = 2 to sqr(i)
        if i/j = i\j then prim = 1:exit for
    next

    if prim then
        prim = 0
    else
        locate 1,1:print "letzte Primzahl = "; i
    end if
next
print timer-t#
sleep