2010VFP第6部分(循环辅助语句及多重循环)——修改.ppt

例：下列程序判断一个自然数n是否为素数，其方法是用2到 之间的数逐个去除，若余数都不为0，则n为素数，否则不是素数,请填空完成。 INPUT 请输入一个大于1的自然数: TO N Y=1 Y=1表示所输入的自然数是素数,为0表示不是素数 X=INT(SQRT(N)) I=2 DO WHILE I=X IF N%I___①____ ____②_____ LOOP ELSE Y=0 EXIT ENDIF ENDDO IF Y=1 ?____③______ +是素数 ELSE ?N,不是素数 ENDIF RETURN * 3种循环结构 Do while….enddo for….endfor scan….endscan 循环辅助语句 loop: 通常又称为中途复始语句或短路语句。 exit：通常又称为中途退出语句或循环终止语句。 流程图： 条件 语句序列 LOOP EXIT enddo的下一条命令 N Y 【例】 将10到20中第一个能被3整除的数找出来。 For n=10 to 20 if n%3=0 ?n exit endif endfor 结束当前循环，跳出exit所在的循环结构 【例】 求300以内能被17整除的最大的数。 for x=300 to 1 step -1 if mod(x,17)=0 ?x exit endif endfor 找到满足条件的最大数，结束循环 从大数开始，第一次找到的就是最大值 【例】 将10到20中所有不能被3整除的数找出来。 for n=10 to 20 if n/3=int(n/3) loop endif ?n endfor 结束本次循环，转入下一次循环条件的判断 【例】 求300以内能被17整除的所有整数。 for x=1 to 300 if x%17!=0 loop else ?x endif endfor x=.t. s=0 do whil x s=s+1 if s/8=int(s/8) ?s else loop endi if s30 x=.f. endi endd retu 结果为：8 16 24 32 例：写出程序的结果 实验13 任务1（2） 例：计算100以内的奇数和 s=0 i=0 do while .t. i=i+1 if i100 exit  endif if i%2=0 loop  else s=s+i endif enddo ? 100以内的奇数和为：,s cancel 永真循环 还有哪些等价的表达式？ mod(I,2)=0 或 int(i/2)=i/2 ①0 ②i=i+1 ③str(n) 例（0801）以下程序的功能是统计100以内能被8整除的整数的个数。 X=0 N=0 DO WHILE X=100 X=X+1 IF ? LOOP ENDIF ? ENDDO ?N ①x/8int(x/8) 或 mod(x,8)0 或 x%80 ② n=n+1 多重循环（掌握双重循环） 真 真 外循环初始条件 内循环初始条件 内循环体 外循环条件 假 内循环条件 假 改变内循环循环条件 改变外循环循环条件 外循环结束 二重循环嵌套结构执行流程 内循环结束 例:利用双重循环编程求sum=1+(1+2)+ (1+2+3)+…+(1+2+3+…+10)之值。 1 1+2 1+2+3 1+2+3+4 ……………… …………………… 1+2+3+4+5+6+7+8+9+10 所有累加项可以看成右图 方法一： clear sum=0 t=0 for i=1 to 10 t=t+i sum=sum+t endfor ?sum=,sum return 方法二： clear sum=0 for i=1 to 10 t=0 for j=1 to i t=t+j endfor sum=sum+t endfor ? 1+（1+2）+（1+2+3）+…+（1+2+3+…+10）=,sum return