步驟:
1. 求質(zhì).
2. 放到CHAR型變量里.
3. 在前面加負(fù)號(hào),連接,壓縮空格,輸出.

最簡(jiǎn)單的就是用字符轉(zhuǎn)換吧,還有個(gè)功能函數(shù)就是專(zhuān)門(mén)用來(lái)負(fù)號(hào)前置的,但有些附帶的問(wèn)題,以后用到再看.

程序代碼:
----------------------------------------
REPORT? zpab06_t_negtive.

*----------------------------------------------------------------------*
*? 負(fù)數(shù)的負(fù)號(hào)前置顯示 (i,f,p 類(lèi)型為右對(duì)齊顯示"RIGHT-JUSTIFIED")??????? *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
*????? 整數(shù)
*----------------------------------------------------------------------*


DATA: output(12)?? TYPE c,
????? outdata? TYPE i VALUE '-1'.

IF outdata < 0.
? outdata = ABS( outdata ).??????????????? "OUTDATA = OUTDATA * ( -1 ).
? MOVE outdata TO output.
? CONCATENATE '-' output INTO output.
? CONDENSE output NO-GAPS.???????????????? "壓縮字符串,去掉空格
ENDIF.

WRITE : / output.

*----------------------------------------------------------------------*
*????? 浮點(diǎn)數(shù)
*----------------------------------------------------------------------*

DATA: output1(19)?? TYPE c,
????? outdatum?? TYPE p DECIMALS 2 VALUE '-1.23'.

IF outdatum > 0.
? WRITE outdatum TO output1.??????????????????????? "RIGHT-JUSTIFIED.
? CONCATENATE ' ' output1 INTO output1.
ELSE.
? outdatum = outdatum * ( -1 ).
? WRITE outdatum TO output1.??????????????????????? "RIGHT-JUSTIFIED.
? CONCATENATE '-' output1 INTO output1.
ENDIF.

CONDENSE output1 NO-GAPS.

WRITE: / output1.

總結(jié)

以上是生活随笔為你收集整理的负数的负号前置显示的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。