计算学-1分解.ppt

程 序 举 例 例4-3 输入三个数，把它们 按从大到小的顺序输出。 PROGRAM SEQUENCE IMPLICIT NONE INTEGER A,B,C WRITE (*,*)INPUT A,B,C: READ (*,*) A,B,C IF(AB)THEN IF(BC)THEN PRINT *,A,B,C ELSE IF(AC)THEN WRITE (*,*) A,C,B ELSE WRITE (*,*) C,A,B END IF END IF ELSE IF(BC)THEN WRITE (*,*) C,B,A ELSE IF(AC)THEN WRITE (*,*) B,A,C ELSE WRITE (*,*) B,C,A END IF END IF END IF END PROGRAM SEQUENCE 循环结构 3.1.2有循环变量的DO构造 a)??? DO语句和循环次数 DO构造可分为不带循环变量与带循环变量两种形式。 当需要执行的循环次数为已知时，用DO语句实现循环比较方便。它的一般形式为： DO [[标号][，]] 循环变量＝初值式，终值式[，增量式] 例：循环读入学生的学号和成绩30次并打印。 DO N＝1，30，1 READ （*,*）NUM，GRADE WRITE （*,*） NUM，GRADE END DO ? DO循环嵌套 在一个DO循环中又完整地包含另一个DO循环，称为DO循环的嵌套。嵌套层数可以不限，各层的循环变量不允许同名。注意内循环应当完整地嵌套在外循环之内，即内循环是外循环体中的一部分，内外循环不能交叉。即： do i=1,10 do j=1,20 ……… end do end do 循环终止 a)??? CYCLE语句 CYCLE语句的一般形式为：CYCLE [DO构造名]。CYCLE语句的功能是在循环中跳过它下面那部分的DO块，重新返回到块的第一个语句开始执行。运用CYCLE语句，可以在执行循环中某一次迭代时不执行下面的部分语句，使DO结构更为灵活。 b)??? EXIT语句 条件循环 例：一个猜数游戏。用随机数产生器产生1－10之间的一个整数，你猜它，如果猜得太大或太小都会提示，猜对了结束。 CALL RANDOM_SEED ! Processor initializes the seed randomly from the date and time call random_number(R) Number=int(10*R+1) do write(*,(Your Guess:)); read (*,*) MyGuess if(MyGuess==Number) exit if(MyGuess Number) then write (*,*) Too high. Try again. else write (*,*) Too low. Try again. end if end do write (*,*) You are lucky. It is,Numberend 数组 输入10个整数，并按输入时的逆序输出，每行5个。 PROGRAM NUMBER INTEGER DIMENSION(1:10) A INTEGER I DO I=1,10 READ (*,*)A(I) END DO WRITE(*,*)(A(11-I),I=1,10) END PROGRAM NUMBER 1.数组名 INTEGER A(1:2,1:3) READ (*,*),A 相当于 READ*,A(1,1),A(2,1),A(1,2),A(2,2),A(1,3),A(2,3) 2.隐含DO循环 WRITE(*,*)((A(I,J),J=1,3),I=1,2) READ(*,*)((A(I,J)，I=1,2)，J=1,3) 相当于 READ (*,*),A 3.DO结构加隐含DO循环—最常用方法 DO I=1,2