17 lines
405 B
Text
17 lines
405 B
Text
procedure Floyds_triangle(integer n)
|
|
sequence widths = repeat(0,n)
|
|
integer k = (n * (n-1))/2
|
|
for i=1 to n do
|
|
widths[i] = sprintf("%%%dd",length(sprintf("%d",i+k))+1)
|
|
end for
|
|
k = 1
|
|
for i=1 to n do
|
|
for j=1 to i do
|
|
printf(1,widths[j],k)
|
|
k += 1
|
|
end for
|
|
printf(1,"\n")
|
|
end for
|
|
end procedure
|
|
Floyds_triangle(5)
|
|
Floyds_triangle(14)
|