19 lines
479 B
Plaintext
19 lines
479 B
Plaintext
function trianglevalue(col, row)
|
|
return (row-1)*row\2 + col
|
|
end function
|
|
|
|
subroutine printtriangle(numrows)
|
|
for row = 1 to numrows
|
|
for col = 1 to row-1
|
|
colwidth = length(""+trianglevalue(col, numrows))
|
|
print right(" "*colwidth+trianglevalue(col, row), colwidth);" ";
|
|
next col
|
|
colwidth = length(""+trianglevalue(col, numrows))
|
|
print right(" "*colwidth+trianglevalue(col, row), colwidth)
|
|
next row
|
|
end subroutine
|
|
|
|
call printtriangle(5)
|
|
print
|
|
call printtriangle(14)
|