18 lines
455 B
Text
18 lines
455 B
Text
HOW TO RETURN width n:
|
|
SELECT:
|
|
n<10: RETURN 1
|
|
ELSE: RETURN 1 + width floor (n/10)
|
|
|
|
HOW TO DISPLAY A FLOYD TRIANGLE WITH lines LINES:
|
|
PUT lines * (lines+1)/2 IN maxno
|
|
PUT 1 IN n
|
|
FOR line IN {1..lines}:
|
|
FOR col IN {1..line}:
|
|
WRITE n >> (1 + width (maxno - lines + col))
|
|
PUT n+1 IN n
|
|
WRITE /
|
|
|
|
DISPLAY A FLOYD TRIANGLE WITH 5 LINES
|
|
WRITE /
|
|
DISPLAY A FLOYD TRIANGLE WITH 14 LINES
|
|
WRITE /
|