Qbasic to find prime or composite using Sub

DECLARE SUB PRIME (N)
INPUT "Enter any number"; N
CALL PRIME (N)
END


SUB PRIME (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N; "IS PRIME NUMBER"
ELSE
PRINT N; "IS COMPOSITE NUMBER"
END IF
END SUB

Qbasic to find Factorial using Function

DECLARE FUNCTION Factorial ( N )
CLS
INPUT "Enter any number"; N
PRINT "Factorial ="; Factorial ( N )
END

FUNCTION Factorail ( N )
F = 1
F = F * I
NEXT I
Factorail = F
END FUNCTION

Qbasic to find positive or negative using Sub

DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK (N$)
END


SUB CHECK(N)
IF N > 0 THEN
PRINT "POSITIVE NO."
ELSEIF N  < 0 THEN
PRINT "NEGATIVE NO."
ELSE
PRINT "ZERO"
END IF
END SUB

Qbasic to display 9, 7, 5....1 using Sub

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES ( )
FOR I = 9 TO 1 STEP -2
PRINT I
NEXT I
END SUB

Qbasic to calculate distance travelled using Function

DECLARE FUNCTION DISTANCE ( U, A, T )
CLS
INPUT "Enter initial velocity"; U
INPUT "Enter acceleration"; A
INPUT "Enter time"; T
PRINT " Distance travelled="; DISTANCE ( U, A, T )
END

FUNCTION DISTANCE ( U, A, T )
DISTANCE = U 8 T + 1 / 2 * A * T ^ 2
END FUNCTION

Qbasic to print only vowel from given word using Sub

DECLARE SUB DISPLAY ( N$ )
INPUT " Enter any number"; N$
CALL DISPLAY ( N$ )
END

SUB DISPLAY ( N$ )
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 D$ = D$ + B$
NEXT I
PRINT "Vowel="; D$
END SUB

Qbasic to find Volume of box using Function

DECLARE FUNCTION VOL ( L, B, H )
CLS
INPUT "Enter length"; L
INPUT "Enter breadth"; B
INPUT "Enter height"; H
PRINT "Volume of box"; VOL ( L, B, H )
END

FUNCTION VOL ( L, B, H )
VOL = L * B * H
END FUNCTION