标题:求解我这个运行出错
只看楼主
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
结帖率:0
已结贴  问题点数:20 回复次数:18 
求解我这个运行出错
是内个爬楼梯的设有一阶梯,每步跨2阶,最后余1阶;每步跨3阶,最后余2阶;每步跨5阶,最后余4阶;每步跨6阶,最后余5阶;每步跨7阶,刚好到阶顶,问共有多少阶梯?
我是这样来的
i=2
s=1
do while .t.
do case
s=s+1
i=i+7
mod(s/i)=i-1
loop
do CASE i>7
mod(s/i)=0
exit
endcase
enddo
?s
嵌套出错,求解怎么办
搜索更多相关主题的帖子: 楼梯 
2014-06-09 21:33
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:3 
do CASE i>7   这不对呀(取掉do)

2014-06-09 21:42
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
得分:0 
回复 2 楼 tlliqi
我试试,谢谢
2014-06-09 21:45
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
得分:0 
回复 2 楼 tlliqi
我这边vf运行卡死了,难道书win8不兼容?
2014-06-09 21:50
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:3 
认真研究VFP命令的用法,再提问题!

坚守VFP最后的阵地
2014-06-09 21:51
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
得分:0 
回复 5 楼 sdta
好吧
2014-06-09 21:53
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
有一阶梯,每步跨2阶,最后余1阶;每步跨3阶,最后余2阶;每步跨5阶,最后余4阶;每步跨6阶,最后余5阶;每步跨7阶,刚好到阶顶,问共有多少阶梯?


首先要分析题意,
假设共有台阶lnI阶,代码分解如下:
每步跨2阶,最后余1阶,代码:Mod(lnI,2)=1 说明台阶总数为奇数
每步跨3阶,最后余2阶,代码:Mod(lnI,3)=2
每步跨5阶,最后余4阶,代码:Mod(lnI,5)=4
每步跨6阶,最后余5阶,代码:Mod(lnI,6)=5
每步跨7阶,最后余0阶,代码:Mod(lnI,7)=0

综合代码如下
程序代码:
lnI=1
Do While .T.
   lnI=lnI+2
   If Mod(lnI,2)=1 And Mod(lnI,3)=2 And Mod(lnI,5)=4 And Mod(lnI,6)=5 And Mod(lnI,7)=0
      Exit 
   Endif 
EndDo 
MessAgeBox("共有 "+Transform(lnI)+" 阶梯")

坚守VFP最后的阵地
2014-06-09 22:22
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
得分:0 
回复 7 楼 sdta
这个办法我们班有一个女生想出来了,老师说还有其他办法,所以我换了编程方式,我估计我内个应该是i=7才可以
2014-06-10 09:17
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:3 
以下是引用护城河部队在2014-6-10 09:17:10的发言:

这个办法我们班有一个女生想出来了,老师说还有其他办法,所以我换了编程方式,我估计我内个应该是i=7才可以


你们老师没事闲的  有最优办法不用 去想那些旁门左道

DO IT YOURSELF !
2014-06-10 09:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
方法最简为最优

坚守VFP最后的阵地
2014-06-10 09:48



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




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

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