随机数。。。
来源:互联网 发布:web软件 需要 编辑:程序博客网 时间:2024/04/23 23:32
program suijishu;
{$APPTYPE CONSOLE}
var
i,j,r,n,m:integer;
All:array[0..1000] of integer;//这个数组用来装随机数的
Result:array[0..1000] of integer;//这个数组用来装结果的
begin
writeln('请输入m,n,产生在n范围内的m个随机数');
readln(m,n);
if n<m then
writeln('错了喔..大小倒了也!')
else
begin
for i:=0 to n-1 do
All[i]:=i;
//产生M个随机数
for i:=0 to m-1 do
begin
j:=random(n);
r:=j mod (n-1-i);
Result[i]:=All[r];
All[r]:=All[n-1-i];
end;
for i:=0 to m-1 do
begin
write(Result[i],' ');
end;
end; writeln;
writeln('按回车退出!');
readln;
end.
{$APPTYPE CONSOLE}
var
i,j,r,n,m:integer;
All:array[0..1000] of integer;//这个数组用来装随机数的
Result:array[0..1000] of integer;//这个数组用来装结果的
begin
writeln('请输入m,n,产生在n范围内的m个随机数');
readln(m,n);
if n<m then
writeln('错了喔..大小倒了也!')
else
begin
for i:=0 to n-1 do
All[i]:=i;
//产生M个随机数
for i:=0 to m-1 do
begin
j:=random(n);
r:=j mod (n-1-i);
Result[i]:=All[r];
All[r]:=All[n-1-i];
end;
for i:=0 to m-1 do
begin
write(Result[i],' ');
end;
end; writeln;
writeln('按回车退出!');
readln;
end.
- 随机数
- 随机数
- 随机数。。。
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 随机数
- 重庆市关于进一步做好非经营性互联网信息服务备案的通告
- 。。。。。。。。。
- why I like tdd(转载)
- snes :fe4 rom hack for the graphic and animate #1
- 初探虚拟主机的集群系统
- 随机数。。。
- asp实现sql的备份与恢复
- 计算是否处在同一子网下的php脚本
- 我的TCL笔记本!
- 办理ICP证、SP证、BBS证及非经营性网站(ICP)备案常见问题解答
- 拜托各位大侠看看
- DBGrid 应用全书
- 回家的感觉
- 用ThreadLocal来管理Connection和Transaction