18 lines
284 B
Text
18 lines
284 B
Text
void local fn FloydsTriangle( rows as int )
|
|
int col, row, num = 1
|
|
|
|
printf @"%d rows:", rows
|
|
for row = 1 to rows
|
|
for col = 1 to row
|
|
printf @"%4d\b", num
|
|
num++
|
|
next
|
|
print
|
|
next
|
|
print
|
|
end fn
|
|
|
|
fn FloydsTriangle( 5 )
|
|
fn FloydsTriangle( 14 )
|
|
|
|
HandleEvents
|