20 lines
299 B
Text
20 lines
299 B
Text
|
global i
|
||
|
|
subroutine timeit()
|
||
|
|
iter = 0
|
||
|
|
starter = msec
|
||
|
|
while True
|
||
|
|
iter += 1
|
||
|
|
if msec >= starter + i then exit while
|
||
|
|
end while
|
||
|
|
print iter; " iteraciones en "; i; " milisegundo";
|
||
|
|
if i > 1 then print "s" else print
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
for i = 1 to 3
|
||
|
|
call timeit()
|
||
|
|
next i
|
||
|
|
|
||
|
|
i = 200
|
||
|
|
call timeit()
|
||
|
|
end
|