Q BASIC PROGRAM:TO DISPLAY50,42,35,29,24....UP TO 10TH TERM

Q BASIC PROGRAM TO DISPLAY 50,42,35,29,24....UP TO 10 TERM.SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=50
B=8
FOR I =1 TO 10
PRINT A
A=A-B
B=B-1
NEXT I
END SUB

Q BASIC PROGRAM: PALINDROME WORD

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN WORD IS PALINDROME OR NOT. FUNCTION

DECLARE FUNCTION PAL$(N$)
CLS
INPUT "ENTER ANY WORD";N$
P=PAL$(N$)
P=N THEN
PRINT "PALINDROME WORD"
ELSE
PRINT "NOT PALINDROME NUMBER"
END IF
END

FUNCTION PAL$(N$)
FOR I = LEN(N$) TO 1 STEP -1
B$=MID$(N$,I,1)
C$=C$+B$
NEXT I
PAL$=C$
END FUNCTION

Q BASIC PROGRAM:PRIME OR COMPOSITE

Q BASIC PROGRAM TO CHECK THE GIVEN NO IS PRIME OR COMPOSITE. SUB

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

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

FACTORIAL

Q BASIC PROGRAM TO PRINT FACTORIAL OF A GIVEN NUMBER. FUNCTION

DECLARE FUNCTION FACT(N)
CLS
INPUT "ENTER ANY NUMBER";N
PRINT "FACTORIAL=";FACT(N)
END

FUNCTION FACT(N)
F=1
FOR I = 1 TO N
F=F*I
NEXT I
FACT = F
END FUNCTION

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS POSITIVE OR NEGATIVE. SUB

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

SUB CHECK(N)
IF N>0 THEN
PRINT "THE NUMBER IS POSITIVE"
ELSE N<0 THEN
PRINT "THE NUMBER IS NEGATIVE"
END IF
END SUB

Q BASIC PROGRAM TO DISPLAY 9,7,5.....1. SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

Q BASIC PROGRAM TO CALCULATE DISTANCE TRAVELED BY A BODY.  FUNCTION

DECLARE FUNCTION DIST(U,T,A)
CLS
INPUT "ENTER INITIAL VELOCITY";U
INPUT "ENTER TIME";T
INPUT "ENTER ACCELERATION";A
PRINT "DISTANCE TRAVELED BY A BODY=";DIST(U,T,A)
END

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