如何创建帕斯卡？

Question

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

这段代码。

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

设置输入。 a = 1。

重复 i = 0 到输入： 行 = 一世。 显示行。 重复 j = 0 到 i ：

如果 j = 0 或 j = i 那么做： a = 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.