| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1090 人关注过本帖
标题:怎么都没人帮忙解决问题吗?
取消只看楼主 加入收藏
正在学习
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
快速回复:怎么都没人帮忙解决问题吗?
数据加载中...
 
   



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

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