clear
for i = 1 to 7
s = abs(4 - i)
for j = 1 to s
?? ' '
endfor
for j = 1 to 4 - s
?? str(j, 1)
endfor
for j = 3 - s to 1 step -1
?? str(j, 1)
endfor
?
endfor
第二种在循环体内用两个循环分别输出空格和全部数字。
clear
for i = 1 to 7
s = abs(4 - i)
for j = 1 to s
?? ' '
endfor
s = 4 - s
for j = 1 to s * 2 - 1
?? str(s - abs(s - j), 1)
endfor
?
endfor