我是学PASCAL语言的。

littlejeeby · 发表于 2008-8-13 10:41:54

求出能被五整除的所有四位数的和。

zcfaaagggl · 发表于 2008-8-13 17:30:34

我不懂PASCAL不过，想个算法给你参考
A////个位
B/////第四到第三位
ALL////总和


B=99
A=0
ALL=0

|------>B自加1
|       |             是
|    B>999----------------------输出ALL的值
|       |否
|       |
|       A+5
|       |             是
|    A=10?-----------------------------|
|       |                                        |
|       |否                                     |
|       |                                        A=0
|ALL=ALL+(A+B*10)<----------------|

LZ看看合适吗

[ 本帖最后由 zcfaaagggl 于 2008-8-13 17:31 编辑 ]

hangtao · 发表于 2008-8-13 21:17:59

判断是否能被5整除只要求模即可

zcfaaagggl · 发表于 2008-8-13 21:28:08

LS通俗点，我也是新手.....求模是？

hangtao · 发表于 2008-8-13 22:51:52

余数…………

zcfaaagggl · 发表于 2008-8-13 22:55:00

求余数要多判断8个数，会减慢速度的........不过电脑上应该不会出现速度问题

凤呈PW · 发表于 2008-8-14 12:06:31

PASCAL是世界第一个结构化编程语言，但是可惜的是难以推广，仅限于教学使用。我虽然也学过，不过只学了点语法....

Ecry · 发表于 2008-8-14 13:23:33

被5整除的数只要是末尾是0或5的四位数就行了
这个的目的应该是叫你编个高精度加法吧
不好意思，好久不用pascal了，语句全忘了……

jason · 发表于 2008-8-14 14:07:47

pascal不光是用于教学的吧。。你们难道忘记delphi了么

jinxinjinxin · 发表于 2008-8-14 15:32:40

学过一点PASCAL，不过都忘了。。。

曾半仙 · 发表于 2008-8-20 23:20:21

被五整除的4位数也就是直到第一个被五整除的5位数之前的数好不好
for I := 5 div 5 to 10000 div 5 - 1 do
begin
INC(Sum,I);
end;
Sum := Sum * 5;
5~9995也就是1~1999的和乘与5吧, 如果不是做题的话, 还可以写的更直接

jason · 发表于 2008-8-21 16:33:21

半仙的范围太大了哦～楼主只要4位数而已

yyq123 · 发表于 2008-8-23 19:29:36

Var
  Loop, Tot : Longint;
Begin
  Tot := 0;
  For Loop := 1000 to 9999 do
If Loop mod 5 = 0 then
   Inc(Tot, Loop);
  Writeln(Tot);
End.
这是枚举的说，用数学方法更简单

[ 本帖最后由 yyq123 于 2008-8-23 19:31 编辑 ]

gt945 · 发表于 2008-10-12 19:05:43

很古老的语言了

		自动登录	找回密码
密码			加入易码

[求助] 我是学PASCAL语言的。