Pascal 洗牌

Procedure Shuffle(Var data:Array Of integer);Var i: integer;j: integer;k: integer;
Beginrandomize;i := high(data);Repeatj := trunc(random()*100) Mod i;k := data[i];data[i] := data[j];data[j] := k;dec(i);Until i <= low(data);
End;