早教吧作业答案频道 -->数学-->
急具体解释语句的含义啊:随机产生N个两位整数按从大到小的顺序排列并显示输出dimena(10)fori=1to10a(i)=int(rand()*90+1)a(i)nestfori=1to9minx=a(i)minp=iforj=i+1to10ifminx>a(j)minx=a(j)minp=jendifnextif
题目详情
急 具体解释语句的含义啊
:随机产生N个两位整数 按从大到小的顺序排列并显示输出
dimen a(10)
for i=1 to 10
a(i)=int(rand()*90+1)
a(i)
nest
for i=1 to 9
minx=a(i)
minp=i
for j=i+1 to 10
if minx>a(j)
minx=a(j)
minp=j
endif
next
if minpi
temp=a(minp)
a(minp)=a(i)
a(i)=temp
endif
next
for i=1 to 10
a(i)
next
cancel
:随机产生N个两位整数 按从大到小的顺序排列并显示输出
dimen a(10)
for i=1 to 10
a(i)=int(rand()*90+1)
a(i)
nest
for i=1 to 9
minx=a(i)
minp=i
for j=i+1 to 10
if minx>a(j)
minx=a(j)
minp=j
endif
next
if minpi
temp=a(minp)
a(minp)=a(i)
a(i)=temp
endif
next
for i=1 to 10
a(i)
next
cancel
▼优质解答
答案和解析
dimen a(10) //定义一个数组
for i=1 to 10 //生成这十个随机数 存在数组中
a(i)=int(rand()*90+1)
?a(i)
nest
?
for i=1 to 9 //通过1-9的数组值 和 2-10的数组值比大小 如果后面一个数组值比当前值大 值序列交换
minx=a(i)
minp=i
for j=i+1 to 10
if minx>a(j)
minx=a(j)
minp=j
endif
next
if minpi
temp=a(minp)
a(minp)=a(i)
a(i)=temp
endif
next
for i=1 to 10
?a(i)
next
cancel
for i=1 to 10 //生成这十个随机数 存在数组中
a(i)=int(rand()*90+1)
?a(i)
nest
?
for i=1 to 9 //通过1-9的数组值 和 2-10的数组值比大小 如果后面一个数组值比当前值大 值序列交换
minx=a(i)
minp=i
for j=i+1 to 10
if minx>a(j)
minx=a(j)
minp=j
endif
next
if minpi
temp=a(minp)
a(minp)=a(i)
a(i)=temp
endif
next
for i=1 to 10
?a(i)
next
cancel
看了 急具体解释语句的含义啊:随机...的网友还看了以下:
Likemostofus,I’mmorereadytobestoppedfromdoingsome 2020-05-13 …
急具体解释语句的含义啊:随机产生N个两位整数按从大到小的顺序排列并显示输出dimena(10)fo 2020-05-13 …
在窗体上有一个命令按钮Command1,编写事件代码如下:PrivateSubCommand1Cl 2020-06-29 …
VB冒泡排序法的问题OptionBase1Dima(1To10)AsIntegerPrivateSu 2020-11-01 …
VB语句哪里有错误?请指出来并改正谢谢~!PrivateSubCommand1Click()Dima 2020-11-01 …
关于强调句的一个问题~1.I'llleavewhenhecomes.可不可以用it型强调句强调时间状 2020-12-07 …
在光滑的水平面上放一半径为R的导体环磁感兴强度为B的匀强磁场垂直环面向里当环中通有恒定电流I时(顺时 2020-12-22 …
有40组CASIO卡片,每组均由C,A,S,I,O五张卡片按C,A,S,I,O顺序由上而下叠放而成, 2020-12-23 …
有40组CASIO卡片,每组均由C,A,S,I,O五张卡片按C,A,S,I,O顺序由上而下叠放而成, 2020-12-23 …
一道VF题,不会做了,欢迎各位大大不吝赐教.IF语句里那3个赋值语句搞不明白.太乱了,越详细越好.按 2020-12-31 …