12 lines
357 B
Plaintext
12 lines
357 B
Plaintext
100 :
|
|
110 REM FLOYD'S TRIANGLE
|
|
120 :
|
|
130 DEF FN Q(A) = INT ( LOG (A) / LOG (10)) + 1
|
|
140 N = 14
|
|
150 DIM P(N): P(0) = - 1: FOR J = 1 TO N: I = (N * N - N) / 2 + J
|
|
160 P(J) = P(J - 1) + FN Q(I) + 1: NEXT J
|
|
200 FOR R = 1 TO N: FOR C = 1 TO R
|
|
210 NR = NR + 1:COL = P(C) - ( FN Q(NR) - 1)
|
|
220 HTAB COL: PRINT NR;: NEXT C
|
|
230 PRINT : NEXT R
|