![]() |
скорость выполнения программы
хотелось узнать является ли скорость такой программы показателем быстодействия компьютера. мой комп считает ее за 21.9 сек. (извините за терминологию чайника)
Dim a As Long Private Sub Command1_Click() a1 = Timer 'девять нулей For a = 1 To 1000000000 Next a2 = Timer b = a2 - a1 Print b 'у меня 21.92188 секунд End Sub |
иоанн, умный компилятор/интерпретатор может вообще пропустить пустой цикл ;-)
т.к. компьютеры все разные (процессор, память, периферия), для оценки производительно используют набор тестов или даже симулируют реальные задачи. |
иоанн, своего рода да, но если есть желание делать бенчмарк, то как сказал Busla, симулировать какую-то задачу.
Например в программе Super PI рассчитывается постоянная до определённого (2^32) знака после запятой. Цитата:
|
а что такое _ бенчмарк_
|
|
не знаю . как его (код) написать , чтобы было компактно и культурно
Dim i As Integer Dim pn(20000000) As Double Dim p As Double Dim n As Long Private Sub Command1_Click() a1 = Timer i = 1 p = 4 For n = 2 To 20000000 pn(n) = -i * 4 / (2 * n - 1) If i = 1 Then i = -1 Else i = 1 End If p = p + pn(n) Next a2 = Timer a = a2 - a1 Print "число пи -"; p Print "время -"; a; "секунд" End Sub там формула для числа пи _ p=4-4/3+4/5-4/7+4/9-4/11 ......... |
Код:
... |
Время: 23:17. |
Время: 23:17.
© OSzone.net 2001-