取1-16之间的随机整数,不能重复取!
解决方案 »
- 送分100分:如何将一个数组转换成字符串。
- 如何接收UniCode的命令行参数?
- dll中建立映像文件,主exe文件怎么读取映像文件中的数据啊?有几种方式
- 请问:D7安装后D6为什么老安装不成功?
- 运行Fastreport 3.0 时。。报表在showreport 出现 cannot use the same dataset for report.dataset and Band.DataSet
- 控件移动的问题
- 如何动态载入DLL文件,其中DLL文件包括form等复杂控件。
- 问个中间层的小问题?
- 开发b/s结构的程序用什么语言好啊?
- dbgrid问题,大虾们帮忙
- 导出数据到Excel,是不是有条数限制?
- 告别CSDN,谢谢几个月来兄弟们的关心,分数全部散给兄弟们~~~~~~`1
Len: Integer;
i, Index: Integer;
a, b: array [1..20] of Integer;
begin
Len:=20
for i:=1 to Len do
a[i]:=i;
Randomize;
while Len>0 do
begin
Index:=Random(Len)+1;
b[20-Len+1]:=a[Index];//随机数
a[Index]:=a[Len];
Dec(Len)
end
end;
i: integer;
begin
Randomize;
i:=Random(16)+1;
end;