11 lines
256 B
ObjectPascal
11 lines
256 B
ObjectPascal
|
// Abs для целых работает в 2.5 раза быстрее Math.Abs
|
|||
|
|
begin
|
|||
|
|
var s := 0;
|
|||
|
|
var n := MaxInt;
|
|||
|
|
loop n do
|
|||
|
|
s := Abs(-2);
|
|||
|
|
Print(MillisecondsDelta);
|
|||
|
|
loop n do
|
|||
|
|
s := System.Math.Abs(-2);
|
|||
|
|
Print(MillisecondsDelta);
|
|||
|
|
end.
|