如何解决如何创建帕斯卡?
此代码。
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.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。