Главная » Статьи » Программирование в Delphi |
Сравнить быстродействия алгоритмов
Code 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; Источник: http://delphi4all.narod.ru/how/compare.htm | |
Просмотров: 1130 | Рейтинг: 0.0/0 |
Всего комментариев: 0 | |