25 lines
364 B
Plaintext
25 lines
364 B
Plaintext
10 INPUT "HOW MANY";N
|
|
20 IF N<1 THEN END
|
|
30 DIM C(N)
|
|
40 DIM D(N)
|
|
50 LET C(1)=1
|
|
60 LET D(1)=1
|
|
70 FOR J=1 TO N
|
|
80 FOR I=1 TO N-J+1
|
|
90 PRINT " ";
|
|
100 NEXT I
|
|
110 FOR I=1 TO J
|
|
120 PRINT C(I)" ";
|
|
130 NEXT I
|
|
140 PRINT
|
|
150 IF J=N THEN END
|
|
160 C(J+1)=1
|
|
170 D(J+1)=1
|
|
180 FOR I=1 TO J-1
|
|
190 D(I+1)=C(I)+C(I+1)
|
|
200 NEXT I
|
|
210 FOR I=1 TO J
|
|
220 C(I)=D(I)
|
|
230 NEXT I
|
|
240 NEXT J
|