GetTickCount

uint  GetTickCount();

#define MAX_SIZE 40
//+------------------------------------------------------------------+
//| скрипт для замера времени вычисления 40 чисел Фибоначчи          |
//+------------------------------------------------------------------+
void OnStart()
  {
//--- запомним начальное значение
   uint start=GetTickCount();
//--- переменная для получения очередного числа из ряда Фибоначчи
   long fib=0;
//--- цикл, в котором вычисляем заданное количество чисел из ряда Фибоначчи
   for(int i=0;i<MAX_SIZE;i++) fib=TestFibo(i);
//--- получим затраченное время в миллисекундах
   uint time=GetTickCount()-start;
//--- выведем в журнал "Эксперты" сообщение
   PrintFormat("Вычисление %d первых чисел Фибоначчи заняло %d ms",MAX_SIZE,time);
//--- работа скрипта завершена
   return;
  }
//+------------------------------------------------------------------+
//| Функция получения числа Фибоначчи по его порядковому номеру      |
//+------------------------------------------------------------------+
long TestFibo(long n)
  {
//--- первый член ряда Фибоначчи
   if(n<2) return(1);
//--- все последующие члены вычисляются по этой формуле
   return(TestFibo(n-2)+TestFibo(n-1));
  }