Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - pascal111

Pages: [1]
1
QB64 Discussion / Re: Problem with "exit for"
« on: August 25, 2019, 06:56:07 am »
I think I discovered the problem, I made an infinite loop without noticing that.

2
QB64 Discussion / Problem with "exit for"
« 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
  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.  
  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
  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
  16.  

the worked program without "exit for":
Code: QB64: [Select]
  4.  
  6. FOR i = 1 TO UBOUND(z)
  7. LET z(i) = 0
  9.  
  10. PRINT "Pick a number in your mind where"
  11. PRINT "n the number is 10 >= n >= 1"
  13. 10 INPUT "Are you ready (y/n)?", s$
  14. IF s$ <> "y" THEN 10
  15.  
  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
  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.  
  36.  
  38. PRINT "Est-il "; y; " (o/n)";
  40.  
  41. IF s$ = "n" THEN
  42. FOR i = 1 TO UBOUND(z)
  43. IF z(i) = 0 THEN
  44. LET z(i) = y
  48. GOTO 20
  50. GOTO 30
  52.  
  54. PRINT "I told you all possible numbers!!"
  55. 30 END
  56.  

Pages: [1]