fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1不知道哪错了编译时总出错fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1）不知道哪错了编译时总出错,其我想判断数
来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/25 07:55:15
fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1不知道哪错了编译时总出错fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1）不知道哪错了编译时总出错,其我想判断数
fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1不知道哪错了编译时总出错
fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1）不知道哪错了编译时总出错,其我想判断数组x中每个元素小于1,有一个大于1则跳出
fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1不知道哪错了编译时总出错fortran逻辑表达式(x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1）不知道哪错了编译时总出错,其我想判断数
第一,你是否把最后一个括号写成了全角?
第二,以下代码我这边可以正常运行.
program main
implicit none
integer ::x(4) = (/0,0,1,2/)
if ( (x(1).gt.1).or.(x(2).gt.1).or.(x(3).gt.1).or.(x(4).gt.1) ) then
write(*,*) 's'
end if
end
第三,对于你的情况,您可以使用 any 语句.
program main
implicit none
integer ::x(4) = (/0,0,1,2/)
if ( any( x(1:4) > 1 ) ) then
write(*,*) 's'
end if
end