【程序说明】程序功能是若输入的N值为5,则输出结果如下:
1
1 1
1 2 1 1 3 3
1 1 4 6 4 1 【程序】 SET
TALK OFF CLEAR INPUT“N=”TO N DIME A(N,N) P=N DO WHILE
N>0 A(N,N)=1 {{U}} (5) {{/U}}
N=N-1 ENDDO FOR I=3 TO{{U}} (6) {{/U}} FOR
J=2 TO I-1 A(I,J)={{U}} (7)
{{/U}} ENDFOR ENDFOR FOR I=1 TO P ?
SPACE(3*(P-I+1)) FOR J=1 TO I ??
STR(A(I,J),3) {{U}} (8) {{/U}} ? ENDFOR SET
TALK ON