如何使用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.