21 lines
817 B
Text
21 lines
817 B
Text
data -2,2,1,"Normal",-2,2,0,"Zero increment",-2,2,-1,"Increments away from stop value"
|
|
data -2,2,10,"First increment is beyond stop value",2,-2,1,"Start more than stop: positive increment"
|
|
data 2,2,1,"Start equal stop: positive increment",2,2,-1,"Start equal stop: negative increment"
|
|
data 2,2,0,"Start equal stop: zero increment",0,0,0,"Start equal stop equal zero: zero increment"
|
|
|
|
for i = 1 to 9
|
|
contar = 0
|
|
read start, fin, inc, cmt$
|
|
print cmt$
|
|
print " Bucle de ", start, " a ", fin, " en incrementos de ", inc
|
|
for vr = start to fin step inc
|
|
print " Indice del bucle = ", vr
|
|
contar = contar + 1
|
|
if contar = 10 then
|
|
print " Saliendo de un bucle infinito"
|
|
break
|
|
endif
|
|
next vr
|
|
print " Bucle terminado\n\n"
|
|
next i
|
|
end
|