Re: [問題] 我寫一個判斷象限的流程，但不知問題在 …
※ 引述《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
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
