如何创建Pascal？

Question

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

此代码。

将变量INPUTAN定义为整数。将VAR i定义为整数。将变量j定义为整数。将变量a定义为整数。将VAR行定义为INT。将VAR pascal定义为CHAR格式"x(25)“。

设置INPUTAN。A= 1。

重复i =0到INPUTAN: rows =I。显示行。对i重复j=0：

如果j=0或j=i，则执行:a= 1。结束。否则

A=a* (i +1- j) / j。

pascal = 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.