16 lines
387 B
Text
16 lines
387 B
Text
DIM i AS Integer
|
|
DIM row AS Integer
|
|
DIM nrows AS Integer
|
|
DIM values(100) AS Integer
|
|
|
|
INPUT "Number of rows: "; nrows
|
|
values(1) = 1
|
|
PRINT TAB((nrows)*3);" 1"
|
|
FOR row = 2 TO nrows
|
|
PRINT TAB((nrows-row)*3+1);
|
|
FOR i = row TO 1 STEP -1
|
|
values(i) = values(i) + values(i-1)
|
|
PRINT USING "##### "; values(i);
|
|
NEXT i
|
|
PRINT
|
|
NEXT row
|