LOGO语言编程：三角形数字阵列
例五．N阶右转倒计数正三角形数字阵列
to
Asjx6 :n
make "h 1
make "qm 0
;在所有数字前面的数字个数为0个
for[i 1 :n ][
make "qm
:qm+:i-1
;计算当前行前面数字的个数
make "s
(1+:n)*:n/2-:qm
;计算当前行左边首个数字的值
for[hh 1
:h][
;在当前行的左边预留空格
(type char 32 char 32 char 32)]
make "h
:h+1
make "cha
:i+1
;计算当前行头两个数字的差
for[j :n-:i+1 1
-1][
type :s
ifelse :s<10[(type char 32 char 32)]
[type char 32]
make "s :s-:cha
make "cha :cha+1
]pr[]
]
end
输出实例：
例六．“逢5数”N阶正三角形数字阵列
to
Asjx8 :n
make "w
count(5*(1+:n)*:n/2)
make "s 1
for[i :n 1 -1][
for[j :i 1
-1][
type :s*5
make "ke :w+1-count(:s*5)
for[k 1 :ke][type char 32]
make "s :s+1
]pr[]
]
end
输出实例：
例七．逆序平方数N阶正三角形数字阵列
to
Asjx9 :n
make "ss
(1+:n)*:n/2
make "zd :ss*:ss
make "w count
:zd
make "s :ss
for[i :n 1 -1][
for[j :i 1
-1][
type :s*:s
make "ke :w+1-count(:s*:s)
for[k 1 :ke][type char 32]
make "s
:s-1
]pr[]
]
end
输出实例：
还能想出很多其他构成“三角形数字阵列”的模式来
加载中，请稍候......
加载中…
(2024-05-10 11:05:43)