一个随机序列的实现问题(100分)

delphilike · 1999-11-26

我在使用matlab编程，需要随机产生一个随机序列 但是找遍所有资料也没有发现这样一个函数，只能投靠于delphi拉 我的问题是：    如何把8，7，6，5，4，3，2，1，0这9个数字组合成一个9位的随机    序列如：872465103，154326870。。。。。。也就是说这9个数字都    不会重复，产生任一个序列每个数字只用一次。 不知道该如何实现，还请高手赐教，谢谢

Hexi · 1999-11-26

function Answer:String; const   S:String='0123456789'; var   T:String;   K:Integer; begin   Randomize;   while Length(S)>0 do   begin     K:=Random(Length(S))+1;     T:=T+S[K];     Delete(S,K,1);   end;   Result:=T; end;

cAkk · 1999-11-26

其实就是一个random函数.

koala · 1999-11-26

这个问题可以这样来实现： var  a :array[0..8] of Byte;  i, p, q, temp:Byte; begin  randomize;  for i :=0 to 8 do a ;=i;  for i :0 to 8*3 do   begin    p ;=random(9);    q :=random(9);    temp :=a[p];    a[p] :=a[q];    a[q] ;=temp;   end; end;

DreamTiger · 1999-11-26

procedure TForm1.Button1Click(Sender: TObject); var   sConst:string;   sOut :string;   i,iPos:integer; begin   sConst := '012345678';   for i := 9 downto 1 do   begin     iPos := integer(random(i));     if(iPos = 0) then iPos := i;     sOut := sOut + sConst[iPos];     Delete(sConst,iPos,1);   end;   ShowMessage(sOut); end; procedure TForm1.FormCreate(Sender: TObject); begin   //这里最好根据时间来定RandSeed   RandSeed := 1999;   Randomize; end;

DreamTiger · 1999-11-26

一不留神，前面已经有了这么多例子，早知道就不贴了。

koala · 1999-11-26

sorry! 刚才有些地方有错。 var  a :array[0..8] of Byte;  i, p, q, temp: Byte; begin  randomize;  for i :=0 to 8 do a :=i;  for i :=0 to 8*3 do      begin       p :=random(9);     q :=random(9);       temp :=a[p];       a[p] :=a[q];       a[q] :=temp;     end; end;   其实就是洗牌吗！

delphilike · 1999-11-26

Thanks

一个随机序列的实现问题(100分)

delphilike

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

koala

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

koala

Unregistered / Unconfirmed

delphilike

Unregistered / Unconfirmed

Similar threads