Visual Fortran90第5章

1、第5章循环结构计程仪编程、5.2循环无变量DO结构、5.3循环带变量DO结构、5.4 DO WHILE结构、5.5 DO结构嵌套、5.6隐式DO循环、5.7计程仪程序示例、主要内容、5.1引言、5.1引言、示例1打印sinx的值该程序programmainreal :3360 pipi=3. 14159/180打印*、sin(x*)打印*、sin (10 * pi )打印*、PROGRAM MAIN REAL:X、pix=0pi=3. 0 pi)x=x10if(x360)exiii 1.已知循环次数2、已知循环条件循环的显示和适用范围：循环全部以Do结构显示，其Do结构共有3种形式： 1个循环

2、变量的Do结构具有2个循环变量的Do结构3Do WHILE 循环开始语句循环体！ 循环体ENDDO构造名！ 循环结束语句，说明： 1，结构名可以省略，多层嵌套的情况下，有助于明确结构2 .循环体可以是0n个语句或结构，包括重复语句、循环变量的变化、循环控制语句等3，DO循环入口语句，仅从该语句进行循环可以不通过该语句结束循环的无循环变量的DO结构，使用范围：循环次数不明，给出循环结束条件，二、无循环变量的DO结构执行过程：进入DO结构后，从DO语句下面的第一个语句执行到ENDDO前面的最后一个语句依次执行这样的DO结构对于没有控制变量的DO结构，DO块需要EXIT语句，并停止循环。 否则，循环

3、将持续24小时365天，成为死循环。 例如，DO READ *、X SUM=SUM X PRINT *、SUM END DO，此DO结构是无中断循环，称为死循环，必须添加出口EXIT语句才能退出循环。3、EXIT和CYCLE语句、1、EXIT语句在出口语句中循环，一般形式为EXIT DO结构名称的作用：停止循环，将控制移出当前循环(或指定do结构)。 一般的用法IF (逻辑表达式) EXIT DO构造名，EXIT语句程序流程图：语句组EXIT语句组，前例的改良后：DO READ *，X IF(X=0) EXIT SUM=SUM X PRINT *必要的变量是累计项数I，通项t，总和s， 总项数

4、为n .示例5-2，其中programmainimplicitnoneinteger 33603360 n、I=1 REAL:T、S=0.0 READ *和N DO T=1.0/I。 通用项S=S T！ 累加和I=I 1！ 累加项数IF(IN) EXIT ENDDO PRINT *、SUM=、S END PROGRAM MAIN、2、CYCLE语句和短语句从循环执行此语句的循环主体的第一个语句开始执行。 一般用法： IF (逻辑式) CYCLE DO构造名，例5-3 :在一批数中，求负数的个数和负数的总和。 然后从牛鼻子板上逐一输入，当输入的数据为0时退出循环。 分析重复：计数num=num

5、1加法sum=sum x结束： if(x=0) exit跳过： if(x0) cycle，例如：在批次数中求负数的个数和负数的总和。 算法：将方程式改写为X=f(X )的格式，其中xif(x=)周期=num1sum=sumxenddo、DO READ *、xif(x=)。 在x=(-x2-1)/4中求出初始值X0，代入上式求出X1。 将X1设为X0，代入上式，求出新的X1。 反复代入，这是迭代法。2次求出的X1的值达到一定的精度，|xn 1-xn|时，得到方程式的根。如果世代没有达到一定次数的精度，则认为世代有可能发散，世代不再重叠，提供适当的提示信息。 programiterationimplicitnoneinteger :33