会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
云中漫步
博客园
首页
新随笔
联系
订阅
管理
2009年6月12日
产生随机数
摘要: {$apptypeconsole}programexp;vara:array[1..100]of1..100;i,j,k:integer;beginrandomize;fori:=1to100doa[i]:=i;fori:=1to100dobeginj:=random(100-i+1)+i;ifj<>ithenbegink:=a[i];a[i]:=a[j];a[j]:=k;end;en...
阅读全文
posted @ 2009-06-12 20:35 《云中漫步》
阅读(246)
评论(0)
推荐(0)
编辑
公告