| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1794/Archive/Examples/ |
Upload File : |
MaxSize = 5
REDIM MyArray(MaxSize)
MyArray(1) = INT(RND(1) * 10) + 1
PRINT MyArray(1); SPACE$(1);
FOR I = 2 TO MaxSize
MyArray(I) = MyArray(I - 1) + INT(RND(1) * 10) + 1
PRINT MyArray(I); SPACE$(1);
NEXT I
PRINT
INPUT "Which number do you want to find: "; FindMe
Left = 1
Right = MaxSize
Time2Stop = 0
WHILE Time2Stop = 0
Half = INT((Left + Right) / 2)
IF FindMe < MyArray(Half) THEN
Right = Half - 1
ELSE
Left = Half + 1
END IF
IF (FindMe = MyArray(Half) OR Left > Right) THEN
Time2Stop = 1
END IF
WEND
IF FindMe = MyArray(Half) THEN
PRINT "Found it in location "; Half
ELSE
PRINT "The number you want is not in the list."
END IF
END