Posts

Image
      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 class 9 tour was also so i
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