求出 1 到 5000 之间的能被 5 整除的前若干个偶数之和，当和大于 500 时程序退出。 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求出 1 到 5000 之间的能被 5 整除的前若干个偶数之和，当和大于 500 时程序退出。

标题：求出 1 到 5000 之间的能被 5 整除的前若干个偶数之和，当和大于 500 时程序 ...

只看楼主

yeyeyeyue

等　级：新手上路
帖　子：65
专家分：0
注　册：2014-11-26
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：32

求出 1 到 5000 之间的能被 5 整除的前若干个偶数之和，当和大于 500 时程序退出。

大家帮忙看一些这样写对不对

clear
s=0
for i=1 to 5000
do while i%5=0 and i%2=0
     s=s+i
   if s>500
     exit
   endif
endd
next
?s

2014-12-02 22:22

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 2 楼

得分:0

作业？

2014-12-02 22:49

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 3 楼

得分:3

程序代码：

clear
s=0
for n=10 to 5000 step 10
s=s+n
  if s>500
  exit
  endif
endfor
?s

2014-12-02 22:49

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:0

该题最后不可能有结果的

坚守VFP最后的阵地

2014-12-03 00:30

yeyeyeyue

等　级：新手上路
帖　子：65
专家分：0
注　册：2014-11-26

第 5 楼

得分:0

以下是引用tlliqi在2014-12-2 22:49:15的发言：

clear
s=0
for n=10 to 5000 step 10
s=s+n
  if s>500
  exit
  endif
endfor
?s

不是作业。问什么我那样写不行呢？感觉两种写法都是一个意思啊

2014-12-03 08:22

yeyeyeyue

等　级：新手上路
帖　子：65
专家分：0
注　册：2014-11-26

第 6 楼

得分:0

以下是引用sdta在2014-12-3 00:30:01的发言：

该题最后不可能有结果的

为什么会没有结果啊，

2014-12-03 08:23

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 7 楼

得分:0

回复 6 楼 yeyeyeyue

凌晨看帖，不知怎么会看到步长5的，所以说无结果

坚守VFP最后的阵地

2014-12-03 08:26

yeyeyeyue

等　级：新手上路
帖　子：65
专家分：0
注　册：2014-11-26

第 8 楼

得分:0

以下是引用sdta在2014-12-3 08:26:28的发言：

凌晨看帖，不知怎么会看到步长5的，所以说无结果

啊？没有写步长为 5 的啊

2014-12-03 08:32

wp231957

来　自：神界
等　级：版主
威　望：422
帖　子：13681
专家分：53296
注　册：2012-10-18

第 9 楼

得分:0

循环里面又套了一层循环不解何意？？？

DO IT YOURSELF !

2014-12-03 08:34

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 10 楼

得分:3

程序代码：

* 方法一
Clear
S=0
For lnI=1 To 5000
    If lnI%2=0 And lnI%5=0
        S=S+lnI
    EndIf 
    If S>500
        EXIT
    EndIf 
EndFor 
?S

程序代码：

* 方法二
Clear 
S=0
I=1
Do while I<=5000
    If i%5=0 and i%2=0
        s=s+i
    EndIf
    i=i+1 
    if s>500
        exit
    endif
EndDo   
?s

坚守VFP最后的阵地

2014-12-03 08:38

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