#include <iostream>//cout函数的头文件
#include <cstdlib>
#include <time.h>/* srand函数与rand函数的头文件*/
using namespace std
int main()
{
int a[2][3]={{1,3,2},{8,0,3}},x,y,z
srand ( (unsigned) time (NULL) )
x=rand()%2//调用随哪冲机函数
y=rand()%3//调用随机函数
z=a[x][y]
cout<<z<<"\n"
system ("pause")
return 0
}
三楼,请注意素质...
那是我的版权!!
楼主,一定要注意先来后到!
我咐脊本是2楼的,后因稍作修改,衡缓渗没想到3楼抄袭我。。。
你需要随机抽取1~100中的数字100个,实际上你已经把数字收取完了,搏携只是随机排序的问题,可以用数组来实现,第一次产生一个1~100的随机数,把这个数交换到数组第1个位置,第二次产生2~100的随机数交换到第二个位置判银芹,直到最后产生100~100的随机数,下面是我写的例子程序:{$apptype console}
program exp
var a:array[1..100] of 1..100i,j,k:integer
begin
randomize
for i:=1 to 100 do a[i]:=i
for i:=1 to 100 do
begin
j:=random(100-i+1)+i
if j<>i then begin k:=a[i]a[i]:=a[j]a[j]:=kend
end
for i:=1 to 100 do write(a[i]:4)
end.
此程序在DELPHI下运行成功,结果如掘毕下:
E:\ygb>dcc32 b.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
b.dpr(14)
15 lines, 0.05 seconds, 10724 bytes code, 1905 bytes data.
E:\ygb>b.exe
66 33 17 83 67 88 85 78 92 93 82 13 80 22 11 24 46 64 97 75
54 70 55 49 5 40 23 45 6 62 4 29 47 71 10 99 14 25 48 3
20 58 42 41 15 1 7 19 100 34 2 18 30 53 26 38 44 37 9 61
73 96 95 39 68 31 72 79 59 86 16 57 8 51 89 50 28 87 81 36
69 77 65 91 56 76 60 84 63 21 12 94 74 90 98 27 43 52 32 35
E:\ygb>b.exe
63 1 44 40 68 46 77 93 58 39 52 14 51 96 71 26 100 84 25 56
94 83 55 65 16 66 88 18 27 4 80 38 69 54 92 89 3 9 7 53
28 67 31 19 81 62 24 37 45 10 59 78 20 12 72 48 29 74 36 50
86 42 79 6 41 75 76 73 5 95 8 61 85 87 23 32 99 15 82 33
57 49 98 17 47 11 30 22 34 35 64 70 91 43 2 60 21 13 90 97
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)