Q BASIC PROGRAM TO PRINT 1,1,2,3,5,8........UP TO TEN TERM. SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES ()
A=1
B=1
FOR I = 1 TO 5
PRINT A
PRINT B
A=A+B
B=A+B
NEXT I
END SUB

Q BASIC PROGRAM TO PRINT NATURAL NUMBERS FROM 1 TO 5. SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I=1 TO 5
PRINT I
NEXT I
END SUB

Q BASIC PROGRAM TO FIND SIMPLE INTEREST. FUNCTION

DECLARE FUNCTION SI(P,T,R)
CLS
INPUT "ENTER PRINCIPLE";P
INPUT "ENTER TIME";T
INPUT"ENTER RATE";R
PRINT "SIMPLE INTEREST =";SI(P,T,R)
END

FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION

QBASIC PROGRAM TO CONVERT TEMPERATURE IN CELSIUS TO FAHRENHEIT. FUNCTION

DECLARE FUNCTION CON(C)
CLS
INPUT "ENTER TEMPERATURE IN CELSIUS";C
PRINT "TEMPERATURE IN FAHRENHEIT ";CON(C)
END

FUNCTION CON(C)
CON =9*C/5+32
ENS FUNCTION

QBASIC PROGRAM TO FIND SUM OF DIGITS. SUB

DECLARE SUB SUM(N)
CLS
INPUT "ENTER ANY NUMBER";N
CALL SUM(N)
END

SUB SUM(N)
S=0
WHILE N<>0
R=N MOD 10
S=S+R
N=N\10
NEST I
PRINT "SUM OF DIGITS=";S
END SUB

QBasic program to count total no of consonant in given word. FUNCTION

DECLARE FUNCTION COUNT(N$)

CLS

INPUT "ENTER ANY STRING";N$

PRINT"TOTAL NO OF CONSONANT IS";COUNT(N$)

END

FUNCTION COUNT(N$)
C=0

FOR I =1 TO LEN(N$)

B$=MID$(N$,I,1)

C$=UCASE$(B$)

IF C$<>"A" OR C$<>"E" OR C$<>"I" OR C$<>"O" OR C$<>"U" THEN C<>C+1

NEXT I 
COUNT=C

END SUB

QBASIC PROGRAM TO PRINT FIRST 10 ODD NUMBERS. SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
FOR I=1 TO 10
PRINT A
A=A+2
NEXT I
END SUB