| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1036 人关注过本帖
标题:求解我这个运行出错
只看楼主 加入收藏
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:3 
楼主的老师不是在教他们VFP,是在教算法。
2014-06-10 10:06
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
For lnI=1 To 999 Step 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
       MessAgeBox("共有 "+Transform(lnI)+" 阶梯")
       Exit
    Endif
Endfor


再给你一个方法

坚守VFP最后的阵地
2014-06-10 10:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:3 
以下是引用taifu945在2014-6-10 10:06:56的发言:

楼主的老师不是在教他们VFP,是在教算法。

基本的、常用的算法是要会,但沉迷于算法就过了。算法,在未来工作的时候有大半辈子的时间去钻研(与专业相关的算法),用不着在求学阶段舍弃更基本的知识去玩头脑风暴。我见过太多的人算法一道一道,却连很多基本的编程常识都不知道,尽走弯路。

[ 本帖最后由 TonyDeng 于 2014-6-10 11:12 编辑 ]

授人以渔,不授人以鱼。
2014-06-10 11:08
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:3 
分工细的缘故吧

只求每天有一丁点儿的进步就可以了
2014-06-10 11:28
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
收藏
得分:0 
回复 9 楼 wp231957
好吧
2014-06-10 13:04
护城河部队
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2014-6-9
收藏
得分:0 
回复 12 楼 sdta
谢谢
2014-06-10 13:05
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:3 
歪打正着。从楼主的代码中得到如下知识:VFP 会忽略 do case 与 case 之间的语句行。如下:
程序代码:
i = 10
do case
messagebox('编程论坛!')
case i > 10
    ? 'i>10'
case i < 10
    ? 'i<10'
otherwise
    ? 'i=10'
endcase
运行上述代码,系统并没有弹出消息对话框。


泉城飞狐
2014-06-11 13:27
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:3 
***思路1:因为所求的数是7的倍数,故有如下的算法
i=7
Do While .T.
  If mod(i,2)=1 and mod(i,3)=2 and mod(i,5)=4 and mod(i,6)=5
    ?i
    Exit
  EndIf
  i=i+7
EndDo

***思路2:还因为被2,3,4,5,6除都差1,故该数必为2,3,4,5,6的最小公倍数(60)的倍数减1,故有如下算法
i=1
Do While .T.
  If Mod(60*i-1,7)=0
    ?60*i-1
    Exit
  EndIf
  i=i+1
EndDo

***特别说明:这样的数有无数多个,所求为最小值

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2014-06-11 22:35
liumqx
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2005-8-24
收藏
得分:0 
step 7 7的倍数
2014-06-23 12:57
快速回复:求解我这个运行出错
数据加载中...
 
   



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

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