19 lines
284 B
Text
19 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
|