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
