Sunday, 6 May 2012

Sequential Search in Liberty BASIC


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

FoundIt = 0
FOR J = 1 TO MaxSize
  IF FoundIt = 0 THEN
    PRINT "Checking array location "; J
    IF MyArray(J) = FindMe THEN
      FoundIt = 1
    END IF
  END IF
NEXT J

IF FoundIt = 1 THEN
  PRINT "Found it!"
ELSE
  PRINT "The number you want is not in the list."
END IF
END

No comments:

Post a Comment