fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Primzahlentest Nr. 1

Uploader:	gast
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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.