Keep your attitude in your pocket🤫🤫

      MY EXPERIENCE IN JAGAT MANDIR My First day at jagat mandir was from grade 2. At first day I was so unhappy and Shy beacause I was came from village.From class 2 to now I am in grade 10 and it is my last month with JM family. And I sure that I will miss this School and never gone forget this. Now also I stell remember that our grade 2 class teacher Maynuka mam told me that (Boine chello car ma ahne dai baney goru ma) because I was too weak on study and sister was not weak. And in grade 3 4 5 6 and 7 was the best movement and with unforgettable days with my friends. Then we wear in grade 8 and I  was stell weak on study and to me study was not interested. And there was BLE examination which is called Basic Level Exam in grade 8 also I got C+. And the grade 8 tour was the best and favourite movement. Then after we slowly reach to grade 9  and there was same friend and same teacher but some friends left the school because of some problems.And cl...

Program to find total no. of vowels in a given word using SUB DECLARE SUB DISPLAY(N$) CLS INPUT"ENTER ANY WORD";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$="E" OR C$="I" OR C$="O" OR C$="U" THEN D$=D$+B$ NEXT I PRINT"VOWELS=";D$ END SUB

Program to find average of 3 numbers using FUNCTION DECLARE FUNCTION AVG(A,B,C) CLS INPUT"ENTER ANY THREE NUMBERS";A,B,C PRINT"Average of three numbers=";AVG(A,B,C) END FUNCTION AVG(A,B,C) AV=(A+B+C)/3 AVG=AV END FUNCTION

Program to find area of circle using SUB DECLARE SUB AREA(R) CLS INPUT"ENTER RADIUS";R CALL AREA(R) END SUB AREA(R) A= 22/7*R^2 PRINT"Area of circle=";A END SUB

Program to find area of 4 walls using SUB DECLARE SUB AREA(L,B,H) CLS INPUT"ENTER LENGTH":L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H CALL AREA(L,B,H) END SUB AREA(L,B,H) A=2*H*(L+B) PRINT"Area of 4 walls=";A END SUB

Program to find total no. of vowels in a word using 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

Program to find reverse of input string using SUB DECLARE SUB REV(N$) CLS INPUT"ENTER ANY WORD";N$ CALL REV(N$) END SUB REV(N$) FOR I= LEN(N$) TO 1 STEP -1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I PRINT"The reversed word=";C$ END SUB

Program to find area of triangle using FUNCTION DECLARE FUNCTION AREA(A,B,C) CLS INPUT"ENTER FIRST SIDE";A INPUT"ENTER SECOND SIDE";B INPUT"ENTER THIRD SIDE";C AR= AREA(A,B,C) PRINT"Area of triangle="AR END FUNCTION AREA(A,B,C) AREA=(S*(S-A)*(S-B)*(S-C))^(1/2) END FUNCITON

Program to print volume of cylinder using 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

Program to print first 10 odd numbers using SUB DECLARE SUB DISPLAY() CLS  CALL DISPLAY END SUB DISPLAY() A=1 FOR I= 1 TO 10 PRINT A NEXT I END SUB

Program to print simple interest using FUNCTION DECLARE FUNCTION SIMPLE(P,T,R) CLS INPUT"ENTER PRINCIPLE";P INPUT"ENTER TIME"T INPUT"ENTER RATE";R PRINT"Simple Interest=";SIMPLE(P,T,R) END FUNCTION SIMPLE(P,T,R) S=(P*T*R)/100 SIMPLE=S END FUNCTION

Program to print simple interest using FUNCTION DECLARE FUNCTION SIMPLE(P,T,R) CLS INPUT"ENTER PRINCIPLE";P INPUT"ENTER TIME"T INPUT"ENTER RATE";R PRINT"Simple Interest=";SIMPLE(P,T,R) END FUNCTION SIMPLE(P,T,R) S=(P*T*R)/100 SIMPLE=S END FUNCTION

Program to print natural numbers from 1 to 15 using SUB DECLARE SUB SERIES() CLS CALL SERIES END SUB SERIES() FOR I=1 TO 5 PRINT I NEXT I END SUB

Program to display 1,1,2,3,5,8........upto 10th term using 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

Program to find greatest among 3 numbers using SUB DECLARE SUB GREAT(A,B,C) CLS INPUT"ENTER FIRST NUMBER";A INPUT"ENTER SECOND NUMBER";B INPUT"ENTER THIRD NUMBER";C CALL GREAT(A,B,C) SUB 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

Program to find area of box using 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) A=2*(L*B+B*H+L*H) AREA=A END FUNCTION

Program to find area if 4 walls using FUNCTION DECLARE FUNCTION AREA(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H AR=AREA PRINT"Area of 4 walls=";AREA(L,B,H) END FUNCTION AREA(L,B,H) AREA=2*H*(L+B) END FUNCTION

Program to find circumference of circle using SUB DECLARE SUB CIRCLE(R) CLS INPUT"ENTER RADIUS";R CALL CIRCLE(R) END SUB CIRCLE(R) C=2*22/7*R PRINT"CIRCUMFERENCE OF CIRCLE=";C END SUB

Program to find whether the given no. is divisible by 13 or not using 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"DIVISIBLE BY 13" ELSE PRINT"NOT DIVISIBLE BY 13" END IF END SUB

Program 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) V=L*B*H VOL=V END FUNCTION