如何创建 Pascal？

Question

我很难显示所有的输出结果。

此代码。

DEF VAR 输入为整数。 DEF VAR i 作为整数。 DEF VAR j 作为整数。 DEF VAR a 为整数。 DEF VAR 行作为 INT。 DEF VAR pascal AS CHAR FORMAT "x(25)".

设置输入法。一 = 1.

重复 i = 0 到输入：行=我。显示行。重复 j = 0 到 i :

如果 j = 0 或 j = i 则执行：一个 = 1。结尾。其他

a = a * (i + 1 - j) / j.

帕斯卡 = STRING(a).

显示一个。

结束。结束。

Answer 1

DEF VAR INPUTAN AS INTEGER. 
DEF VAR i AS INTEGER. 
DEF VAR j AS INTEGER. 
DEF VAR a AS INTEGER. 
DEF VAR rows AS INT. 
DEF VAR pascal AS CHAR.

SET INPUTAN. 
a = 1.

REPEAT i = 0 TO INPUTAN:
    
 rows = i. 
 /*DISPLAY rows. */
 
 REPEAT j = 0 TO i :

   IF j = 0 OR j = i THEN DO: 
      a = 1. 
   END. 
   ELSE
      a = a * (i + 1 - j) / j.

   IF j = 0 THEN
      pascal = pascal + FILL("   ", INPUTAN - i).
   pascal = pascal + STRING(a) + "   ".

   IF j = i THEN
      pascal = pascal + CHR(13).

 /*  display a.*/

 END. 

END.

MESSAGE pascal
   VIEW-AS ALERT-BOX INFO BUTTONS OK.

如何创建 Pascal？

How to create Pascal?

4gl

progress-4gl

openedge