[問題] 我寫一個判斷象限的流程，但不知問題在何處......
小弟最近在學FORTRAN，今天寫了一個輸入座標然後判斷是第幾象限的程式
但卻跑不出來，請問板上高手解惑，告知哪裡錯誤@@
小弟看了很久還是不知道哪錯了，麻煩了，謝謝~
以下是我寫的程式碼
--------------------分隔線----------------------------------------------------
program ex0508
implicit none
real x,y,ans
write(*,*)"Input(x,y)"
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
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
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.200.92
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
