qbasic

QBASIC PROGRAMMING

1.       Input 15 numbers and print them with their sum.

REM

CLS

DIM N(15)

FOR I = 1 TO 15

INPUT “ENTER A NUMBER”; N(I)

S=S+N(I)

NEXT I

PRINT “THE ENTERED NUMBERS ARE” :

FOR J = 1 TO 15

PRINT N(J)

NEXT J

PRINT “THE SUM IS”;S

END

 

2.       Input 20 numbers and print them in reverse order.

REM

CLS

DIM N(20)

FOR I = 1 TO 20

INPUT “ENTER A NUMBER”; N(I)

NEXT I

PRINT “THE NUMBERS IN REVERSED FORM ARE” :

FOR J = 20 TO 1 STEP -1

PRINT N(J)

NEXT J

END

 

3.       Input 25 numbers and print only even numbers with their sum.

REM

CLS

DIM N(25)

FOR I = 1 TO 25

INPUT “ENTER A NUMBER”; N(I)

NEXT I

PRINT “THE EVEN NUMBERS ARE” :

FOR J = 1 TO 25

IF N(J) MOD 2 = 0 THEN

S = S + N(J)

PRINT N(J),

END IF

NEXT J

PRINT “THE SUM IS”; S

END

 

4.       Input 20 numbers and print only even numbers.

REM

CLS

DIM N(20)

FOR I = 1 TO 20

INPUT “ENTER A NUMBER”; N(I)

NEXT I

PRINT “THE EVEN NUMBERS ARE” :

FOR J = 1 TO 20

IF N(J) MOD 2 = 0 THEN PRINT N(J)

NEXT J

END

 

5.       Input 15 numbers and print only positive numbers from the numbers given below.

10,20,-30,-40,19,45,32,-98,-78,34,-53,12,-9,-7,-8

REM

CLS

DIM N(15)

FOR I = 1 TO 15

READ N(I)

NEXT I

DATA 10,20,-30,-40,19

DATA 45,32,-98,-78,34

DATA -53,12,-9,-7,-8

PRINT “THE POSITIVE NUMBERS ARE” :

FOR J = 1 TO 15

IF N(J) > 0 THEN PRINT N(J)

NEXT J

END

 

6.       Input 10 different names and display all whose name starts with “S”.

REM

CLS

DIM N$(10)

FOR I = 1 TO 10

INPUT “ENTER A NAME”; N$(I)

NEXT I

PRINT “THE NAMES STARTING WITH “S” ARE” :

FOR J = 1 TO 10

A$ = UCASE$(LEFT$(N$(I),1))

IF A$ = “S” THEN PRINT N$(J)

NEXT J

END

 

 

 

 

7.       Input 15 different names and display only those names whose starting and ending characters are vowels.

REM

CLS

DIM N$(15)

FOR I = 1 TO 15

INPUT “ENTER A NAME”; N$(I)

NEXT I

PRINT “THE NAMES WHOSE STARTING AND ENDING CHARACTERS ARE VOWELS ARE” :

FOR J = 1 TO 15

A$ = UCASE$(LEFT$(N$(I),1))

B$ = UCASE$(RIGHT$(N$(I),1))

IF A$ = “A” OR A$ = “E” OR A$ = “I” OR A$ = “O” OR A$ = “U” AND B$ = “A” OR B$ = “E” OR B$ = “I” OR B$ = “O” OR B$ = “U” THEN

 PRINT N$(J)

END IF

NEXT J

END

 

8.       Input 10 different numbers and display in ascending order.

REM

CLS

DIM N(10)

FOR I = 1 TO 10

INPUT “ENTER A NUMBER”; N(I)

NEXT I

FOR K = 1 TO 10

FOR J = 1 TO 10 – K

IF N(J) > N(J+1) THEN SWAP N(J) , N(J+1)

NEXT J

NEXT K

CLS

PRINT “THE NUMBERS IN ASCENDING ORDER ARE” :

FOR J = 1 TO 10

PRINT N(J)

NEXT J

END

 

9.       Input 10 different names and display in descending order.

REM

CLS

DIM N(10) AS STRING

FOR I = 1 TO 10

INPUT “ENTER THE NAME”; N(I)

NEXT I

FOR K = 1 TO 10

FOR J = 1 TO 10 – K

IF LEN(N(J)) <LEN( N(J+1)) THEN SWAP N(J) , N(J+1)

NEXT J

NEXT K

CLS

PRINT “THE NAMES IN DESCENDING ORDER ARE” :

FOR J = 1 TO 10

PRINT N(J)

NEXT J

END

 

10.   Input 15 different names of capital and country and display in ascending order according to country.

REM

CLS

DIM CN(15) AS STRING

DIM CAN(15) AS STRING

FOR I = 1 TO 15

INPUT “ENTER THE COUNTRY NAME”; CN(I)

INPUT “ENTER THE CAPITAL NAME”; CAN(I)

NEXT I

FOR K = 1 TO 10

FOR J = 1 TO 10 – K

IF LEN(CN(J)) >LEN( CN(J+1)) THEN

SWAP CN(J) , CN(J+1)

SWAP CAN(J) , CAN(J+1)

NEXT J

NEXT K

CLS

PRINT “THE NAMES IN ASCENDING ORDER ARE” :

PRINT “COUNTRY’S NAME”, “CAPITAL NAME”

FOR J = 1 TO 10

PRINT CN(J), CAN(J)

NEXT J

END

 

11.   Input 10 different names and age of students. After that the user should ask the user to input name to search data. If the name is found print the name and age of the student otherwise print “DATA NOT FOUND”.

 

REM

CLS

DIM N(10) AS STRING

DIM A(10)

FOR I = 1 TO 10)

INPUT “ENTER THE NAME”; N(I)

INPUT “ENTER HIS/HER AGE”; A(I)

NEXT I

INPUT “ENTER THE NAME TO SEARCH DATA”; S$

FLAG = 0

FOR I = 1 TO 10

IF UCASE$(S$) = UCASE$(N(I))

PRINT N(I),A(I)

FLAG = 1

END IF

NEXT I

IF FLAG = 0 THEN

PRINT “DATA NOT FOUND”

END IF

END

 

12.   Store names and marks of 15 different students and print their name, marks and division using the following condition:

Percentage                                                         Division

>=80 AND <=100                                             Distinction

>=60 AND <80                                                  First Division

>=50 AND <60                                                  Second Division

>=40 AND <50                                                  Third Division

<40                                                                         Fail

 

REM

CLS

DIM N(15) AS STRING

DIM P(15)

DIM D(15) AS STRING

FOR I = 1 TO 15

INPUT “ENTER THE NAME”; N(I)

INPUT “ENTER HIS/HER PERCENTAGE”; M(I)

NEXT I

PRINT “NAME”, “PERCENTAGE”, “DIVISION”

FOR I = 1 TO 15

IF P(I) >=80 AND P(I) <=100 THEN

D(I) = “DISTINCTION”

ELSEIF P(I) >=60 AND P(I) <80 THEN

D(I) = “FIRST DIVISION”

ELSEIF P(I) >=50 AND P(I) <60 THEN

D(I) = “SECOND DIVISION”

ELSEIF P(I) >=40 AND P(I) <50 THEN

D(I) = “THIRD DIVISION”

ELSE

D(I) = “FAIL”

END IF

PRINT N(I), P(I), D(I)

NEXT I

END