作者libra1005 (怕，你就输一半！)
看板Fortran
标题[问题] 我写一个判断象限的流程，但不知问题在何处......
时间Wed Aug 26 19:42:23 2009
小弟最近在学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