作者awer89 (Dolphin)
站内Fortran
标题Re: [问题] 我写一个判断象限的流程，但不知问题在 …
时间Wed Aug 26 20:33:25 2009
※ 引述《libra1005 (怕，你就输一半！)》之铭言：
: --------------------分隔线----------------------------------------------------
: read(*,*)x,y
: if(X>0.and,y>0)then
^ 改成.
: ans=1
: else if(X>0.and,y<0)then
^ 同上
: ans=4
: else if(X<0.and,y>0)then
^
: ans=2
: else if(x=0.or.y=0)then
等於要用== 不只一个=
: ans=0
: else if(X<0.and,y<0)then
^
: ans=3
: end if
: if(ans/=0.and.ans=1)then
^ 同上 不过应该(ans==1)就好了
write(*,*)"第一象限",ans
^
: else if(ans/=0.and.ans=2)then
^
: write(*,*)"第二象限" ans
^
: else if(ans/=0.and.ans=3)then
^
: write(*,*)"第三象限" ans
^
: else if(ans/=0.and.ans=4)then
^
: write(*,*)"第四象限" ans
^
: else if(ans=0)then
: write(*,*)"落在轴上" ans
^
: end if
: stop
: end
--
18173
12/09 - □ (本文已被吃掉)
吃光光，口卡口卡
18174
12/09 - □ (本文已被吃掉)
◤
18175
12/09 - □ (本文已被吃掉)
⊙ ⊙
18176
12/09 - □ (本文已被吃掉)
▼▼▼▼
18177
12/09 - □ (本文已被吃掉)
▲▲▲▲
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.42.211.24