在DO和END DO之间的语句块不确定地重复执行，知道逻辑表达式变为真，执行了EXIT语句。EXIT语句执行后，...
do while(counter<=UpperBound) write(*,*)"input Mis Cai'age" read(*,*)input_age if(abs(age-input_age)<error)exit counter=counter+1 end do if((counter>UpperBound).and.(abs(age-input_age)>=error))then write(*,*)"you wrong" else write(*,*)"great!,you are right",input_age end...
cycle命令可由略过循环的程序模块中,相当于python和C中的continue,直接跳过后面的所有代码,然后开始下一次循环。 exit的功能是可以直接跳出一个正在进行的循环,不论是do 循环还是do while 循环,相当于python和C中的break。 1program sime23implicitnone4integer :: tn56tn=27print_tn :do8print *, tn9tn = tn...
exit的功能是可以直接跳出一个正在进行的循环,不论是do 循环还是do while 循环,相当于python和C中的break。 1 program sime 2 3 implicit none 4 integer :: tn 5 6 tn=2 7 print_tn : do 8 print *, tn 9 tn = tn+2 10 if (tn>=200) exit print_tn 11 end do print_tn 12 pause 13 14...
do i = 1, 10 if (i == 5) then exit ! 跳出当前循环 end if ! 待执行的代码块 end do ```上述代码表示当i等于5时跳出当前循环。cycle语句用于跳过当前迭代，直接进入下一次迭代，例如：```do i = 1, 10 if (mod(i,2) == 0) then cycle ! 跳过偶数迭代 end if ! 待执行的代码块 end ...
do 10 i=1,n term=term*x/i; sum=sum+term 10 continue print *, sum end 上面介绍的循环中,循环终端语句为一般的执行语句。F90规定:循环终端语句可以是除了GOTO、块IF、CASE、CYCLE、DO、ELSE、ELSE IF、END IF、END、END SELECT、EXIT、SELECT CASE、STOP和RETURN语句以外的任一可执行语句,如打印语句、...
大部分情况下，你应该利用上述特性，更高级一点的还有隐DO循环等。但如果你确实需要在循环体中改写计数器变量的值，那么不应该用上述“DO+计数器变量”的循环结构，而应该是 DO ………if(循环终止判断) exit END DO 这种无计数器变量的DO循环结构。你可以把你要写的循环改写成类似于 +++++++++++...
do循环可以嵌套。do i=1,n do j=1,n do k=1,n ... end do end do end doDo-While循环语法如下:do while(rep) ... ! 档rep为真时,一直执行循环体。 ... end do循环控制循环控制语句主要有CYCLE和EXIT。cycle命令可以略过循环程序模块中,cycle命令后面的所有程序代码,直接跳到循环的开头来进行下一...
DO[[标号][，]]循环变量＝初值式E1，终值式E2[，增量式E3]例如：DO10N=1，100，1 T=N/2.0 10PRINT*,T 第3页 说明：循环变量的初值、终值和步长可以为正或负。初值、终值可以为零。但步长不应为0，否则循环变量的值永远不会超过终值，从而陷入死循环。例：对于D0k＝-1,-3,-1其循环次数＝INT((－3...
do read(10, *, iostat=n) data(i+1) if (n /= 0) exit i = i + 1 end do close(10) print *, 'Data read from file:' do n = 1, i print *, data(n) end do end program read_file 代码解释 文件打开: 使用 open 语句打开文件 filename 以读取模式 (status='old',action='read'...