counter = 0

max_counter = 1000000

inside = 0

StartTimer(1)

For counter = 0 To max_counter

x = RndF()
y = RndF()

If (x^2+y^2) < 1 Then inside = inside+1

Next

epi = 4 * inside / max_counter

countingTime = GetTimer(1)

countingTime = countingTime / 1000

ConsolePrint("przyblizona wartosc Pi to " .. epi .. ", obliczenia zajely " .. countingTime .. " sekund.")


inside = 0

StartTimer(1)
DisableLineHook()
For counter = 0 To max_counter

x = RndF()
y = RndF()

If (x^2+y^2) < 1 Then inside = inside+1

Next

epi = 4 * inside / max_counter
EnableLineHook()
countingTime = GetTimer(1)

countingTime = countingTime / 1000

ConsolePrint("przyblizona wartosc Pi to " .. epi .. ", obliczenia zajely " .. countingTime .. " sekund.")


inside = 0

StartTimer(1)
DisableLineHook()
For Local counter = 0 To max_counter

Local x = RndF()
Local y = RndF()

If (x^2+y^2) < 1 Then inside = inside+1

Next

epi = 4 * inside / max_counter
EnableLineHook()
countingTime = GetTimer(1)

countingTime = countingTime / 1000

ConsolePrint("przyblizona wartosc Pi to " .. epi .. ", obliczenia zajely " .. countingTime .. " sekund.")


WaitLeftMouse

End