pascal语言编程之FOR循环语句选编.pptx

第四章 循环结构程序设计第一节 循环语句（for语句）; 在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。在pascal语言中，循环结构程序通常由三种的循环语句来实现。分别为for循环、当循环和直到循环。将一组重复执行的语句成为循环体，而控制重复执行或终止执行由重复终止条件决定。重复语句是由循环体及重复终止条件两部分组成。;第一节 循环语句（for语句）;三、说明 1.循环控制变量必须是顺序类型。可以是整型、字符型、枚举型等，但不能为实型。 2.循环控制变量的值递增或递减的规律是：选用to则为递增；选用downto则为递减。 3.所谓循环控制变量的值“超过”终值，对递增型循环，“超过”指大于，对递减型循环，“超过”指小于。 4.循环体可以是一个基本语句，也可以是一个复合语句。 5.循环控制变量的初值和终值一经确定，循环次数就确定。但在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。（即变量作为循环控制变量后，在循环体中不能再次使用） 6.for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。 ;例：求1+2+3+..+N 的和。如何编程呢？ ;四、应用举例 例1．输出1－100之间的所有偶数。;例2．求N！＝1＊2＊3＊…＊N ，这里N不大于10。(n!为n的阶乘运算）;例3、一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x 大36，请编程求出所有这样的两位数。;源程序： program ex； var a,b,x,y:integer; begin for x:=10 to 99 do begin a:=x div 10; b:=x mod 10; y:=b*10+a; if y-x=36 then writeln(y:2); end; end. ;例4：输入一个自然数，求这个自然数的所有约数之和。;源程序： program yueshu； var x，y，s：integer； begin write(‘enter x’); read(x); for y:=1 to x do if x mod y=0 then s:=s+y; write(s); end.;例5、把整数3025从中???开分为30 和25 两个数，此时再将这两数之和平方，(30+25)2=3025 计算结果又等于原数。求所有符合这样条件的四位数。;源程序： program ex； var n,n1,n2:longint; begin for n:=1000 to 9999 do begin n1:=n div 100; {取n的千位和百位} n2:=n-n1*100; {取n的十位和个位} s:=n1+n2; if s*s=n then writeln(n);{判断与原数是否相同} end; end.;练习： 1.计算100之内所有的奇数之和。 2.求菲波拉契数列a0,a1,a2,……a20。 a0=0,a1=1,a2=a1+a0,a3=a2+a1,……, an=an-1+an-2; 如0,1,1,2,3,5,8,13,21,…… 3.求20个数中的最大值和最小值。 4.求s=1+1/2+1/3+…+1/100 5.按字母表的顺序，从字母A到Z顺序打印输出。 6.输入10个数，打印出最大和最小的数。 7．编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。 8.输入30个学生成绩，分别统计成绩在85—100分，60—85分，60分以下，各分数段中的人数。