کامپیوتر پیش گو

ابتدا شما باید دامنه ی عددی را که می خواهید رایانه برای شما حدس بزند وارد کنید
مثلا با وارد کردن عدد 5 کامپیوتر از شما می خواهد که ما بین یک و هفت عددی در ذهنتان اختیار کنید
سپس برنامه 4 عدد برای شما نمایش می دهد و از شما می خواهد که بگویید عدد مورد نظر در داخل این چهار عدد وجود دارد یا خیر با وارد کردن عبارت های n و y می توانید به سوال پاسخ دهید
در انتها کامپیوتر عددی را که انتخاب کرده بودید چاپ خواهد کرد

CLS RANDOMIZE TIMER DO INPUT " Enter a number (n <= 10) : ", n LOOP UNTIL 10 > n PRINT "choose one number betwen 1 and"; 2 ^ n - 1 PRINT "Are you found gest number in list ?" PRINT DIM a(2 ^ (n - 1)), n(n * (2 ^ n - 1)) FOR f = 1 TO n FOR i = 1 TO 2 ^ (n - 1) DO a(i) = INT((RND * (2 ^ n - 1)) + 1) FOR j = 1 TO i IF a(i) = a(j) AND i <> j THEN v = 1: EXIT FOR NEXT IF j = i + 1 THEN v = 0 LOOP UNTIL v = 0 PRINT a(i); NEXT PRINT "", "( Y , N ) : "; DO b$ = INPUT$(1): PRINT b$ LOOP UNTIL b$ = "y" OR b$ = "Y" OR b$ = "n" OR b$ = "N" IF b$ = "y" OR b$ = "Y" THEN FOR i = 1 TO 2 ^ n - 1 FOR j = 1 TO 2 ^ (n - 1) IF a(j) = i THEN z = 1 EXIT FOR END IF z = 0 NEXT j IF z = 0 THEN m = m + 1 n(m) = i END IF NEXT i ELSE FOR i = 1 TO 2 ^ (n - 1) m = m + 1 n(m) = a(i) NEXT END IF NEXT f PRINT FOR i = 1 TO 2 ^ n - 1 FOR j = 1 TO m IF i = n(j) THEN c = 1: EXIT FOR c = 0 NEXT IF c = 0 THEN PRINT i: fals = 1 NEXT IF fals = 0 THEN PRINT "you answer fals me !!" END