22 lines
844 B
Plaintext
22 lines
844 B
Plaintext
100 cls
|
|
110 for i = 1 to 9
|
|
120 contar = 0
|
|
130 read start,fin,inc,cmt$
|
|
140 print cmt$
|
|
150 print " Bucle de ";start;"a ";fin;" en incrementos de ";inc
|
|
160 for vr = start to fin step inc
|
|
170 print " Indice del bucle = ";vr
|
|
180 contar = contar+1
|
|
190 if contar = 10 then
|
|
200 print " Saliendo de un bucle infinito"
|
|
210 goto 240
|
|
220 endif
|
|
230 next vr
|
|
240 print " Bucle terminado" : print : print
|
|
250 next i
|
|
260 end
|
|
270 data -2,2,1,"Normal",-2,2,0,"Zero increment",-2,2,-1,"Increments away from stop value"
|
|
280 data -2,2,10,"First increment is beyond stop value",2,-2,1,"Start more than stop: positive increment"
|
|
290 data 2,2,1,"Start equal stop: positive increment",2,2,-1,"Start equal stop: negative increment"
|
|
300 data 2,2,0,"Start equal stop: zero increment",0,0,0,"Start equal stop equal zero: zero increment"
|