Q BASIC PROGRAM :PERFECT SQUARE OR NOT.

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS PERFECT SQUARE OR NOT. FUNCTION

DECLARE FUNCTION CHECK$(N)
CLS
INPUT "ENTER ANY NUMBER";N
PRINT CHECK$(N)
END

FUNCTION CHECK$(N)
A=SQR(N)
B=INT(A)
IF A=B THEN
C$="PERFECT SQUARE"
ELSE
C$="NOT PERFECT SQUARE"
END IF
CHECK$=C$
ENS FUNCTION

Q BASIC PROGRAM:DISPLAY 1,2,3,5,8......UP TO 13 TERM

Q BASIC PROGRAM TO DISPLAY 1,2,3,5,8...........UP TO 13 TERM. SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
B=2
FOR I =1 TO 13
PRINT A;
C=A+B
A=B
B=C
NEXT I
END SUB

Q BASIC PROGRAM:POSITIVE NEGATIVE OR ZERO

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

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

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

Q BASIC PROGRAM:DISPLAY CONSONANT ONLY

Q BASIC PROGRAM TO ERASE VOWELS FROM THE STRING. FUNCTION

DECLARE FUNCTION ERASE(A$)
CLS
INPUT "ENTER ANY STRING";A$
PRINT "STRING WITHOUT VOWELS=" ;ERASE(A$)
END

FUNCTION ERASE(A$)
B$=UCASE$(A)
FOR I = 1 TO LEN(B$)
C$=MID$(B$,I,1)
IF C$<>"A" AND C$<>"E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN D$=D$+1
END IF
NEXT I
ERASE = D$
END FUNCTION

Q BASIC PROGRAM:CAPITAL OR SMALL

Q BASIC PROGRAM TO CHECK INPUT CHARACTER IS CAPITAL OR SMALL. FUNCTION

DECLARE FUNCTION CHECK$(N$)
CLS
INPUT "ENTER ANY STRING";N$
IF C$=N$ THEN
PRINT "CAPITAL CHARACTER"
ELSE
PRINT "SMALL CHARACTER"
END

FUNCTION CHECK$(N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(B$)
NEXT I
END FUNCTION

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

Q BASIC PROGRAM TO PRINT ONLY VOWELS FROM A GIVEN WORD. SUB

DECLARE  SUB DISP(N$)
CLS
INPUT "ENTER ANY STRING";N$
CALL DISP(N$)
END

SUB DISP(N$)
FOR I = 1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(N$)
IF C$="A"OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN
PRINT B$
END IF
NEXT I
END SUB

Q BASIC PROGRAM TO FIND VOLUME OF BOX. 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

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS DIVISIBLE BY 13 OR NOT. SUB

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

SUB CHECK(N)
IF N MOD 13 = 0 THEN
PRINT "NUMBER IS DIVISIBLE BY 13"
ELSE
PRINT "NUMBER IS NOT DIVISIBLE BY 13"
END IF
END SUB

Q BASIC PROGRAM TO FIND CIRCUMFERENCE OF CIRCLE. SUB

DECLARE SUB CIR(R)
CLS
INPUT "ENTER RADIUS";R
CALL CIR(R)
END

SUB CIR(R)
C=2*22/7*R
PRINT "CIRCUMFERENCE OF CIRCLE";C
END SUB

Q BASIC PROGRAM TO FIND AREA OF 4 WALLS. FUNCTION

DECLARE FUNCTION AREA(L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT';H
PRINT "AREA OF 4 WALLS=";AREA(L,B,H)
END

FUNCTION AREA(L,B,H)
AREA=2*H*(L+B)
END FUNCTION

Q BASIC PROGRAM TO FIND AREA OF BOX. FUNCTION

DECLARE FUNCTION AREA(L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT "AREA OF BOX";AREA(L,B,H)
END

FUNCTION AREA(L,B,H)
AREA = 2*(L*B+B*H+L*H)
END FUNCTION

Q BASIC PROGRAM TO FIND GREATEST AMONG THREE NUMBERS. SUB

DECLARE SUB GREAT(A,B,C)
CLS
INPUT "ENTER ANY 3 NUMBERS";A,B,C
CALL GREAT (A,B,C)
END

SUB GREAT(A,B,C)
IF A>B AND A>C THEN
PRINT "GREATEST NUMBER IS";A
ELSEIF B>A AND B>C THEN
PRINT "GREATEST NUMBER IS";B
ELSE
PRINT "GREATEST NUMBER IS";C
END IF
END SUB

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

QBASIC PROGRAM TO FIND VOLUME OF CYLINDER. FUNCTION

DECLARE SUB VOL(R,H)
CLS
INPUT "ENTER RADIUS";R
INPUT "ENTER HEIGHT";H
PRINT "VOLUME OF CYLINDER="VOL(R,H)
END

FUNCTION VOL(R,H)
VOL=22/7*R^2*H
END FUNCTION

QBASIC PROGRAM TO FIND REVERSE OF THE STRING .SUB

DECLARE SUB REV(N$)
CLS
INPUT "ENTER A WORD ";N$

CALL REV (N$)

END

SUB REV(N$)

FOR I = LEN(N$) TO 1 STEP -1

C$=C$+ MID$(N$,I,1)

NEXT I

PRINT "REVERSE STRING";C$

END SUB

QBASIC PROGRAM TO FIND AREA OF TRIANGLE. FUNCTION

DECLARE FUNCTION AREA(B,H)
CLS
INPUT "ENTER BASE";B
INPUT "ENTER HEIGHT";H
PRINT "AREA OF TRIANGLE=";AREA(B,H)
END

FUNCTION AREA(B,H)
AREA= 1/2*B*H
END FUNCTION

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

DECLARE FUNCTION COUNT(N$)

CLS

INPUT "ENTER ANY STRING";N$

PRINT"TOTAL NO OF VOWEL 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 FIND AREA OF 4 WALLS. SUB


DECLARE FUNCTION AREA(L,B,H)
CLS 
INPUT "ENTER LENGTH";L
INPUT "ENETR BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT"AREA OF 4 WALLS="AREA(L,B,H)
END

FUNCTION AREA(L,B,H)
AREA=2*H*(L+B)
END FUNCTION