fortran PROGRAM ExitDoLoopExample IMPLICIT NONE INTEGER :: i DO i = 1, 10 IF (i == 5) THEN EXIT ! 当i等于5时退出循环 END IF PRINT *, '当前值:', i END DO PRINT *, '循环已退出' END PROGRAM ExitDoLoopExample 在这个示例中,当i的值等于5时,EXIT语句会被执行,从而跳出DO循环。程序...
5IF(i==3)EXITWRITE(*,*)iEND DOWRITE(*,*)'END OF LOOP!'END PROGRAMtest_cycle ...
2.2循环(loop) 2.2.1 do循环 do i=1,n a=i end do 2.2.2 do while循环 do while(i<11) i=i+1 end do 2.2.3 循环控制(exit and cycle) exit:提前结束循环,通常用来跳出if语句 cycle:跳出此次循环,进入下一个cycle 2.2.4 嵌套循环 2.2.5 并行循环...
这里还显示了格式化输出yn_loop:do!内嵌的另一个do循环write(*,*)'Perform another calculation? y[n]'read(*,'(a1)') ynif(yn=='y'.or. yn=='Y')exityn_loopif(yn=='n'.or. yn=='N'.or. yn==' ')exitinteractive_loopenddoyn_loop!结束内嵌do循环enddointeractive_loopendprogramcylinder Fo...
if(逻辑运算) exit !exit就好比C里面的break。C里的continue在Fortran里是cycle end do 4、Fortran的一个特色:带署名的循环 可以这样,不易出错: outer: do i=1,3 inner: do j=1,3 …… end do inner end do outer 还可以这样,很方便: loop 1: do i=1,3 loop2: do j=1,3 if(i==3) exit...
虽然标准的 Fortran90/95 没有直接的 DO WHILE 结构,但可以通过使用逻辑条件和 CYCLE 或EXIT 语句来实现类似的功能。Fortran2003 引入了 SELECT CASE 和DO CONCURRENT 等更高级的控制结构,但仍未直接引入 DO WHILE。不过,可以使用一个无限循环加上条件判断来模拟 DO WHILE。 program simulated_do_while_loop implic...
if(逻辑运算) exit !exit就好比C里面的break。C里的continue在Fortran里是cycle end do 4、Fortran的一个特色:带署名的循环 可以这样,不易出错: outer: do i=1,3 inner: do j=1,3 …… end do inner end do outer 还可以这样,很方便: loop 1: do i=1,3 loop2: do j=1,3 if(i==3) exit...
DO循环可以不带计数变量,代之以EXIT语句。其一般格式为: DO CALL STATEMENT_1 ! DO SOMETHING... IF CONDITION THEN EXIT ! EXIT THE DO-LOOP END IF END DO 举例:输入多个非零整数,直到遇到0停止;求和。 PROGRAM EXAM_301 IMPLICIT NONE INTEGER*8::VAL, THE_SUM THE_SUM = 0 VAL = 0 DO PRINT*,...
do i = 1, loop_time !执行的代码块 if (condition) then exit end if end do 在上述示例中,如果条件为真,则循环将会立即终止,即使尚未达到loop_time指定的循环次数。 总结起来,Fortran中的loop_time变量用于控制循环的次数。通过对该变量的声明、初始化和使用,可以轻松地实现重复执行特定代码块的功能。在循环...
or. yn=='Y') exit yn_loop if (yn=='n' .or. yn=='N' .or. yn==' ') exit interactive_loop end do yn_loop !结束内嵌do循环 end do interactive_loop end program cylinder Fortran程序的主要结构就是这样了。一般还会有些module的部分在主函数前,函数在主函数后。 二、数据类型及基本输入...