fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Divisionsvergleich für MOD

Uploader:	Sebastian
Datum/Zeit:	17.05.2010 19:44:37

REDIM Zahlen(750000) AS INTEGER

DIM AS INTEGER i, Ergebnis

DIM AS DOUBLE a, b



RANDOMIZE TIMER

FOR i = LBOUND(Zahlen) TO UBOUND(Zahlen)

    Zahlen(i) = INT(RND*100000)+1

NEXT i



a = TIMER

FOR i = LBOUND(Zahlen)+1 TO UBOUND(Zahlen)

    Ergebnis = Zahlen(i-1)/Zahlen(i)

NEXT i

b = TIMER

PRINT USING "Test 1: ###.######"; (b-a)



a = TIMER

FOR i = LBOUND(Zahlen)+1 TO UBOUND(Zahlen)

    Ergebnis = Zahlen(i-1)\Zahlen(i)

NEXT i

b = TIMER

PRINT USING "Test 2: ###.######"; (b-a)



SLEEP

END

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.