19 lines
307 B
Text
19 lines
307 B
Text
input "How much rows would you like? "; n
|
|
dim a$(n)
|
|
|
|
for i= 0 to n
|
|
c = 1
|
|
o$ =""
|
|
for k =0 to i
|
|
o$ =o$ ; c; " "
|
|
c =c *(i-k)/(k+1)
|
|
next k
|
|
a$(i)=o$
|
|
next i
|
|
|
|
maxLen = len(a$(n))
|
|
for i= 0 to n
|
|
print space$((maxLen-len(a$(i)))/2);a$(i)
|
|
next i
|
|
|
|
end
|