DATA: LFIMG TYPE I VALUE '4'. DATA: NETWR1 TYPE P LENGTH 10 DECIMALS 2 VALUE '40.14'. DATA: OVER2 TYPE P LENGTH 10 DECIMALS 3. DATA: OVER1 TYPE P LENGTH 10 DECIMALS 2. DATA: RUN TYPE P LENGTH 10 DECIMALS 2. WRITE: /. OVER2 = NETWR1 / LFIMG. WRITE: / '正常取值',NETWR1,'/', LFIMG ,OVER2. OVER2 = NETWR1 / LFIMG. WRITE: / '正常取值',NETWR1,'/', LFIMG ,OVER2. WRITE: /. OVER1 = NETWR1 / LFIMG. WRITE: / '四舍五入',NETWR1,'/', LFIMG ,OVER1. OVER1 = NETWR1 / LFIMG. WRITE: / '四舍五入',NETWR1,'/', LFIMG ,OVER1. WRITE: /. RUN = CEIL( NETWR1 / LFIMG ). WRITE: / '向上取整',OVER2,RUN. RUN = FLOOR( NETWR1 / LFIMG ). WRITE: / '向下取整',OVER2,RUN.
网友评论