Сравнить быстродействия алгоритмов

Если вас сколько-нибудь интересует скорость работы вашей программы, то нужно смерить скорость алгоритмов и сравнивать их. Здесь я привожу пример, сравнивающий четыре способа возведения 2 в степень 30.

uses Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  Res, Exponent: integer;
  Res1: real;
  t, i: integer;
begin
  Exponent := 30;

  Application.ProcessMessages;
  t := GetTickCount;
  for i := 1 to 1000000 do
    Res := 1 shl Exponent;
  Form1.Caption := Form1.Caption + ' ' +
  IntToStr(GetTickCount - t);

  Application.ProcessMessages;
  t := GetTickCount;
  for i := 1 to 1000000 do
    Res1 := LdExp(1, Exponent);
  Form1.Caption := Form1.Caption + ' ' +
  IntToStr(GetTickCount - t);

  Application.ProcessMessages;
  t := GetTickCount;
  for i := 1 to 1000000 do
    Res1 := IntPower(2, Exponent);
  Form1.Caption := Form1.Caption + ' ' +
  IntToStr(GetTickCount - t);

  Application.ProcessMessages;
  t := GetTickCount;
  for i := 1 to 1000000 do
    Res1 := Power(2, Exponent);
  Form1.Caption := Form1.Caption + ' ' +
  IntToStr(GetTickCount - t);
end;

Недавно добавленные исходники
• TDictionary Custom Sort 509 • Fast Watermark Sources 874 • 3D Designer 1 804 • Sik Screen Capture 1 457 • Patch Maker 1 460 • Айболит (remote control) 1 388 • ListBox Drag & Drop 1 159 • Доска для игры Реверси 21 307 • Графические эффекты 1 337 • Рисование по маске 1 275 • Перетаскивание изображений 1 086 • Canvas Drawing 963 • Рисование Луны 802 • Поворот изображения 756 • Рисование стержней 802 • Paint on Shape 486 • Генератор кроссвордов 747 • Головоломка Paletto 659 • Теорема Монжа об окружностях 839 • Пазл Numbrix 607 • Заборы и коммивояжеры 835 • Игра HIP 551 • Игра Go (Го) 522 • Симулятор лифта 544 • Программа укладки плитки 505 • Генератор лабиринта 560 • Проверка числового ввода 520 • HEX View 596 • Физический маятник 522 • Задача коммивояжера 556