25 lines
417 B
Plaintext
25 lines
417 B
Plaintext
10 INPUT "How many rows? ";n
|
|
15 IF n<1 THEN GO TO 210
|
|
20 DIM c(n)
|
|
25 DIM d(n)
|
|
30 LET c(1)=1
|
|
35 LET d(1)=1
|
|
40 FOR r=1 TO n
|
|
50 FOR i=1 TO (n-r)
|
|
60 PRINT " ";
|
|
70 NEXT i
|
|
80 FOR i=1 TO r
|
|
90 PRINT c(i);" ";
|
|
100 NEXT i
|
|
110 PRINT
|
|
120 IF r>=n THEN GO TO 140
|
|
130 LET d(r+1)=1
|
|
140 FOR i=2 TO r
|
|
150 LET d(i)=c(i-1)+c(i)
|
|
160 NEXT i
|
|
165 IF r>=n THEN GO TO 200
|
|
170 FOR i=1 TO r+1
|
|
180 LET c(i)=d(i)
|
|
190 NEXT i
|
|
200 NEXT r
|