12 lines
291 B
Text
12 lines
291 B
Text
DEFINT values(100) = {0,1}
|
|
|
|
INPUT "Number of rows: "; nrows
|
|
PRINT SPACE$((nrows)*3);" 1"
|
|
FOR row = 2 TO nrows
|
|
PRINT SPACE$((nrows-row)*3+1);
|
|
FOR i = row TO 1 STEP -1
|
|
values(i) = values(i) + values(i-1)
|
|
PRINT FORMAT$("%5d ", values(i));
|
|
NEXT i
|
|
PRINT
|
|
NEXT row
|