问题描述
此代码。
DEF VAR INPUTAN 作为整数。 DEF VAR i 作为整数。 DEF VAR j 作为整数。 DEF VAR a 作为整数。 DEF VAR 行作为 INT。 DEF VAR pascal AS CHAR FORMAT "x(25)".
设置输入。 a = 1。
对 INPUTAN 重复 i = 0: 行 = i。 显示行。 重复 j = 0 到 i :
如果 j = 0 或 j = i 那么做: 一 = 1。 结尾。 其他
a = a * (i + 1 - j) / j。
pascal = STRING(a).
结束。 结束。
解决方法
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.