fortran program exit_example implicit none integer :: i ! DO 循环,从 1 到 10 do i = 1, 10 ! 如果 i 等于 5,则跳出循环 if (i .eq. 5) then exit endif ! 循环体中的其他操作 print *, 'i =', i end do ! 循环结束后的操作 print *, '循环结束' end program exit_example 在这个...
do 1else! do 2end ifif(a>10)then! do 1else if(a>5)then! do 2else! do 3end if 在if后面必须接then,if 和 end if 构成一个标准的条件结构。支持if结构的嵌套。 可以使用简单的单行if,不需要end和then。 if(a>10)b=a 逻辑语句和逻辑运算 在if语句之后,顺便介绍逻辑类型和运算。 逻辑类型:....
else if 条件 then 执行 else 执行 end if 一般的条件判断逻辑词有:>(.gt.),<(.lt.),=(.eq.),≠(.ne.或者/=),≥(.ge.或者>=),≤(.le.或者<=) 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 ...
一个完整的程序,流程的控制必不可少,Fortran语言中控制语句大致有两类:分支语句和循环语句。 分支语句: 分支语句主要包括IF、SELECT CASE等语句,下面是两个个简单的用法说明: 1 2 3 4 5 6 7 IF(逻辑表达式1) THEN 块1 ELSE IF(逻辑表达式2) THEN 块2 ELSE 块3 END IF 1 2 3 4 5 6 7 8 SELECT ...
exit的功能是可以直接跳出一个正在进行的循环,不论是do 循环还是do while 循环,相当于python和C中的break。 1program sime23implicitnone4integer :: tn56tn=27print_tn :do8print *, tn9tn = tn+210if(tn>=200) exit print_tn11enddoprint_tn12pause1314end ...
if (ierr /= 0) exit print *, line end do ! 关闭文件 close(unit) end program read_file 代码解释 文件操作: 使用 open 打开文件,read 模式表示读取操作。循环读取: 使用 do 循环和 read 语句逐行读取文件内容。错误处理: 使用 iostat=ierr 检查文件读取过程中是否发生错误。关闭文件: 使用 close 关闭文...
if (ios /= 0) exit n = n + 1 if (n == 1) then call count_tokens(line, delimiter, m) end if end do close(10) ! 分配数组 allocate(data(n, m)) allocate(tokens(m)) ! 重新打开文件并读取数据 open(unit=10, file=filename, status='old', action='read') ...
1. IF-THEN语句 IF-THEN语句是Fortran中最基本的判断语句,它的语法如下: IF (condition) THEN statement block END IF 其中,condition是一个逻辑表达式,如果为真,则执行statement block中的语句,否则跳过该语句块。 2. IF-THEN-ELSE语句 IF-THEN-ELSE语句是IF-THEN语句的扩展版本,它的语法如下: IF (condition...
End if 逻辑运算符: 逻辑判断式 多重判断 If(条件1) then …… Else if(条件2) then Else …… End if 浮点数及字符的逻辑运算 使用浮点数来做逻辑运算时,要避免使用“等于”的判断。因为使用浮点数做计算时,有效位数是有限的,难免会出现计算上的误差,理想中的等号不一定会成立。要使用浮点数来做“等于”...
if(MyGuess==Number) exit if(MyGuess> Number) then print *, 'Too high. Try again.' else print *, 'Too low. Try again.' end if end do print *,'You are lucky. It is',Number end 例子 implicit none integer :: i,n real :: y=0, term ...