主题:图形题目
rightnow
[专家分:0] 发布于 2010-11-27 17:46:00
谁会编杨辉三角?
回复列表 (共6个回复)
4 楼
verysmartboy [专家分:1260] 发布于 2010-11-27 17:55:00
CLS
DO
INPUT n
LOOP UNTIL n < 14
FOR i = 0 TO n - 1
a = 1
FOR j = 1 TO i + 1
PRINT TAB(32 - i * 3 + j * 6); a;
a = a * (i - j + 1) / j
NEXT j
PRINT
NEXT i
END
我来回复