18 lines
409 B
Text
18 lines
409 B
Text
program floyd_triangle;
|
|
floyd(5);
|
|
print;
|
|
floyd(14);
|
|
print;
|
|
|
|
proc floyd(rows);
|
|
maxno := rows * (rows+1) div 2;
|
|
n := 1;
|
|
loop for row in [1..rows] do
|
|
loop for col in [1..row] do
|
|
nprint(lpad(str n, 1 + #str (maxno - rows + col)));
|
|
n +:=1;
|
|
end loop;
|
|
print;
|
|
end loop;
|
|
end proc;
|
|
end program;
|