编程技术

例：请计算并输出1~9这9个数的算术平 方根。

writeln(sqrt(x))

编程技术

样程：

Program ex(input,output); begin writeln(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.

编程技术

例：请计算并输出1~100这100个数的算 术平方根。Program ex(input,output); begin writeln(sqrt(1)) writeln(sqrt(2)) …… writeln(sqrt(100)) End.

编程技术

用循环语句解决该问题Program ex(input,output); var I:integer; begin for I:=1 to 100 do writeln(sqrt(i):0:3) End.

编程技术

第四讲 循环程序设计

编程技术

计算机在执行一个程序模块时，不是按照语 句的排列顺序进行的，而是按照一定的规律 和规则在一定的条件下重复执行模块内部的 一系列语句，那么我们可以把这种结构看作 是循环结构。这种结构的程序设计可以称为 循环程序设计。 PASCAL语言的循环语句有三种：FOR 语句；WHILE语句 ; REPEAT语句。

编程技术

For循环语句格式(一) pascal语言中的for语句： for 循环控制变量:=初值 to 终值 do循环体

注：如果循环体是若干条语句需在循环体前面 加begin,后面加end。

编程技术

FOR 循环流程图 (Passcal语言 语言) 语言

循环变量赋初值 false

循环变量≤终值 循环变量 终值

true 循环体

编程技术

For循环语句格式(二) pascal语言中的for语句： for 循环控制变量:=初值 downto 终值 do循环体

注：如果循环体是若干条语句需在循环体前面加 begin,后面加end。

编程技术

例：请利用循环语句输出

1~1000以内的自然数。

编程技术

样程：

for 循环控制变量:=初值 to 终值 do 循环体

Program zz(input,output); Var I:integer; Begin for I:=1 to 1000 do begin writeln(i); if I mod 20=0 then readln; end; End.

编程技术

Pascal语言中循环模块的执行过程循环变量:=初值循环变量<=终值

False

true循环体 循环变量:=SUCC(循环变量)

编程技术

例 计算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循环退出后,循环变量的值是无定 义的,不可引用.

编程技术

练习：对上题的程序稍加改变， 练习：对上题的程序稍加改变，试着算出以 下算式： 下算式： S=2+4+6+8+…+100; S=1+1/2+1/3+1/4+…+1/100; S=12+22+32+42+…+1002;