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

Popular posts from this blog

Some Funny Mathematical Questions

Puthon3

পৃথিবীর কোনো এক আদিম সকাল