34,593
社区成员
发帖
与我相关
我的任务
分享fortran中简单的选择结构问题
老是出现各种错误，我已经不知道怎么改了，也查了好久百度，求解惑。
代码如下
program main
implicit none
real::x,y
read*,x
if(x.GT.-15.and.x.LT.0) then y=COS(x)
else
if(x.GE.0.and.x.IT.10) then y=LOG(x**2+1)
else
if(x.GT.15.and.x.IT.20) then y=x**(1/3)
else print*,'其他'
END IF
print*,'y=',y
end
implicit none
real::x,y
read*,x
if(x.GT.-15.and.x.LT.0) then y=COS(x)
else
if(x.GE.0.and.x.IT.10) then y=LOG(x**2+1)
else
if(x.GT.15.and.x.IT.20) then y=x**(1/3)
else print*,'其他'
END IF
print*,'y=',y
end
...全文
请发表友善的回复…
发表回复
青城山下游 2019-11-15
- 打赏
- 举报
program main
implicit none
real::x,y
read*,x
if(x.GT.-15.and.x.LT.0) then y=COS(x)
else
if(x.GE.0.and.x.LT.10) then y=LOG(x**2+1)
else
if(x.GT.15.and.x.LT.20) then y=x**(1/3)
else print*,'其他'
END IF
print*,'y=',y
end 其中有两个字母输错了，但除此之外还是有错误
implicit none
real::x,y
read*,x
if(x.GT.-15.and.x.LT.0) then y=COS(x)
else
if(x.GE.0.and.x.LT.10) then y=LOG(x**2+1)
else
if(x.GT.15.and.x.LT.20) then y=x**(1/3)
else print*,'其他'
END IF
print*,'y=',y
end 其中有两个字母输错了，但除此之外还是有错误
