pascal for循环.ppt

《pascal for循环.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、编程计算1+2+3=？programjia(input,output);vara,b,c,s:integer;begina:=1;b:=2;c:=3;s:=a+b+c;writeln(s);end.计算1+2+3+……+100=？循环语句for循环For语句for语句用来描述已知重复次数的循环结构。for语句有两种形式：　　１、for控制变量：＝初值to终值do循环体语句；fori:=1to10dos:=s+i;２、for控制变量：＝初值downto终值do循环体语句；forj:=100downto1dos:=s+i;for语句中的初值、终

2、值、控制变量的数据都必须是顺序类型。当初值和终值确定后，重复的次数就确定不变了，并且控制变量在重复语句内不能施加任何赋值操作。fori:=1to100doi:=20;For语句例：计算1+2+3+……+99+100　　programjia;　　vari,sum:integer;　　begin　　　sum:=0;　　　fori:=1to100do　　　sum:=sum+i;　　　writeln(sum);　　end.FOR循环练习题1、计算下列式子的值：（1）1+2+……+1000（2）1+3+5+……+97+992、输入一个四

3、位数，求它各位上数字的和。3、求水仙花数。所谓水仙花数，是指一个三位数abc，如果满足a^3+b^3+c^3=abc，则abc是水仙花数。4、宰相的麦子：相传古印度宰相达依尔，是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他想要什么。达依尔说：“只要在国际象棋棋盘上（共64格）摆上这么些麦子就行了：第一格一粒，第二格两粒，……，后面一格的麦子总是前一格麦子数的两倍，摆满整个棋盘，我就感恩不尽了。”国王一想，这还不容易，刚想答应，如果你这时在国王旁边站着，你会不会劝国王别答应，为什么？5、打印下列图案：（输入N值来控制图案的规模，下列

4、图案均以N=3为例）& & && & && & & & & & & & &* * * * * * * * *# @ * # # @ @ * * # # # @ @ @ * * *输入一个三位数，求它各位上数字的和。vara,b,c,s:longint;beginreadln(a);{输入a这个三位数的值，如123}c:=amod10;{求出个位的数字，求一个任意数的个位数字，都用这个数除以10求余数，123mod10=3}a:=adiv10;{求出这个数的个位后，将它个位去掉，变成2位数，其中原来的十位变成个位，百位变成十位，如

5、123div10=12}b:=amod10;{求出这两个位数的个位的数，12mod10=2}a:=adiv10;{求出这个数个位后，将个位去掉，变成1位数，12div10=1}s:=a+b+c;writeln(s);end.输入一个四位数，求它各位上数字的和。vari,a,b,c,s:longint;beginreadln(i);a:=idiv100;b:=idiv10-10*a;c:=imod10;s:=a+b+c;end.求水仙花数。所谓水仙花数，是指一个三位数abc，如果满足a^3+b^3+c^3=abc，则abc是水仙花数。vara,

6、b,c,i:longint;beginfori:=100to900dobeginc:=imod10;b:=(idiv10)mod10;a:=idiv100;if(a*a*a+b*b*b+c*c*c=i)thenwriteln(i);end;end.汽车从A到B有5站，每次下车人数都比上车人数少2人，到达B站车上有10人，问原来有多少人大侦探柯南非常喜欢观察问题和分析问题，他为确认罪犯能否在现场出现的证据亲自时间罪犯可能的行走路线。第一条路线他用了92min，第二条路线用了82min。他在每一条路上所用的时间与上一条相比都少了10min，直到第

7、九条路线他用了12min。问可能走完这求条路线共用了多长时间？vari,s:longint;begins:=0;fori:=1to10dos:=s+i*10+2;writeln(s);end.汽车从A到B有5站，每次下车人数都比上车人数少2人，到达B站车上有10人，问原来有多少人大侦探柯南非常喜欢观察问题和分析问题，他为确认罪犯能否在现场出现的证据亲自时间罪犯可能的行走路线。第一条路线他用了92min，第二条路线用了82min。他在每一条路上所用的时间与上一条相比都少了10min，直到第九条路线他用了12min。问可能走完这求条路线共用了多长

8、时间？