QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: pascal111 on August 25, 2019, 04:18:45 am

Title: Problem with "exit for"
Post by: pascal111 on August 25, 2019, 04:18:45 am

I'm typing a small program with QB45 and I found a problem when I used "exit for" instead of the direct line number in this part of program:

Workable part without "exit for"

Code: QB64: [Select]

1. IF x = 1 THEN
2.         IF NOT (z(UBOUND(z)) = 0) THEN 25
3.         IF (y MOD 2) <> 0 THEN 20
4.         FOR i = 1 TO UBOUND(z)
5.         IF z(i) = y THEN 20
6.         NEXT i
7. ELSE
8.      IF NOT (z(UBOUND(z)) = 0) THEN 25
9.      IF (y MOD 2) = 0 THEN 20
10.      FOR i = 1 TO UBOUND(z)
11.      IF z(i) = y THEN 20
12.      NEXT i
13.      
14.  
15. END IF
16.  

same part with "exit for"

Code: QB64: [Select]

1. IF x = 1 THEN
2.         IF NOT (z(UBOUND(z)) = 0) THEN 25
3.         IF (y MOD 2) <> 0 THEN 20
4.         FOR i = 1 TO UBOUND(z)
5.         IF z(i) = y THEN EXIT FOR
6.         NEXT i
7.         GOTO 20
8. ELSE
9.      IF NOT (z(UBOUND(z)) = 0) THEN 25
10.      IF (y MOD 2) = 0 THEN 20
11.      FOR i = 1 TO UBOUND(z)
12.      IF z(i) = y THEN EXIT FOR
13.      NEXT i
14.      GOTO 20
15. END IF
16.  

the worked program without "exit for":

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. OPTION BASE 1
3. CLS
4.  
5. DIM z(5) AS INTEGER
6. FOR i = 1 TO UBOUND(z)
7. LET z(i) = 0
8. NEXT i
9.  
10. PRINT "Pick a number in your mind where"
11. PRINT "n the number is 10 >= n >= 1"
12. PRINT
13. 10 INPUT "Are you ready (y/n)?", s$
14. IF s$ <> "y" THEN 10
15.  
16. PRINT
17. INPUT "Est-il pair (o/n)?", s$
18. IF s$ = "o" THEN x = 1 ELSE LET x = 0
19.  
20. 20 LET y = INT((11 - 1) * RND + 1)
21. IF x = 1 THEN
22.         IF NOT (z(UBOUND(z)) = 0) THEN 25
23.         IF (y MOD 2) <> 0 THEN 20
24.         FOR i = 1 TO UBOUND(z)
25.         IF z(i) = y THEN 20
26.         NEXT i
27. ELSE
28.      IF NOT (z(UBOUND(z)) = 0) THEN 25
29.      IF (y MOD 2) = 0 THEN 20
30.      FOR i = 1 TO UBOUND(z)
31.      IF z(i) = y THEN 20
32.      NEXT i
33.      
34.  
35. END IF
36.  
37. PRINT
38. PRINT "Est-il "; y; " (o/n)";
39. INPUT s$
40.  
41. IF s$ = "n" THEN
42. FOR i = 1 TO UBOUND(z)
43. IF z(i) = 0 THEN
44. LET z(i) = y
45. EXIT FOR
46. END IF
47. NEXT i
48. GOTO 20
49. ELSE
50. GOTO 30
51. END IF
52.  
53. 25 PRINT
54. PRINT "I told you all possible numbers!!"
55. 30 END
56.  

Title: Re: Problem with "exit for"
Post by: pascal111 on August 25, 2019, 06:56:07 am

I think I discovered the problem, I made an infinite loop without noticing that.

Text Only | Text with Attachments