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