循环结构的程序设计(一)

例二：输入X——>找出X的所有约数（ 从1到X逐个判断，看 X MOD Y是否为 0），并且累加起来存在S中——>输出 S。 READLN（X）； S：=0； 填入语句 WRITELN（S）；

三、说明：
1、循环控制变量必须是顺序类型，一般为整型和字 符型，不能为实型；
2、循环控制变量的初值和终值在循环开始前就已计算 好，在循环体中不能对控制变量进行赋值操作，要用可 以将它的值赋给另外一个变量；
3、为什么叫计数循环：循环次数是确定的： ABS（终值 - 初值）+1 —对于整型数 或：ABS（ORD（终值） - ORD（初值））+1—对 于字符型；
循环体也可能一次都不执行（初值超过了终值）。
4、可以用 DOWNTO 循环，每次递减1（前驱值）， 重新解释“超过”的含义； （对于TO是指控制变量的值>终值，对于DOWNTO 是指控制变量的值<终值）；





例一：计算1+2+3+4+……+100之和。 例二：输入一个自然数，求这个自然数的所有约数 之和。 例三：编程找出四位数ABCD中满足下列关系的数： （AB+CD）（AB+CD）= ABCD。 例四：输入两个数，判断它们是否互质。 例五：编程求斐波列契数列（Faibonacci）的前40 个数。 0，1，1，2，3，5，8，13，21，34…… 即：F1=0 （N=1） F2=1 （N=2） Fn=Fn-1 + Fn-2 （N>=3）
计数循环的语句格式：


计数循环的语句格式：
FOR 变量名 ：= 初值 TO 终值 DO 语句 ；



[例一]
S：=0；

WRITELN（‘ S = ’，S）；
二、FOR语句的含义（执行顺序）： 1、先将初值赋给赋值号左边的变量（称为“循环控制变 量”）； 2、判断循环控制变量的值是否已“超过”终值，如已 超过，则结束for循环。执行下一条语句； 3、如果未超过，则执行DO后面的语句（称为“循环 体”）； 4、循环控制变量递增1（将控制变量的当前值的后继值重 新赋给控制变量）； 5、返回步骤②； 6、循环结束，执行FOR循环下面的一个语句。
循环结构的程序设计（一）
——简单计数循环（FOR循环）

引言： 解题的时候经常会遇到需要重复处理一类相同的事或 类似的操作，如求1+2+3+4+……+100的和，就需要 重复地做加法运算。这就是我们在前面提过的的循环 结构

循环结构的流程图有两种。 1.当型循环或计数循环 当条件成立的时候执行循环语句。先进行条件判断， 再执行语句 重复做的事、操作（一条或多条语句），称为“循 环体”；控制循环体是否执行的条件称为“循环条 件”； 否 条件表达式 是 执行语句
例四：输入两个数，判断它 们是否互质。
输入x,y
判断两者互质
输出结果
大的数给x,小的数给y
是 X能否被Y整除
否
互质
X,Y能否被2~Y/2整除, 可以则非互质，不能则互质
y除2取整赋值给N
I初值为2,终值为N
是 X,Y是否能同时被I整除
否
非互质
课后习题


1、编程求N！（即1*2*3*4*5*……*N）； 2、编程打印出所有的水仙花数。（一个三位 数=3个位数的值的立方和，如 153=13+53+33，所以153是水仙花数） 3、输入10个数，将其中的正数打印出来。 4、已知π/4=1 – 1/3 +1/5 – 1/7 + 1/9 ………，求π的值。（算100个数）
5、循环体可以是一条语句，也可是一个复合语句； 6、退出循环后，循环控制变量的值已无意义，不能再 引用。可以再利用；
例题三:编程找出四位数ABCD中满足下列关系的数： （AB+CD）（AB+CD）= ABCD。 搜索问题，循环控制变量I从1000~9999，逐个验证 问题是将高两位M、低两位N分离开来 M：=I DIV 100，N：=I - M*100 判断I=（M+N）（M+N） 输出满足条件的I。