标题:怎么都没人帮忙解决问题吗?
取消只看楼主
正在学习
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-12-16
 问题点数:0 回复次数:1 
怎么都没人帮忙解决问题吗?
请帮我把这个原代码,做下编程思路和程序分析 ,最好逐条分析,在这里谢谢大家了,我很着急,希望大家帮帮忙
SET TALK OFF
CLEAR
INPUT "输入数的个数n=" to n
DIMENSION x(n)
FOR i=1 TO n
input "第"+STR(i,4)+"个数=" to x(i)
ENDFOR
?
??"输入的顺序:"
FOR i=1 TO n
??x(i)
endfor
a=x(1,1)
?
*|*输入部分
FOR j=2 TO n
 FOR w=2 TO n
 IF x(w)>=x(w-1)
 a=x(w-1)
 x(w-1)=x(w)
 x(w)=a
 endif
 endfor
ENDFOR
*|*判断大小部分
?
??"大到小顺序:"
FOR i=1 TO n
??x(i)
ENDFOR
*|*输出大小部分
?
??"小到大顺序:"
FOR i=1 TO n
??x(n-i+1)
ENDFOR
*|*输出小大部分
?
??"大小大顺序:"
FOR i=1 TO n STEP 2
??x(i)
ENDFOR
IF MOD(n,2)=0
FOR i=n TO 2 STEP -2
??x(i)
ENDFOR
ELSE
FOR i=n-1 TO 2 STEP -2
??x(i)
ENDFOR
endif
SET TALK ON
搜索更多相关主题的帖子: FOR endfor TALK 
2007-12-16 14:18
正在学习
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-12-16
得分:0 
帮帮我吧
2007-12-16 14:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-192768-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.423114 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved