如何使用progress-4gl顯示三角形時的數字-gl

Question

如何使用progress4gl框架以三角形圖案顯示一個或多個數字？ 請幫助我。

E.g.

  1   OR    1 
     1 1 1     1 2 3 
     1 1 1 1 1     1 2 3 4 5 
    1 1 1 1 1 1 1.   1 2 3 4 5 6 7 

Answer 1

真的courious有關使用情況....但：

DEFINE VARIABLE i AS INTEGER NO-UNDO . 

DO i = 1 TO 5: 

    DISPLAY FILL (" ", (6 - i) * 2) + FILL ("1 ", i * 2 - 1) FORMAT "x(40)" WITH DOWN STREAM-IO. 
    DOWN 1. 

END. 

靠攏。

Answer 2

DEFINE VARIABLE i  AS INTEGER NO-UNDO . 
DEFINE VARIABLE j  AS INTEGER NO-UNDO . 

DEFINE VARIABLE cLine AS CHARACTER FORMAT "x(40)" NO-UNDO. 

DO i = 1 TO 5: 

    cLine = FILL (" ", (6 - i)) . 

    DO j = 1 TO i: 
     cLine = cLine + STRING (j * 2 - 1) + " ". 
    END. 

    DISPLAY cLine WITH DOWN STREAM-IO. 
    DOWN 1. 

END.