其次,在Fortran中,条件判断通常与 IF 语句一起使用。IF 语句的基本形式如下: fortran. IF (condition1 .and. condition2) THEN. ! 程序块1。 ELSE. ! 程序块2。 END IF. 在这个例子中,如果 `condition1 .and. condition2` 为真,程序将执行“程序块1”,否则将执行“程序块2”。 此外,`.and.` 运算符...
a = 10 b = 3 if (a > b) then print *, 'a大于b' end if 复制代码逻辑运算符: 与:.and. 或:.or. 非:.not.示例:a = .true. b = .false. if (a .and. b) then print *, 'a与b同时为真' end if 复制代码除了以上常见的运算符,Fortran还支持位运算符、赋值运算符等。在编写程序时,...
1.if...then 这是最简单的if语句结构。 if...then的语句结构如下: if (logical expression) then statement endif 还可以对if块进行命名: [name:] if (logical expression) then ! various statements . . . 2.if...then...elseif...then...else语句的基本语法如下: if (logical expression) then sta...
数组置零,利用EXIT跳出循环 do while ( .true. ) f(i)=0 i=i+1 if(i>100) exit end do f(1)=0 f(2)=1 xunhuan: Do i=3,m,1 f(i)=f(i-1)+f(i-2) End Do xunhuan write(*,100)f(1:m) 100 format(T5,'The Fibonacci sequence are : ',/,5(F15.2)) end program ...
所有的.AND.运算符从左至右计算。 所有的.OR.运算符从左至右计算。 所有的.EQV.和.NEQV.运算符从左至右计算。 与算术运算符一样,圆括号可以用来改变默认的计算顺序。 2.2 控制结构:分支 分支是允许跳过其他代码段而选择执行特定代码段(称为程序块)的Fortran语句。 主要有IF语句和SELECT CASE结构。 2.2.1 IF...
这样省略了 then 和 end if F90 使用逻辑符号来表示 如 == ,/=, < , > 等来表示。 F77 要使用缩写来做 逻辑判断。 .EQ. .NQ. .GT. .LT. GE. .LE. 如果有多个 逻辑关系,需要联系 可能要用到 .and. 相当于 C语言的 && .or. 相当于C语言的 || ...
If(.not. allocated(a))then Allocate(a(5)) End if 函数 子程序(subroutine)的使用 子程序代码以subroutine开头,它同样要取一个名字,以end或end subroutine来结束。严格地讲,end subroutine后还可以再接上这个子程序的名字 program ex implicit none
1.IF语句与C中类似,形式如下: [名称: ]IF (logical_expr) THEN statement 1 statement 2 ELSE IF (logical_expr_2) THEN [名称] statement 1 statement 2 ELSE [名称] statement 1 statement 2 ... END IF [名称] 其中IF THEN必须在同一行,且其下面一行必须紧跟可执行语句,ELSE,ELSE IF和END IF也必...
循环计数DOREAD(*,*)'Enter the number:',xWRITE(*,*)"The number is:",xIF(x<0)EXITn=n+1...
end if ``` 在上面的代码中,`condition`是一个逻辑表达式,如果该表达式为真,则执行`then`后面的代码块;否则执行`else`后面的代码块。在Fortran中,逻辑表达式可以使用比较运算符(如`==`、`>`、`<`等)和逻辑运算符(如` .and. `、` .or. `等)来构建。