循环结构程序设计之For循环ppt课件.ppt

《循环结构程序设计之For循环ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

例：请计算并输出1~9这9个数的算术平方根。writeln(sqrt(x)) Programex(input,output);beginwriteln(sqrt(1))writeln(sqrt(2))writeln(sqrt(3))writeln(sqrt(4))writeln(sqrt(5))writeln(sqrt(6))writeln(sqrt(7))writeln(sqrt(8))writeln(sqrt(9))End.样程： 100句！？Programex(input,output);beginwriteln(sqrt(1))writeln(sqrt(2))……writeln(sqrt(100))End.例：请计算并输出1~100这100个数的算术平方根。 用循环语句解决该问题Programex(input,output);varI:integer;beginforI:=1to100dowriteln(sqrt(i):0:3)End. 第四讲循环程序设计 计算机在执行一个程序模块时，不是按照语句的排列顺序进行的，而是按照一定的规律和规则在一定的条件下重复执行模块内部的一系列语句，那么我们可以把这种结构看作是循环结构。这种结构的程序设计可以称为循环程序设计。PASCAL语言的循环语句有三种：FOR语句；WHILE语句;REPEAT语句。 pascal语言中的for语句：for循环控制变量:=初值to终值do循环体注：如果循环体是若干条语句需在循环体前面加begin,后面加end。For循环语句格式(一) 循环变量≤终值循环体truefalseFOR循环流程图(Passcal语言)循环变量赋初值 pascal语言中的for语句：for循环控制变量:=初值downto终值do循环体注：如果循环体是若干条语句需在循环体前面加begin,后面加end。For循环语句格式(二) 例：请利用循环语句输出1~1000以内的自然数。 for循环控制变量:=初值to终值do循环体Programzz(input,output);VarI:integer;BeginforI:=1to1000dobeginwriteln(i);ifImod20=0thenreadln;end;End.样程： 循环变量:=初值循环变量:=SUCC(循环变量)循环体循环变量<=终值FalsetruePascal语言中循环模块的执行过程 例计算1+2+3+……+100的值programlt(input,output);vars,i:integer;begins:=0;fori:=1to100dos:=s+i;write('s=',s)end. 注意事项:1.初值,终值可为表达式,但类型必须一致.2.若初值>终值,退出循环,故循环体有可能一次也不执行.3.每执行完循环体,循环变量自动变为下一个值,下一个值由SUCC(X)函数产生.4.循环变量可为整型,字符型,布尔型,子界型,枚举型等. 5.在循环体内,不允许改变循环变量的值.6.在循环之前,根据初,终值计算循环次数及每次循环变量的值.7.FOR循环退出后,循环变量的值是无定义的,不可引用. S=2+4+6+8+…+100;S=1+1/2+1/3+1/4+…+1/100;S=12+22+32+42+…+1002;练习：对上题的程序稍加改变，试着算出以下算式： 样程：programex(input,output);vari,s,x:integer;begins:=0;fori:=1to50dobeginx:=i*2;s:=s+x;end;writeln(s);end. 样程：programex(input,output);vari:integer;s,x:real;begins:=0;fori:=1to100dobeginx:=1/i;s:=s+x;end;writeln(s:0:3);end. 样程：programex(input,output);vari:integer;s,x:longint;begins:=0;fori:=1to100dobeginx:=i*10+2;s:=s+x;end;writeln(s);end. 按正反序分别输出26个小写英文字母。分析:输出2次,一次正序‘a’---‘z’,一次反序‘z’---‘a’.数据定义:ch:char; forch:='a'to'z'dowrite(ch);writeln;{正序}forch:='z'downto'a'dowrite(ch);writeln;{反序}解决办法注：循环控制变量的值可以是字符型数据。 警察局抓了A、B、C、D四名盗窃嫌疑犯，其中有一人是小偷。审问中A说：“我不是小偷。”B说：“C是小偷。”C说：“小偷肯定是D。”D说：“C在冤枉人。”现在已经知道四个人中只有一人说的是假话，问到底谁是小偷。例题： 分析：我们判断的方法是：先假设某人是小偷，然后判断四个嫌疑犯说的话是不是有三句真的，一句假的。如果是，则假设成立，找到小偷。用‘A’，’B’，’C’，’D’四个字符分别代表A，B，C，D这四个人。用变量X代表小偷。则四个嫌疑犯说的话可以转化为四个关系表达式：A说：“我不是小偷。”x<>’A’B说：“C是小偷。”x=‘C’C说：“小偷肯定是D。”x=‘D’D说：“C在冤枉人。”x<>’D’我们为X赋值，即假设某人是小偷，如：X‘A’，即假设A是小偷，然后判断四个嫌疑犯说的话是不是有三句真的一句假的 样程：Programex(input,output);varx:char;n:integer;beginforx:=‘A’to‘D’dobeginn:=0;ifx<>’A’thenn:=n+1;ifx=’C’thenn:=n+1;ifx=’D’thenn:=n+1;ifx<>’D’thenn:=n+1;ifn=3thenwriteln(x,’isathief.’);end;End. 分析：用‘A’，’B’，’C’，’D’四个字符分别代表A，B，C，D这四个人。用变量X代表小偷。则：A说：“我不是小偷。”x<>’A’B说：“C是小偷。”x=‘C’C说：“小偷肯定是D。”x=‘D’D说：“C在冤枉人。”x<>’D’ord(x<>‘A’)+ord(x=‘C’)+ord(x=‘D’)+ord(x<>’D’)=3时X的值是小偷。 样程：Programex;Varx:char;s:integer;Beginforx:=‘A’to‘D’dobegins:=ord(x<>’A’)+ord(x=‘C’)+ord(x=‘D’)+ord(x<>’D’);ifs=3thenwriteln(x,’isathief’);end;End. 练习：输入20个数,统计它们中正数、负数和零的个数。分析：1、重复执行的操作：输入一个数；判断这个数是什么数？2、重复次数？20次 样程：programstu(input，output）；vara：real；x，y，z，i:integer;beginx:=0;y:=0;z:=0;fori:=1to20dobeginreadln（a）；ifa>0thenx:=x+1elseifa=0theny:=y+1elsez:=z+1end;write(‘x=‘,x,’y=‘,y,’z=‘,z)end. 练习9：输入20个数,求它们的最大值、最小值和平均值。分析：1、重复执行的操作：输入一个数；判断；累加；2、重复次数？20次 样程：programstu8(input，output）；vara,s,min,max:real；i:integer;beginreadln（a）；min:=a;max:=a;s:=a;fori:=2to20dobeginreadln（a）；ifa>maxthenmax:=a;ifa0thenwriteln(‘No’)elsewriteln(‘Yes’);end. 练习：输入一个数，判断其是否为质数。如果是质数输出‘Yes’，否则输出‘No’样程：programex(input,output);varx,i,j:integer;beginreadln(x);i:=0;forj:=2toxdiv2dobeginifxmodj=0theni:=1;end;ifi<>0thenwriteln(‘No’)elsewriteln(‘Yes’);end. 练习：编程找出四位整数abcd中满足下述关系的数：(ab+cd)(ab+cd)=abcd。例如：2025，（20+25）*（20+25）=2025ForI1000to9999do(m+n)*(m+n)=itruefalsemIdiv100输出InImod100