关于随即函数的效率

[Timesking]

我想为一个数组赋予十个随机数（坐标），均小于29
POINT CanEat[10];
我是用以下算法
int temp;
int i=0;

srand( (unsigned)time( NULL ) );

while(i<20)
{
temp=rand();

if(i<10)
CanEat[i].x=temp%29;
else
CanEat[i-10].y=temp%28;

i++;
}


怎样改才能让其生成效率更高?

[ninenine]

这个是pascal的：
procedure randomed;
var i,j,tmp:integer;
begin
?randomize;
?for i:=0 to 9 do b[i]:=i;
?for i:=9 downto 0 do begin
? tmp:=random(i+1);
? a[i]:=b[tmp];
? for j:=tmp to i-1 do b[j]:=b[j+1];
?end;
end;

================================================================
请指教！