23 lines
384 B
Plaintext
23 lines
384 B
Plaintext
100 cls
|
|
110 dim a(13)
|
|
120 for i = 0 to ubound(a) : a(i) = 0 : next i
|
|
130 n = 0
|
|
140 a(0) = 1
|
|
150 displayrow()
|
|
160 while n <= ubound(a)
|
|
170 a(n) = a(0)
|
|
180 j = n
|
|
190 while j >= 1
|
|
200 jm1 = j-1
|
|
210 a(jm1) = a(jm1)+a(j)
|
|
220 j = j-1
|
|
230 wend
|
|
240 n = n+1
|
|
250 displayrow()
|
|
260 wend
|
|
270 end
|
|
280 sub displayrow()
|
|
290 print "B(";
|
|
300 print right$(str$(n),2)") = " a(0)
|
|
310 return
|