【计算机】第四章2 循环结构程序设计之WHILE与REPEAT循环.pptVIP

第二部分 用于未知次数的循环 while 语句 格式: while 布尔表达式 do 循环体 注：如果循环体是若干条语句需在循环体前面加 begin,后面加 end。 例1：输出1—100之间的奇数(For语句) Program ex; var x,y:integer; Begin for x:=1 to 50 do begin y:=x*2-1; write(y) end; writeln End. 例1.1：输出1、100之间的奇数(while语句) Program ex; var x:integer; Begin x:=1; ｛变量赋初值｝ while x100 do begin write(x); x:=x+2;｛改变变量的值｝ end; writeln End. 程序1： program ex(input,output); var i,s:integer; begin s:=0; i:=2; while i=100 do begin s:=s+i; i:=i+2; ｛改变变量的值｝ end; writeln(s) end. 程序2： program ex(input,output); var i:integer; s,x:real; begin s:=0; i:=1; while i=100 do begin x:=1/i; s:=s+x; i:=i+1; ｛改变变量的值｝ end; writeln(s) end. 程序3： program ex(input,output); var i:integer; s,x:longint; begin s:=0; i:=12; while i=1002 do begin s:=s+i; i:=i+10; ｛改变变量的值｝ end; writeln(s) end. program ex(input,output); var abcd, ab,cd :integer; flag :integer; begin abcd:=1000; flag:=0; while flag=0 do begin ab:=abcd div 100; cd:=abcd mod 100; if (ab+cd)*(ab+cd)=abcd then begin writeln(abcd); flag:=1; end; abcd:=abcd+1; end end. 练习2：输入一个数，判断其是否为质数。如果是质数输出‘Yes’，否则输出‘No’ 质数x，即只能被1和它本身x整除的数。也就是在2到x-1里面没有约数(约数个数为0)的数。 实际上只要x被1到x div 2 都不能整除的话，则可以确定x为质数。 分析： 基本思想是将x被2、3、4……、x div 2 除，如果都除不尽，则x为质数。根据该思路得到的算法如下。 （1）设除数为i，i的值从2变化到x div 2，I的初值为2； （2）用i除x，得到余数为R； （3）如果R=0，则表示x能被i整，x不是素数，算法结束；否则，表示x不能被I整除，可能为素数，继续； （4）使i加上1； （5）如果i=x div 2, 那么返回（2）；否则，表示x为素数。 程序： program ex(input,output); var x,i,r:integer; flag:integer; begin readln(x); i:=2; flag:=0; while (i=x/2) and (flag=0) do begin if x mod i =0 then flag:=1; i:=i+1; end; if flag=0 then writeln(Yes) else writeln(No) end. 练习3：输入一串字符,以回车符结束,输出其中字母