mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
17 lines
378 B
ObjectPascal
17 lines
378 B
ObjectPascal
{ %cpu=i386 }
|
|
{ %opt=-Cppentium3 -Cr }
|
|
program testcmov;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
var cur,i,resultid, lastNeighbour,firstNeighbour:integer;
|
|
OldPositions2: array of Integer;
|
|
begin
|
|
for cur:=lastNeighbour+1 to firstNeighbour do
|
|
if abs(OldPositions2[cur]-OldPositions2[i]) < abs(OldPositions2[resultId]-OldPositions2[i]) then
|
|
resultid:=cur;
|
|
end.
|
|
|