Question

Using QBasic Programming

Write a program to dimension an array with the statement DIM states$(1 TO 50) and maintain a list of certain US States. The list of states should always be in alphabetical order and occupy consecutive elements of the array. The options for this menu-driven program should be as follows:

 (a) Request a state as input and insert it into its proper position in the array. (If the state is already in the array, so report)

 (b) Request a state as input and delete it from the array. (If the state is not in the array, so report)

 (c) Display the states in the array

 (d) Quit

Answer 1

Code:

DIM STATE$(50)

DIM STSES2$(50)

D0

PRINT("Select the option")

PRINT(" 1. Insert a State " , "2. Delete a State" ,"3. Display a State" , "4.Quit")

IF OPTION=1 THEN

PRINT(" Enter a State ")

INPUT NEWSTATE$

P=1

I=0

D=0

FOR A= 1 TO 50

IF STATE $(A) >NEWSTATE AND I=0 THEN

IF STATE (A)= NEW STATE THEN D=1

STATE 2$(P)=NEW STATE $

STATE 2$(P+1)=STSTE$(A)

P=P+2

I=1

ELSE

STATE 2$(P) = STATE $(A)

P=P+1

END IF

NEXT A

IF(D<>1) THEN

FOR A= 1 TO 50

STATE $(A)=STATE$(A)

NEXT A

ELSE

PRINT("This State is already exit")

ENDIF

ENDIF

IF OPTION=2 THEN

PRINT("Enter a State ")

INPUT NEW STATE$

F=0

P=1

FOR A=1 TO 50

IF STATE $(A)<> NEW STATE THEN

STATE 2$(P) = STATE $(A)

P=P+1

F=1

END IF

NEXT A

IF F=0 THEN

PRINT ("State is not found")

END IF

IF OPTION=3 THEN

FOR A =1 TO 50 STEP 5

PRINT STATE $(A);STATE $(A+1); STATE $(A+2); STATE$(A+3): STATE$(A+4)

NEXT A

ENDIF

IF OPTION=4 THEN CONTINUE=1

LOOP

WHILE CONTINUE=0

PRINT" "