| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2286 人关注过本帖
标题:显示出能被3整除且至少有一位是5的所有三位数?
只看楼主 加入收藏
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
 问题点数:0 回复次数:9 
显示出能被3整除且至少有一位是5的所有三位数?
请大家帮帮忙!谢谢!
编写程序:显示出能被3整除且至少有一位是5的所有三位数?
搜索更多相关主题的帖子: 位数 整除 
2006-05-27 01:10
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 
判定条件是:mod(n,3)=0 .and.(left(str(n,3),1)='5' .or. right(str(n,3),1)='5' .or.substr(str(n,3),2,1)='5')
2006-05-27 05:52
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
得分:0 
我编写的程序如下:不知哪里出了问题,运行不正常,请指点一下我,谢谢!
set talk off
clear
for x=100 to 999
a2=str(x,3)
a=left(a2,1)
a1=val(a)
b2=str(x,3)
b=subs(b2,2,1)
b1=val(B)
c2=str(x,3)
c=right(c2,1)
c1=val(c)
if int(x/3)=x/3.and.c1=5 .or.b1=5 .or.a1=5
?
else
?"无符合条件的内容"
endif
next
return
2006-05-27 09:34
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
if int(x/3)=x/3.and.(c1=5 .or.b1=5 .or.a1=5)

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-27 12:50
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
得分:0 
运行还是不正常,不知道问题出在哪里,是不是输出?的问题,还是do while的问题,运行时老是大量快速输出无符合条件的内容,好像是死循环,无法停止,只有按Ese键,才能终止!
2006-05-27 15:48
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
for.....endfor
好象你的少了个endfor

2006-05-27 16:36
jin307119903
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-5-19
收藏
得分:0 

我用了next代替

2006-05-27 17:52
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
我试过了,循环无问题.到999结束了

认真看书学习,弄通Fox主义。
2006-05-27 18:00
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
for i=100 to 999
a=str(i,3)
a1=substr(a,1,1)
a2=substr(a,2,1)
a3=substr(a,3,1)
if mod(i,3)=0 and (a1="5" or a2="5" or a3="5")
?i
endif
endfor

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-27 18:49
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
To:jin307119903
你的程序就多了如下两条语句
else
?"无符合条件的内容"

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-28 18:52
快速回复:显示出能被3整除且至少有一位是5的所有三位数?
数据加载中...
 
   



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

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