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 《云中漫步》 阅读(253) 评论(0) 推荐(0)