主题：It's easy
蓝色旋5421
[专家分：0] 发布于 2007-04-02 13:32:00
利用随机函数产生[10，99]之间的随机整数20个， 并对其由大到小排序[em10][em10][em10][em18]
回复列表 （共12个回复）
沙发
shily [专家分：90] 发布于 2007-04-03 17:56:00
刚才有位大哥说这是QB专区(就在下个问题里),说我发解题发错地方了.
所以暂时不答,搞清楚到底怎么回事说!
板凳
shily [专家分：90] 发布于 2007-04-03 18:12:00
懂了,原来是QBasic,原来..........
不会啊!
3 楼
小精灵LS [专家分：580] 发布于 2007-04-04 17:17:00
cls
dim a(20)
for i=1 to 20:a(i)=int(rnd*90)+10:next i
for i=1 to 19
for j=i+1 to 20
if a(i)>a(j) then swap a(i),a(j)
next j,i
for i=1 to 20:print a(i),:next i
end
4 楼
##星夜### [专家分：0] 发布于 2007-04-07 14:11:00
[quote]cls
dim a(20)
for i=1 to 20:a(i)=int(rnd*90)+10:next i
for i=1 to 19
for j=i+1 to 20
if a(i)>a(j) then swap a(i),a(j)
next j,i
for i=1 to 20:print a(i),:next i
end[/quote]
5 楼
##星夜### [专家分：0] 发布于 2007-04-07 14:11:00
[quote]懂了,原来是QBasic,原来..........
不会啊![/quote]
6 楼
##星夜### [专家分：0] 发布于 2007-04-07 14:12:00
[quote][quote]懂了,原来是QBasic,原来..........
不会啊![/quote]
[/quote]
7 楼
##星夜### [专家分：0] 发布于 2007-04-07 14:12:00
你太狠了
8 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:22:00
[quote][quote]cls
dim a(20)
for i=1 to 20:a(i)=int(rnd*90)+10:next i
for i=1 to 19
for j=i+1 to 20
if a(i)>a(j) then swap a(i),a(j)
next j,i
for i=1 to 20:print a(i),:next i
end[/quote]
[/quote]
9 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:22:00
[quote]懂了,原来是QBasic,原来..........
不会啊![/quote]
10 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:22:00
[quote]cls
dim a(20)
for i=1 to 20:a(i)=int(rnd*90)+10:next i
for i=1 to 19
for j=i+1 to 20
if a(i)>a(j) then swap a(i),a(j)
next j,i
for i=1 to 20:print a(i),:next i
end[/quote]
我来回复
您所在位置：