Loops/Wrong ranges: Difference between revisions
Loops/Wrong ranges en BASIC256
ReeceGoding (talk | contribs) m (→{{header|R}}: Syntax highlighting.) |
(Loops/Wrong ranges en BASIC256) |
||
Line 250:
0, 0, 0,Start equal stop equal zero: zero increment : 0 0 0 0 0 0 0 0 0 0
</pre>
=={{header|BASIC256}}==
{{trans|Yabasic}}
<lang freebasic>arraybase 1
dim start(9) : dim fin(9) : dim inc(9) : dim cmt$(9)
start[1] = -2 : fin[1] = 2 : inc[1] = 1 : cmt$[1] = "Normal"
start[2] = -2 : fin[2] = 2 : inc[2] = 0 : cmt$[2] = "Zero increment"
start[3] = -2 : fin[3] = 2 : inc[3] = -1 : cmt$[3] = "Increments away from stop value"
start[4] = -2 : fin[4] = 2 : inc[4] = 10 : cmt$[4] = "First increment is beyond stop value"
start[5] = 2 : fin[5] = -2 : inc[5] = 1 : cmt$[5] = "Start more than stop: positive increment"
start[6] = 2 : fin[6] = 2 : inc[6] = 1 : cmt$[6] = "Start equal stop: positive increment"
start[7] = 2 : fin[7] = 2 : inc[7] = -1 : cmt$[7] = "Start equal stop: negative increment"
start[8] = 2 : fin[8] = 2 : inc[8] = 0 : cmt$[8] = "Start equal stop: zero increment"
start[9] = 0 : fin[9] = 0 : inc[9] = 0 : cmt$[9] = "Start equal stop equal zero: zero increment"
for i = 1 to 9
contar = 0
print cmt$[i]
print " Bucle de "; start[i]; " a "; fin[i]; " en incrementos de "; inc[i]
for vr = start[i] to fin[i] step inc[i]
print " Índice del bucle = "; vr
contar = contar + 1
if contar = 10 then
print " Saliendo de un bucle infinito"
exit for
endif
next vr
print " Bucle terminado" & chr(10) & chr(10)
next i
end</lang>
{{out}}
<pre>Igual que la entrada de Yabasic.</pre>
=={{header|C}}==
| |||