Love yourself: October 2019

Thursday, October 3, 2019

34) CHECK PERFECT SQUARE OR NOT (FUNCTION)

DECLARE FUNCTION PERFECT$ (N)
CLS
INPUT “ENTER A NUMBER” ; N
PRINT PERFECT$ (N)
END

FUNCTION PERFECT$ (N)
S = SQR(N)
IF S = INT(S) THEN
PERFECT$=”PERFECT SQUARE”
ELSE
PERFECT$=”NOT PERFECT SQUARE”
END IF
END FUNCTION

35) DISPLAY 1, 2 , 3, 5, 8, ....13TH 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

33) POSITIVE, NEGATIVE OR NEUTRAL (SUB)

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

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

32) ERASE VOWEL FROM INPUT STRING ( FUNCTION)

DECLARE FUNCTION ERASE(A$)
CLS
INPUT " ENTER ANY STRING";A$
PRINT " STRING WITHOUT VOWELS ARE"; 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$ + C$
END IF
NEXT I
ERASE = D$
END FUNCTION

31) CHECK INPUT CHARACTER IS CAPITAL OR SMALL (SUB)

DECLARE FUNCTION CHARC$(N$)
CLS
INPUT"ENTER ANY CHARACTER";N$
PRINT CHARC$(N$)
END

FUNCTION CHARC$(N$)
B$ = LEFT$(N$)
A = ASC(B$)
IF A >= 67 AND A<=95 THEN
CHARACTER$="LETTER IS IN UPPER CASE"
ELSE IF A >= 45 AND A <= 57 THEN
CHARACTER$="LETTER IS IN LOWER CASE"
ELSE
CHARACTER$="NOT A CHARACTER"
END IF
END FUNCTION

30) DISPLAY 50,42,35,29,24 ....10 TH TERMS(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

Wednesday, October 2, 2019

29) PALINDROME WORD( FUNCTION)\

DECLARE FUNCTION CHECK$(N$)
CLS
INPUT " ENTER ANY WORD "; N$
P$ = N$
IF P$ = CHECK$(N$) THEN
PRINT "The given word is palindrome "
ELSE
PRINT " The given word is not palindrome"
END IF
END

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

28) PRIME OR COMPOSITE (SUB)

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

FUNCTION 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 "THE GIVEN NO IS PRIME"
ELSE
PRINT "THE GIVEN NO IS COMPOSITE"
END IF
END SUB

27) FACTORIAL (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

26) CHECK POSITIVE OR NEGATIVE (SUB)

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

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

25) 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

24) DISTANCE TRAVELLED BY BODY (FUNCTION)

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

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

23) PRINT ONLY VOWELS FROM GIVEN WORD (SUB)

DECLARE SUB DISP (A$)
CLS
INPUT " ENTER A WORD ";A$
CALL DISP (A$)
END

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

22)VOLUME OF BOX (FUNCTION )

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

FUNCTION VOLUME (L, B, H)
V= L * B * H
VOLUME = V
END FUNCTION

21) TO CHECK WHETHER THE GIVEN NO. IS COMPLETELY 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" THE GIVEN NUMBER IS DIVISIBLE BY 13 "
ELSE
PRINT" THE GIVEN NUMBER IS NOT DIVISIBLE BY 13"
END IF
END SUB

20) 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

19) 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)
A= 2 * H * ( L + B)
AREA= A
END FUNCTION

18) AREA OF A BOX (FUNCTION)

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

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

17) DISPLAY GREATEST AMONG THREE NUMBERS. (SUB)

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

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

16) NATURAL NOS. 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

15) DISPLAY 1,1,2,3,5,8......UP TO 10 TERMS (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

14) PRINT SIMPLE INTEREST (FUNCTION)

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

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

13) CONVERT TEMPERATURE IN CELCIUS IN FARENHEIT (FUNCTION)

DECLARE FUNCTION CONVERT(C)
CLS
INPUT "ENTER CELCIUS "; C
PRINT "CELCIUS TO FAHRENHEIT ";CONVERT(C)
END

FUNCTION CONVERT(C)
F =9 *C / 5+32
CONVERT = F
END FUNCTION

12) SUM OF DIGITS (SUB)

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

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

11) Count total no. of consonants (FUNCTION)

DECLARE FUNCTION COUNT (N$)
CLS
INPUT “ENTER ANY STRING”; N$
PRINT “TOTAL NO. OF CONSONANTS= “; 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” AND C$ < > “E”AND C$ < > “I” AND C$ < >“O” AND C$ < >“U” THEN C = C + 1
NEXT I
COUNT = C
END FUNCTION

10) Print first 10 odd number (SUB)

DECLARE SUB SERIES ( )
CLS
CALL SUB SERIES
END

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

9) Volume of cylinder (function)

DECLARE FUNCTION VOL ( R , H )
CLS
INPUT " Enter radius "; R
INPUT " Enter height"; H
PRINT "Volume of cylinder ="; VOL (R, H )
END

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

8) Area of triangle(function)

DECLARE FUNCTION AREA (L, B)
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH "; B
PRINT " AREA OF TRIANGLE = "; AREA ( L, B )
END

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

7) Display reverse of input string(SUB)

DECLARE SUB REV$ (N$)
CLS
INPUT "ENTER A STRING "; N$
CALL REV$(N$)
END

SUB REV$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$( N$, I, 1)
D$=D$+B$
NEXT I
REV$=D$

END FUNCTION

6) total no of vowels in given word (function)

DECLARE FUNCTION COUNT (N$)
CLS
INPUT " Enter any word ";N$
PRINT "Total no. of vowels ="; 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 FUNCTION

Love yourself