Floyd's triangle: Difference between revisions
Content added Content deleted
m (→{{header|AppleScript}}: →Straightforward: Minor simplification.) |
(Floyd's triangle en QBasic and Yabasic) |
||
Line 1,402: | Line 1,402: | ||
79 80 81 82 83 84 85 86 87 88 89 90 91 |
79 80 81 82 83 84 85 86 87 88 89 90 91 |
||
92 93 94 95 96 97 98 99 100 101 102 103 104 105</pre> |
92 93 94 95 96 97 98 99 100 101 102 103 104 105</pre> |
||
==={{header|BASIC256}}=== |
==={{header|BASIC256}}=== |
||
{{works with|BASIC256|2.0.0.11}} |
{{works with|BASIC256|2.0.0.11}} |
||
Line 1,447: | Line 1,448: | ||
92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
||
</pre> |
</pre> |
||
==={{header|BBC BASIC}}=== |
==={{header|BBC BASIC}}=== |
||
<lang bbcbasic> n = 14 |
<lang bbcbasic> n = 14 |
||
Line 1,589: | Line 1,591: | ||
79 80 81 82 83 84 85 86 87 88 89 90 91 |
79 80 81 82 83 84 85 86 87 88 89 90 91 |
||
92 93 94 95 96 97 98 99 100 101 102 103 104 105</pre> |
92 93 94 95 96 97 98 99 100 101 102 103 104 105</pre> |
||
==={{header|QBasic}}=== |
|||
<lang QBasic>SUB FloydTriangle (fila) |
|||
DIM numColum(fila) |
|||
FOR colum = 1 TO fila |
|||
numColum(colum) = LEN(STR$(colum + fila * (fila - 1) / 2)) |
|||
NEXT colum |
|||
PRINT "output for "; STR$(fila): PRINT |
|||
thisNum = 1 |
|||
FOR r = 1 TO fila |
|||
FOR colum = 1 TO r |
|||
PRINT RIGHT$(" " + STR$(thisNum), numColum(colum)); " "; |
|||
thisNum = thisNum + 1 |
|||
NEXT colum |
|||
PRINT |
|||
NEXT |
|||
END SUB |
|||
FloydTriangle (5) |
|||
PRINT |
|||
FloydTriangle (14)</lang> |
|||
==={{header|Yabasic}}=== |
|||
<lang freebasic>sub FloydTriangle (fila) |
|||
dim numColum(fila) |
|||
for colum = 1 to fila |
|||
numColum(colum) = len(str$(colum + fila * (fila - 1) / 2)) |
|||
next colum |
|||
print "output for ", str$(fila), "\n" |
|||
thisNum = 1 |
|||
for r = 1 to fila |
|||
for colum = 1 to r |
|||
print right$(" " + str$(thisNum), numColum(colum)), " "; |
|||
thisNum = thisNum + 1 |
|||
next colum |
|||
print |
|||
next |
|||
end sub |
|||
FloydTriangle (5) |
|||
print |
|||
FloydTriangle (14)</lang> |
|||
=={{header|Batch File}}== |
=={{header|Batch File}}== |