program point_position
implicit none
real ::x,y
print*,"Please type point x,y"!this program find the position of a point among four quadrant
read*,x,y
print*,"x=",x,"y=",y
if (x>0)then
if(y>0) then
print*,"the point lies on First quadrant"
else
print*,"The point lies on Fourth quadrant"
endif
else
if(y>0)then
print*,"The point lies on Second quadrant"
else
print*,"The point lies on Fourth quadrant"
endif
endif
end program point_position
implicit none
real ::x,y
print*,"Please type point x,y"!this program find the position of a point among four quadrant
read*,x,y
print*,"x=",x,"y=",y
if (x>0)then
if(y>0) then
print*,"the point lies on First quadrant"
else
print*,"The point lies on Fourth quadrant"
endif
else
if(y>0)then
print*,"The point lies on Second quadrant"
else
print*,"The point lies on Fourth quadrant"
endif
endif
end program point_position