21 lines
463 B
Text
21 lines
463 B
Text
|
SUB FloydTriangle (fila)
|
||
|
|
DIM numColum(fila)
|
||
|
|
FOR colum = 1 TO fila
|
||
|
|
numColum(colum) = LEN(STR$(colum + fila * (fila - 1) / 2))
|
||
|
|
NEXT colum
|
||
|
|
|
||
|
|
PRINT "output for "; STR$(fila): PRINT
|
||
|
|
thisNum = 1
|
||
|
|
FOR r = 1 TO fila
|
||
|
|
FOR colum = 1 TO r
|
||
|
|
PRINT RIGHT$(" " + STR$(thisNum), numColum(colum)); " ";
|
||
|
|
thisNum = thisNum + 1
|
||
|
|
NEXT colum
|
||
|
|
PRINT
|
||
|
|
NEXT
|
||
|
|
END SUB
|
||
|
|
|
||
|
|
FloydTriangle (5)
|
||
|
|
PRINT
|
||
|
|
FloydTriangle (14)
|