Football is my life

Wap to display 1,2,3,5,8, up to 13th term 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

Wap to display 1,2,3,5,8, up to 13th term 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

Wap to check whether the given number is perfect square or not DECLARE FUNCTION PERFECT (S) CLS INPUT "ENTER ANY NUMBER"; N S = SQR(N) PR = PERFECT (S) IF PR = S THEN PRINT "PERFECT SQUARE" ELSE PRINT "NOT PERFECT SQUARE" END IF END FUNCTION PERFECT (S) PERFECT = INT (S) END FUNCTION

Wap to find whether the given number is positive negative or zero DECLARE SUB CHECK(N) CLS INPUT"ENTER ANY NO.";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

Wap to erase vowels from given string DECLARE FUNCTION ERA(A$) CLS INPUT"ENTER ANY STRING";A$ PRINT"STRING WITHOUT VOWELS =";ERA(A$) END FUNCTION ERA(A$) FOR I = 1 TO LEN (A$) B$=MID$(A$,I,1) C$=UCASE$(B$) IF C$<>"A" AND C$<>'E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN D$=D$+C$ END IF NEXT I ERA=D$ END FUNCTION

Wap to check the character is capital or small DECLARE FUNCTION CHECK$(A$) CLS INPUT"ENTER ANY CHARACTER";A$ PRINT"THE ENTERED CHARATER IS"; CHECK$(C$) END FUNCTION CHECK$(A$) C = ASC(A$) IF C>=65 AND C<=91 THEN CHECK$="UPPER CASE" ELSEIF C>=97 AND C<=122 THEN CHECK$="LOWER CASE" ELSE  CHTR$="NOT A CHARACTER" END IF END FUNCTION

WAP TO DISPLAY 50, 42, 35, 29, 24 1O.......TERM DECLARER 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

Wap to find the palindrome word DECLARE FUNCTION REV$ (S$) CLS INPUT "ENTER ANY STRING"; S$ P$ = S$ IF P$ = REV$(S$) THEN PRINT "THE GIVEN WORD IS PALINDROME " ELSE PRINT " THE GIVEN NO. IS NOT PALINDROME" END IF END FUNCTION REV$ (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I REV$ = W$ END FUNCTION

Wap To check whether the given no. is prime or composite 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

Wap to find factorial of given no. DECLARE FUNCTION factorial (n) CLS INPUT "Enter a number"; n PRINT "The factorial of the given number is"; factorial(n) END FUNCTION factorial (n) f = 1 FOR i = 1 TO n     f = f * i NEXT i factorial = f END SUB

Wap to find whether the given no. is positive or negative DECLARE SUB CHECK(N) CLS INPUT"ENTER ANY NO.";N CALL CHECK(N$) END SUB CHECK(N) IF N > 0 THEN PRINT"POSITIVE NO." ELSE IF N  < 0 THEN PRINT"NEGATIVE NO." ELSE PRINT"ZERO" END IF END SUB

Display 9,7,5....1 DECLARE SUB SERIES() CLS CALL SERIES END SUB SERIES() FOR I = 9 TO 1 STEP-2 PRINT I NEXT I END SUB

Wap to calculate distance travelled by body DECLARE FUNCTION DIS(U,T,A) CLS INPUT"ENTER VELOCITY";U INPUT"ENTER TIME";T INPUT"ENTER ACCELERATION";A PRINT"DISTANCE TRAVELLED BY BODY IS ";DIS(U,T,A) END FUNCTION DIS(U,T,A) DIS=U*T+1/2*A*T^2 END FUNCTION

Wap to print only vowels from given word DECLARE SUB DIS(N$) CLS INPUT"ENTER ANY WORD";N$ CALL DIS(N$) END SUB DIS(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 PRINT C$ NEXT I END SUB

Wap to find volume of box 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

Wap to check whether the given no. is completely divisible by 13 or not DECLARE SUB CHECK(N) CLS INPUT"ENTER ANY NO.";N CALL CHECK(N) END SUB CHECK(N) IF N MOD 13 = 0 THEN PRINT"THE NO. IS COMPLETELY DIVISIBLE BY 13" ELSE PRINT"THE NO. IS NOT COMPLETELY DIVISIBLE BY 13' END IF  END SUB

WAP TO FIND CIRCUMFERENCE OF CIRCLE 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 IS ";C END SUB

Wap to find area of box DECLARE FUNCTION AR(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"THE AREA OF BOX IS ";AR(L,B,H) END FUNCTION AREA(L,B,H) AR=2*(L*H+B*H+L*B) END FUNCTION

Wap to find area of box DECLARE FUNCTION AR(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"THE AREA OF BOX IS ";AR(L,B,H) END FUNCTION AREA(L,B,H) AR=2*(L*H+B*H+L*B) END FUNCTION

Wap to display greatest among 3 no DECLARE SUB GREAT (A,B,C) CLS INPUT"ENTER 3 NO. ";A,B,C CALL GREAT(A,B,C) END SUB GREAT (A,B,C) IF A > B AND A>C THEN PRINT"THE GREATEST NO. IS";A ELSE IF B>A AND B>A THEN PRINT"THE GREATEST NO. I S";B ELSE PRINT"THE GREATEST NO IS";C END IF  END SUB

Wap to display greatest among 3 no DECLARE SUB GREAT (A,B,C) CLS INPUT"ENTER 3 NO. ";A,B,C CALL GREAT(A,B,C) END SUB GREAT (A,B,C) IF A > B AND A>C THEN PRINT"THE GREATEST NO. IS";A ELSE IF B>A AND B>A THEN PRINT"THE GREATEST NO. I S";B ELSE PRINT"THE GREATEST NO IS";C END IF  END SUB

Wap to display 1,1,2,3,5,8.....upto 10th term DECLARE SUB SERIES() CLS CALL SERIES END SUB SERIES() A=1 B=1 FOR I = 1 TO 10 PRINT A; PRINT B; A=A+B B=B+A NEXT I END SUB

Wap to print natural no. from 1 to 5 DECLARE SUB SERIES() CLS CALL SERIES() END SUB SERIES() FOR I = 1 TO 5 PRINT I NEXT I END SUB

Wap to find simple intrest 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

Wap to convert temperature in celsius into fahrenheit DECLARE FUNCTION CONVERT (F) CLS INPUT “ENTER TEMPERATURE IN FAHRENHEIT”; F PRINT “TEMPERATURE IN CELSIUS=”; CONVERT (F) END FUNCTION  CONVERT (F) C = (F – 32) * (5 / 9) CONVERT = C END FUNCTION

Wap to find sum of digits DECLARE SUB SUM(N) CLS INPUT"ENTER ANY NO.";N CALL SUM(N) END SUB SU8M(N) S=0 WHILE N<>0 R = N MOD 10 S = S+R N = N\10 WEND PRINT"SUM OF DIGITS IS ";S END SUB

Wap to count total no. of consonant in given word DECLARE FUNCTION COUNT(N$) CLS INPUT"ENTER ANY STRING";N$ PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$) END FUNCTION COUNT(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 C= C+1 NEXT I COUNT = C END FUNCTION

Wap to print first ten numbers DECLARE SUB SERIES() CLS CALL SERIES END SUB SERIES() FOR I = 1 TO 10 STEP 2 PRINT I NEXT I END SUB

Wap to find volume of cylinder DECLARE FUNCTION VOL(R,H) CLS INPUT"ENTER RADIUS";R INPUT"ENTER HEIGHT";H PRINT"VOLUME OF CYLINDER IS";VOL(R,H) END FUNCTION VOL(R,H) VOL=22/7*R^2*H END FUNCTION

Wap to find area of triangle DECLARE FUNCTION AREA(B,H) CLS INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"AREA OF TRIANGLE";AREA(B,H) END FUNCTION AREA(B,H) AREA=1/2*B*H END FUNCTION

Wap to find area of triangle DECLARE FUNCTION AREA(B,H) CLS INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"AREA OF TRIANGLE";AREA(B,H) END FUNCTION AREA(B,H) AREA=1/2*B*H END FUNCTION

Wap to find area of triangle DECLARE FUNCTION AREA(B,H) CLS INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"AREA OF TRIANGLE";AREA(B,H) END FUNCTION AREA(B,H) AREA=1/2*B*H END FUNCTION

Wap to count total no. of vowels in a word DECLARE FUNCTION COUNT(N$) CLS INPUT"ENTER ANY WORD";N$ PRINT"TOTAL NO. OF VOWELS IS";COUNT(N$) END FUNCTION COUNT(N$) FOR I = 1 TO LEN(N$) B$ = MID$(N$,I,10 C$ = UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN C=C+1 NEXT I PRINT"TOTAL NO. OF VOWELS =";C END SUB

Wap to find area of 4 wall DECLARE SUB AR(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT'"ENTER BREADTH";B INPUT"ENTER HEIGHT";H CALL AR(L,B,H) END SUB AR(L,B,H) ARE=2*H*(L+B) PRINT"AREA OF 4 WALLS =";ARE END SUB

Wap to display reverse of input string DECLARE SUB REV$(N$) CLS INPUT"ENTER STRING";N$ CALL REV$($) END SUB REV$(N$) FOR I = LEN(N$) TO 1 STEP-1 B$ = MID$(N$,I,1) C$= C$+B$ NEXT I PRINT"REVERSE OF STRING";C$ END SUB