Łet Us Make Our Future Now, And Let Us Make Our Dreams Tomorrow’s Reality..😊

QBASIC PROGRAM TO FIND  FACTORIAL USING FUNCTION. DECLARE FUNCTION FACT(N0 CLS INPUT"ENTER ANY NUMBER";N PRINT"FACT=";FACT(N) END FUNCTION FACT(N) F=1 FOR I= 1 TO N F=F*I NEXT I PRINT"FACTORIAL=";F END SUB

QBASIC PROGRAM TO FIND 9,7,5...1 USING SUB. DECLARE SUB SERIES() CLS CALL SERIES END SUB SERIES() FOR I=9 TO 1 PRINT I NEXT I END SUB

QBASIC PROGRAM TO PRINT ONLY VOWELS FROM GIVEN WORD USING SUB. DECLARE SUB DISPLAY(N$) CLS INPUT"ENTER ANY NUMBER";N$ CALL DISPLAY(N$) END SUB DISPLAY"(N$) FOR I=1 TOO LEN(N$) B$=MID$(N$,I,1) C$=UCASE$(B$) IF C$="A" OR C$"E" OR C$="I"  OR C$="I" OR C$="O" OR C$="U" THEN D$=D$+B$ NEXT I PRINT"VOWELS=";D$ END SUB

QBASIC PROGRAM TO FIND VOLUME OF BOX USING FUNCTION. DECLARE FUNCTION VOL(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER HEIGHT";H INPUT"ENTER BREADTH";B PRINT"VOLUME OF BOX=";VOL(L,B,H) END FUNCTION VOL(L,B,H) V=L*B*H VOL=V END FUNCTION

QBASIC PROGRAM TO FIND WHETHER THE GIVEN NO. IS DIVISIBLE BY 13 OR NOT. 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

QBASIC PROGRAM TO FIND CIRCUMFERENCE OF CIRCLE USING SUB. DECLARE SUB CIRCLE(R) CLS INPUT"ENTER RADIUS";R CALL SERIES(R) END SUB CIRCLE(R) C=2*22/7*R PRINT"CIRCUMFERENCE OF CIRCLE=";C END SUB

QBASIC PROGRAM TO FIND AREA OF 4 WALLS USING FUNCTION. DECLARE FUNCTION AREA(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER HEIGHT";H INPUT"ENTER BREADTH";B PRINT"AREA OF 4 WALLS=";AREA(L,B,H) END FUNCTION ARE(L,B,H) A=2*H*(L+B) AREA=A END FUNCTION

QBASIC PROGRAM TO FIND AREA OF BOX USING FUNCTION. DECLARE FUNCTION ARE (L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"ARE OF BOX=";AREA(L,B,H) END DECLARE FUNCTION(L,B,H) VA=(2(LH+BH+LB)) AREA=A END FUNCTION

QBASIC PRPGRAM 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) END SUB GREAT (A,B,C) IF A>B AND A>C THEN PRINT"GREATEST NO. IS";A ELSEIF B>A AND B>C THEN PRINT"THE GREATEST NO.IS";B ELSE PRINT"THE GREATEST NO. IS";C END IF END SUB

QBASIC PROGRAM TO DISPLY 1,1,2,3,5,8......UP TO 1O 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

QBASIC PROGRAM TO PRINT NATURAL NO. 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

QBASIC 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

QBASIC PROGRAM TO CONVERT TEMPERATURE IN CELSIUS IN FARENHIT USING FUNCTION. DECLARE FUNCTION CONVERT(C) CLS INPUT"ENTER CELSIUS";C PRINT"TEMPERATURE IN FAHRENHEIT=";CONVERT(C) END FUNCTION CONVERT(C) F=9*C/5+32 CONVERT=F END FUNCTION

QBASIC PROGRAM TO FIND SUM OF DIGIT USING SUB. DECLARE SUB SIM(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 WEND PRINT"SUM OF DIGIT=";S END SUB

QBASIC PROGRAM TO PRINT FIRST 10 ODD NUMBER USING SUB. DECLARE SUB DISPLAY() CLS CALL DISPLAY END SUB DISPLAY() A=1 FOR I=1 TO 10 PRINT A NEXT I END SUB

QBASIC PROGRAM TO FIND VOLUME OF CYLINDER USING FUNCTION. DECLARE FUNCTION VOL(R,H) CLS INPUT"ENTER RADIUS";R INPUT"ENTER HEIGHT";H PRINT"VOLUME OF CYLINDER=";VOL9R,H) END FUNCTION VOL(R,H) V=22/7*R^2*H VOL=V END FUNCTION

QBASIC PROGRAM TO FIN AREA OF TRIANGLE USNG FUNCTION. DECLARE FUNCTION AREA (IA,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 ARE (A,B,C) AREA=(S*(S-A)*(S-B)*(S-C))^(1/2) END FUNCTION

QBASIC PROGRAM TO FIND REVESE OF INPUT STRING USING SUB. DECLARE SUB REV(N$) CLS INPUT"ENTER ANY WORD";N$ CALL REV(IN$) 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

QBASIC PROGRAM TO FIN TOTAL NO. OF WORDS IN A SENTENCE USING FUNCTION. DECLARE FUNCTION COUNT (S$) CLS INPUT"ENTER ANY STRING";S$ PRINT "TOTAL NO. OF WORDS=COUNT(S$) END FUNCTION COUNT(S$) WC=1 FOR I=1 TO LEN(S$) B$=MID$(S$,I,1) IF B$=""THEN WC=WC+1 END IF NEXT I COUNT+WC END FUNCTION

QBASIC 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=O 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

QBASIC 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

QBASIC PROGRAM TO FIND ARE 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

QBASIC 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$="I" OR C$= "O" OR C$="U' THEN D$=D$+B$ NEXT I PRINT"VOWELS+";D$ END SUB

QBASIC program to fin average of three 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

My Father (APPA) My favorite person my Father.He is the one who had always been there for me in my difficult times.My father name is Temba sherpa. He was a mounatiner. He Passed away when he was 36.He was a very kind hearted and helpful person. My Amma used to tell me and my brother about him. For me he was the best person and he will always be the best person.He has been supported us from the very beginning of our life.He has given us all the love and support a father can give to their family. APPA you were and always be my biggest suppoter aand inspiration.I have no doubt that god took a piece of you to make me for the person i am a smaller girlier version of you.I cant thank my stars for having you in my life.

                                    ELECTION COMMISSION On the date of 30th august we student of grade 10 visited election commission. Some of the students visited the  election commission last year also but for me it was the first time visiting election commission.We went there with our social teacher Raju maratha sir and our Vice Principle Mr Murali raj aryal.We were taught and guided by the two members of the election commission. Firstly, we were divided in two groups and one group was taken to show a documentry and another group went to the game session.We got to know about the history of election and from the game section we got to get knowledge about election.After that we were given class on election process.The class was for 3 hours.They showed us electronic voting machine.We also conducted mock election for practice. I am really thankful to our school adminstrative for taking us there to gain more knowledge about election process.