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

我是学PASCAL语言的。

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

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个数，会减慢速度的........不过电脑上应该不会出现速度问题:lol

凤呈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位数而已
:lol

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

很古老的语言了
页: [1]
查看完整版本: 我是学PASCAL语言的。