【计算机】第四章1 循环结构程序设计之FOR循环.pptVIP

用循环语句解决该问题 Program ex(input,output); var I:integer; begin for I:=1 to 100 do writeln(sqrt(i):0:3) End. 第四讲 循环结构程序设计 计算机在执行一个程序模块时，不是按照语句的排列顺序进行的，而是按照一定的规律和规则在一定的条件下重复执行模块内部的一系列语句，那么我们可以把这种结构看作是循环结构。这种结构的程序设计可以称为循环程序程序设计。 PASCAL语言的循环语句有三种： FOR语句； WHILE语句 ; REPEAT语句。 例：请利用循环语句输出 1~1000 以内的自然数。 例 计算1+2+3+……+100的值 program lt(input,output); var s,i:integer; begin s:=0; for i:=1 to 100 do s:=s+i; write(s=,s) end. 注意事项: 1.初值,终值可为表达式,但类型必须一致； 2.若初值终值,退出循环,故循环体有可能一次也不执行； 3.每执行完循环体,循环变量自动变为下一个值,下一个值由SUCC(X)函数产生； 4.循环变量可为整型,字符型,布尔型,子界型,枚举型等； 5.在循环体内,不允许改变循环变量的值； 6.在循环之前,根据初,终值计算循环次数及每次循环变量的值； 7.FOR循环退出后,循环变量的值是无定义的,不可引用. 习题1： program ex(input,output); var i,s,x:integer; begin s:=0; for i:=1 to 50 do begin x:=i*2; s:=s+x end; writeln(s) end. 习题2： program ex(input,output); var i:integer; s,x:real; begin s:=0; for i:=1 to 100 do begin x:=1/i; s:=s+x end; writeln(s:0:3) end. 习题3： program ex(input,output); var i:integer; s,x:longint; begin s:=0; for i:=1 to 100 do begin x:=i*10+2; s:=s+x end; writeln(s) end. 按正、反序分别输出26个小写英文字母。 分析:输出2次,一次正序‘a’---‘z’； 一次反序‘z’---‘a’. 数据定义: ch:char; 例题： 警察局抓了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是小偷，然后判断四个嫌疑犯说的话是不是有三句真的一句假的 样程： Program ex(input,output); var x:char; n:integer; begin for x:=‘A’ to ‘D’ do begin n:=0; if x’A’ then n:=n+1; if x=’C’ then n:=n+1; if x=’D’ then n:=n+1; if x’D’ then n:=n+1; if n=3 then writeln(x,’ is a thief.