哪位老师帮助写一个随机小程序？(100分)

S

sq68686

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #1

本人初学DELPHI，遇一难题，哪位教师帮忙？
从0至N个数中，随机抽取M个数（M<N）写一个完整的程序。先谢谢了！！

 

C

chengangsir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #2

begin
Randomize;
Random
end;

 

L

lanyun2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
AA:array[0..99]of integer;//100个&quot;数&quot;
BB:array of integer;
i,m:integer;
idx:integer;
begin
idx:=0;
for i:= 0 to 99 do //将你的数放到数组里
aa:=i;
m:=99-10;//m是小于n的数
SetLength(bb,m);//设置bb的长度
for i:= 0 to m-1 do
bb:=AA[Random(99)];//AA[Random(99)]中，Random(99)取小于99的随机数
//AA[Random(99)]即取AA数组中第Random(99)个数
//现在bb中放的即你所要求的数
showmessage('OK');
end;

 

S

sq68686

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-20

• #4

接受答案了.