PROGRAM TEST01
 REAL :: XMAX,YMAX,XMIN,YMIN
 REAL :: X1,Y1,X2,Y2,X3,Y3,X4,Y4
 REAL :: XI,YI
 !程序运行区，构造平行四边形
 PRINT*,'输入对应四点的坐标:'
 READ(*,*) X1,Y1,X2,Y2,X3,Y3,X4,Y4
IF(X2>X4)THEN
  WRITE(*,'("XMAX=",F10.6)')X2
  ELSEIF(X2<=X4)THEN 
  WRITE(*,'("XMAX=",F10.6)')X4
  END IF
IF(X1>X3)THEN
  WRITE(*,'("XMIN=",F10.6)')X3
  ELSEIF(X1<=X3)THEN 
  WRITE(*,'("XMIN=",F10.6)')X1
  END IF
IF(Y2>Y1)THEN
  WRITE(*,'("YMIN=",F10.6)')Y1
  ELSEIF(Y2<=Y1)THEN  
  WRITE(*,'("YMIN=",F10.6)')Y2
  END IF
IF(Y3>Y4)THEN
  WRITE(*,'("YMAX=",F10.6)')Y3
 ELSEIF(Y3<=Y4)THEN  
  WRITE(*,'("YMAX=",F10.6)')Y4
  END IF
!判断节点I是否在平行四边形内 
  PRINT*,'输入节点I的坐标值:'
  READ (*,*)XI,YI
IF(XMAX>=XI.AND.XI<=XMIN)THEN
  WRITE(*,*)'横坐标满足条件'
ELSE 
    WRITE(*,*)'横坐标不满足条件'
ELSEIF(YMAX>=YI.AND.YI<=YMIN)THEN
    WRITE(*,*)'纵坐标满足条件'
ELSE 
   WRITE(*,*)'综坐标不满足条件'
     WRITE(*,*)'节点I可能为接触点'
      END IF
  END PROGRAM

PROGRAM TEST01
 REAL :: XMAX,YMAX,XMIN,YMIN
 REAL :: X1,Y1,X2,Y2,X3,Y3,X4,Y4
 REAL :: XI,YI
 !程序运行区，构造平行四边形
 PRINT*,'输入对应四点的坐标:'
 READ(*,*) X1,Y1,X2,Y2,X3,Y3,X4,Y4
IF(X2>X4)THEN
  WRITE(*,'("XMAX=",F10.6)')X2
  ELSEIF(X2<=X4)THEN 
  WRITE(*,'("XMAX=",F10.6)')X4
  END IF
IF(X1>X3)THEN
  WRITE(*,'("XMIN=",F10.6)')X3
  ELSEIF(X1<=X3)THEN 
  WRITE(*,'("XMIN=",F10.6)')X1
  END IF
IF(Y2>Y1)THEN
  WRITE(*,'("YMIN=",F10.6)')Y1
  ELSEIF(Y2<=Y1)THEN  
  WRITE(*,'("YMIN=",F10.6)')Y2
  END IF
IF(Y3>Y4)THEN
  WRITE(*,'("YMAX=",F10.6)')Y3
 ELSEIF(Y3<=Y4)THEN  
  WRITE(*,'("YMAX=",F10.6)')Y4
  END IF
!判断节点I是否在平行四边形内 
  PRINT*,'输入节点I的坐标值:'
  READ (*,*)XI,YI
IF(XMAX>=XI.AND.XI<=XMIN)THEN
  WRITE(*,*)'横坐标满足条件'
ELSE 
    WRITE(*,*)'横坐标不满足条件'
ELSEIF(YMAX>=YI.AND.YI<=YMIN)THEN
    WRITE(*,*)'纵坐标满足条件'
ELSE 
   WRITE(*,*)'综坐标不满足条件'
     WRITE(*,*)'节点I可能为接触点'
      END IF
  END PROGRAM
如何将XMAX YMAX, XMIN,YMIN参加XI,YI比较