在现代Fortran编程中,推荐使用exit语句来跳出do循环。 提供一个示例代码,展示如何在Fortran中使用该语法跳出do循环: fortran program loop_exit_example implicit none integer :: i logical :: found found = .false. do i = 1, 10 print *, 'Checking value:', i if (i == 5) then print *, 'Valu...
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 并行循环...
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*,...
跳过偶数 endif print *, 'Odd number:', i end do print *, 'Loop has ended.' end program cycle_example 在这个例子中,每当i是偶数时,CYCLE语句会导致循环跳过当前的迭代,直接开始下一次迭代。因此,只有奇数会被打印出来。 总结 IF语句本身不需要“跳出”,因为它不是循环结构。 在循环中使用EXIT可以...
这里还显示了格式化输出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...
虽然标准的 Fortran90/95 没有直接的 DO WHILE 结构,但可以通过使用逻辑条件和 CYCLE 或EXIT 语句来实现类似的功能。Fortran2003 引入了 SELECT CASE 和DO CONCURRENT 等更高级的控制结构,但仍未直接引入 DO WHILE。不过,可以使用一个无限循环加上条件判断来模拟 DO WHILE。 program simulated_do_while_loop implic...
do i = 1, loop_time arr(i) = 0 end do 在上述示例中,循环变量i的范围是从1到loop_time的值。在每次迭代中,arr(i)将被设置为0,因此整个数组将被初始化为0。 除了使用loop_time来控制循环的次数,还可以在循环中使用其他条件来终止循环。例如,假设我们想要在某个条件为真时终止循环,可以使用exit关键字...
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...
or. yn==' ') exit interactive_loop end do yn_loop !结束内嵌do循环 end do interactive_loop end program cylinder Fortran程序的主要结构就是这样了。一般还会有些module的部分在主函数前,函数在主函数后。 二、数据类型及基本输入输出 1、数据类型,声明及赋初值 (1)integer: 短整型kind=2, 长整型kind...