13 lines
334 B
Text
13 lines
334 B
Text
nrows% = 10
|
|
|
|
colwidth% = 4
|
|
@% = colwidth% : REM Set column width
|
|
FOR row% = 1 TO nrows%
|
|
PRINT SPC(colwidth%*(nrows% - row%)/2);
|
|
acc% = 1
|
|
FOR element% = 1 TO row%
|
|
PRINT acc%;
|
|
acc% = acc% * (row% - element%) / element% + 0.5
|
|
NEXT
|
|
PRINT
|
|
NEXT row%
|