1、Fortran 95 程序设计,第五章 循 环,第五章 循 环,循环：可以自动重复地执行某一端程序代码 有两种格式： 1）固定重复程序代码n次； 2）不固定次数地重复程序代码，直到出现跳出循环的命令为止。,5-1 DO,Counter=11,循环：自动连续重复执行某一段程序代码,可以为常量或变量,例：使用循环计算2+4+6+8+10,累加的写法,FORTRAN 77 程序代码要在DO后面注明循环结束的代码号,5-1 DO,FORTRAN 77经常用CONTINUE来结束程序do 100, counter=2, limit, 2ans=ans+counter100 continue,Do i=e
2、1, e2 , e3 计数增值e3可以为负数，则终值e2必须小于起始值，才能循环。例：do i=10, 1, -1write (*, *) Iend do作计数器的变量I, 在循环的程序模块中不能再使用命令来改变它的数值， 不然在编译中会发生错误do i=1, 10i=i+1end do,3）循环的次数为: INT(e2-e1+e3)/e3)4) 尽量避免使用实型的计数循环例： Do x=0.0, 50.0, 0.1循环次数： （50.0+0.1)/0.1=501 ?do i=0， 500循环次数为5015）用来设置计数器初值、终值和增值的数值可以使用变量来指定，只会在循环之前被读取一次，在循
3、环中变量值改变不会影响循环,S=1E=10Inc=1 Do i=s, e, incs=5e=1inc=-1Write(*, *) I End do 6）Do循环可以多层嵌套,执行结果：,总共循环次数33,5-2 DO WHILE 循环,循环不一定要有计数器的增减来界定是否该结束循环，可由一个逻辑运算来作决定,主要用于不能预知执行次数的循环。,5-2 DO WHILE 循环,2+4+6+8+10,例：猜体重直到猜中为止,初设值保证为真以执行第一次循环,5-3 循环的流程控制,FORTRAN 90添加了：CYCLE 和 EXIT来控制循环的流程,5-3-1 CYCLE,在循环程序模块中，可以略过C
4、YCLE命令后面的所有程序代码，直接跳回到循环的开头，进行下一次的循环例：仿真电梯在第四层不停,没出现4 直接跳到5,5-3-2 EXIT,EXIT的功能：直接跳出一个正在运行的循环 例：改写猜体重的程序,！ 这个判断代表循环执行的条件永远成立,在循环至少要执行一次，结束循环的条件式太复杂时使用,5-3-3 署名的循环,1）循环可以署名，使相应的结束位置清晰，特别是使对于多层嵌套循环2）可以配合CYCLE和EXIT使用,5-3-3 署名的循环,没有署名时，跳离正在运行的循环,结束后I, j=?,i=3, j=1,i=3和J=2的部分被略过,5-4 循环的应用,费式数列：f0=0, f1=1,
5、当n1时，fn=fn-1+fn-2 写出费式数列的前10个数值。,5-4 循环的应用,不要写反顺序,5-4 循环的应用,例：加密程序，把每个英文字母在ASCII表中的编号加上2所得的字母当成密码传输，如： 将abc加密后成为cde, 解密工作就是将上述工作还原,规定输入格式：,解密程序：,5-4 循环的应用,用户输入两个数字及运算符，来决定两个数值的运算方式。每做完一次计算后，用户决定是否再做或结束,5-4 循环的应用,梯形法积分求 积分区间h=(b-a)/N 第i个小梯形的面积为：,f(x),i: 1N,二分法求解非线性函数f(x)=0,1）猜两个值a、 b, 使得f(a)*f(b)0 2）令c=(a+b)/2, 如果f(c)=0,则找到解，工作完成，否则： 3）如果f(a)f(c)0,则以a,c为新的范围重复步骤2；如果f(b)f(c )0,则以c,b为新的范围重复步骤2.,作业：,课本习题：P.117 6.3, 6.4, 6.5,
