QBASIC PROGRAMS

                                                        QBASIC  PROGRAMS 

1.INPUT 15 NUMBERS AND PRINT THEM WITH THEIR SUM.


REM
CLS
DIM N(15)
FOR I=1 TO 15
INPUT"ENTER THE NUMBERS";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 THE NUMBER";N(I)
NEXT I
PRINT"THE NUMBERS IN REVERSED FORM ARE";
FOR J=20 TO 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 THE NAME";N$(I)
NEXT I
PRINT"THE NAMES WHOSE STARTING AND NDING 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" 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+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.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"
ELSE IF P(I)>60 AND P(I)<80 THEN
D(I)="FIRST DIVISION"
ELSE IF P(I)>=50 AND P(I)<60 THEN
D(I)="SECOND DIVISION"
ELSE IF 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

12.INPUT 10 DIFFERENT NAMES AND AGE OF STUDENT.AFTER THAT THE USER SHOULD ASK THE USER TO INPUT NAME TO SEARCH DATA.IF THE NAME IS NOT 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