I hAtE tWo FaCe PeOpLe ItS sO hArD tO dEcIdE wHiCh FaCe To SlAp FiRsT......

DECLARE SUB CHECK(N) INPUT"ENTER ANY NO";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" END IF

DECLARE  SUB VHECK(N) CLS INPUT"ENTER ANY 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 NEUTRAL" END IF ENS SUB

DECLAFE SUB FACTOR(N) CLS INPUT"ENTER ANY NO";N CALL FACTOR(N) END SUB FACTOR(N) FOR I=1 TO N IF  N MOD I=0 THEN PRINT I NEXT I  END SUB

DECLARE FUNCTION FACT(N) CLS INPUT"ENTER ANY NO";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

DECLARE SUB PAL(N$) CLS INPUT"ENTER ANY WORD";H$ CALL PAL(N$) END SUB PAL(N$) FOR I=LEN(N$) TO 1  STEP-1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I IF N$=C$ THEN PRINT"THE GIVEN WORD IS PALINDROME" ELSE PRINT"THE GIVEN WORD IS NOT PALINDROME" END IF END SUB

DECLARE FUNCTION AVG(A,B,C) CLS INPUT"ENTER FIRST NO";A INPUT"ENTER SECOND NO";B INPUT"ENTER THIRDNO";C PRINT"AVERAGE OF THREE NO";AVG(A,B,C) END FUNCTION AVG(A,B,C) Av=(A+B+C)/3 AVG=AVE END FUNCTION

DECLARE SUB DISP(N$) CLS INPUT"ENTER ANY WORD";N$ CALL DISP(N$) END SUB DISP(N$) FOR I=1 TO LEN(N$) B$=MID$(N$,I,1) C$=UCASE(B$) IFC$<>"A"ANDC$<>"E"ANDC$<>"I"ANDC$<>"O"AND C$<>"U"THEN U$=U+B$ NEXT IPRINT"VOWEL";V$ END SUB

DECLARE SUB AREA(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H END SUB AREA(L,B,H) A=2*H*(L+B) PRINT"AREA OF FOUR WALL";A END SUB

DECLARE FUNCTION COUNT(N$) CLS INPUT"ENTER ANY WORDS";N$ PRINT"TOTAL NO OF VOWEL=";COUNT(N$) END FUNCTION COUNT(N$) C=0 FOR I=1TO LEN(N$) BS $=MID$(N$,I,1) C$=UCASE$(B$) IFC$="A"ORC$="E"ORC$="O"ORC$="U"THEN C=C+1 NEXT I COUNT=C END FUNCTION

DECLARE SUB REV(N$) CLS INPUT"ENTER ANY WORD";N$ CALL REV(N$) END SUB REV(N$) FOR I=LEN(N$) TO 1STEP -1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I PRINT"REVERSED WORD I";C$ ENDSUB

DECLARE FUNCTION AREA(A,B,C) CLS INPUT"ENTER FIRST NO";A INPUT"ENTER SECOND NO";B INPUT"ENTER THIRD NO";C PRINT"AREA OF TRIANGLE";AREA(A,B,C) END FUNCTION AREA(A,B,C) AREA=(S*(S-A)*(S-B*(S-C)^(1/2) AREA=A ENS 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

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES () A=1 FOR I=1 TO 10 PRINT"A A=A+2 NEXT I ENDSUB

DECLARE FUNCTION CONSO(N$) CLS INPUT"ENTER ANY WORD";N$ PRINT"TOTAL NO OF CONSONANT";CONSO(N$) END FUNCTION CONSO(N$) C=0 FOR I=1 TO LEN(N$) B$=MID$(N$,I,1) C$=UCASE$(B$) IF C$<>"A"ANDC$<>"E"ANDC$<>"I"ANDC$<>"C$<>"O"AND C$<>"U" THEN C=C+1 NEXT I CONSO=C END FUNCTION

DECLARE FUNCTION CELSIUS(F) CLS INPUT"ENTER FARHRERHEIT";F PRINT"FAREHRENHEIT IN CELSIUS";CELSIUS (F) END FUNCTION CELCIUS(F) C=5*(9*(F-32)) CELCIUS=C END FUNCTION

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES FOR I=1 TO 5 PRINT I NEXT I END SUB 

DECLARE FUNCTION SIM(P,T,R) CLS INPUT"ENTER PRINCIPAL";P INPUT"ENTER TIME";T INPUT"ENTER RATE";R PRINT"SIMPLE INTEREST";SIM(P,T,R) END FUNCTION SIM(P,T,R) S=P*T*R/100 SIM=S END FUNCTION

DECLARE SUB GREAT(A,B,C) CLS INPUT"ENTER FIRST NO";A INPUT"ENTER SECOND NO";B INPUT"ENTER THIRDTHIRD NO";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 ELSEIF B>C ANDB>A THEN PRINT"THE GREATEST NO IS";B ELSE PRINT"THE GREATEST NO IS";C END IF END FUNCTION

DECLARE SUB SERIEA() 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

DECLARE FUNCTION AREA (L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENRER HEIGHT";H PRINT"AREA OF 4WALL";AREA(L,B,H) END FUNCTION AREA(L,B,H) A=2*H*(L+B) AREA=A END FUNCTION

DECLARE FUNCTION AREA(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"ARRA OF A BOX";AREA(L,B,H) END FUNCTION AREA(L,B,H) A=2*(L*H+B*H+L*B) AREA=A END 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) VOL=L*B*H VOL=V END FUNCTION

DECLARE SUB DISP(N$) CLS INPUT"ENTER ANY WORD";N$ CALL DISP(N$) END SUB DISP(N$) FOR I=1 TO LEN(N$) B$=MID$(N$,I,1) C$=UCASE$(B$) IF C$="A" OR C$="E"ORC$="I"ORC$="O"ORC$="U" THEN V$=V$+B$ NEXT I PRINT"VOWEL";V$ END SUB

DECLARE FUNCTION DISTANCE(A,T,U) CLS INOUT"ENTER ACCELAERATION";A INPUT"ENTER TIME";T INPUT"ENTER INITIAL VELOCITY";U PRINT"DISTANCE TRAVALLED BY BODY";DISTANCR(A,T,U) END FUNCTION DISTANCE(A,T,U) S=U*T+1/2*A*T^2 DISTANCE=S END FUNCTION

DECLARE SUB SERIES() CLS CALL SERIES END SUB SERIES FOR I=9TO 1 PRINT I NEXT I END SUB

DECLARE SUB A(N) CLS INPUT"ENTER ANY NO";N CALL A(N) END SUB A(N) S=0 A=N WHILE N<>0 R=N MOD 10 S=S+R^3 N=N\10 WEND IF A=S THEN PRINT"THE GIVEN NNO IS ARMSTRONG"; ELSE PRINT"THE GIVEN NO IS NOT ARMSTRONG" END IF END SUB

DECLARE SUB PAL(N$) CLS INPUT"ENTER ANY WORD";H$ CALL PAL(N$) END SUB PAL(N$) FOR I=LEN(N$) TO 1  STEP-1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I IF N$=C$ THEN PRINT"THE GIVEN WORD IS PALINDROME" ELSE PRINT"THE GIVEN WORD IS NOT PALINDROME" END IF END SUB

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 GIVEN NO IS DIVISIBAL BY 13" ELSE PRINT"THE GIVEN NO IS NOT DIVIDIBAL BY 13" END IF END SUB

DECLARE SUB CHECK(N) INPUT"ENTER ANY NO";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" END IF

DECLARE FUNCTION FACT(N) CLS INPUT"ENTER ANY NO";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

DECLAFE SUB FACTOR(N) CLS INPUT"ENTER ANY NO";N CALL FACTOR(N) END SUB FACTOR(N) FOR I=1 TO N IF  N MOD I=0 THEN PRINT I NEXT I  END SUB

DECLARE  SUB VHECK(N) CLS INPUT"ENTER ANY 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 NEUTRAL" END IF ENS SUB

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

DECLARE SUB SQU(N) CLS INPUT"ENTER ANY NO";N CALL SQU(N) END SUB SQU(N) S=SQU(N) IF S=INT(S)THEN PRINT"SUPPLIED NO IS PEFECT SQUARE" ELSE PRINT"SUPPLIED NO IS NO PERFECT SQUARE" END IF END SUB

My father  When my father died I felt apart of me die with him, because I knew I would never see him again. Ever since that day my life has never been the same. I dont know what can i write about him but i asked with my mother about his habit. Dad plays an important role in every step their child takes. They’re like warriors who will fight every battle for the sake of their child’s happiness. A father’s love will never end until the end of time. However, some children grow up without a father, some lose their dad because of death like mine. Not everyone is given the chance to spend their entire life with their father because of so many different reasons that they have no control over. As i did not got a chance to spend with him and i dont know what can i write about him. mother used to say he was very kind and he was caring he used to care for our family. he used to help every one and he was little bit moody type but he was caring. now  i dont know about him and i feel bl

Visit to election commission On Tuesday, August 20 we student of grade 10 went to visit election commission with our social teachers  raju sir and vice principal sir murali sir. they gave us a various knowledge about the casting vote in election. and how the election is being is conducted in our country. and what are the main function of election Commission in election. Our class was about three hours long. they showed us a many slide and election video. There was the old stuffs like first ballot box, stamps, and paper and many valuable things were preserved there. our two groups was divided. at first our section took a class which was about. 45 minutes long. They told us about the election and its important to choose right leader for our country. and every citizen must caste vote to choose the right leader in our country. because there one vote can make win to leader. we played the games on there which was also related to the question of election. There was all three type of learni

Drugs abuse  On 2076/4/26 we were given a police class on the  issue of Drugs in todays world. as we know this is the advanced and new technology where people are very fast and forwarded. But as they are advanced they take drugs for fun or due to much pressure people take this for relaxation. but in our country drugs like ganza, heroine, coccaine this is strictly banned in our country but also people smuggled of drugs and take it by hiding in secret places where people dont go. he told us that to prevent drugs we should be busy in some works and make us busy. and we should not be addicted towards drugs because we might not be from rich family and might our cannot afford money for taking us to rehalibation center so he told us to be aware from such people who force us to take a drugs and other harmful products. he also share his forst experience of taking khaini when he was in grade 8 we shold avoid such things and shold not take it in  our life.. special thanks to our JM teacher

Monsoon Hiking One of the best trip of my life was this hiking where our school took us there on  2074/4/4 on friday. We went to telkot, trisuldada, changunarayan and muhan pokhari.  We went there from school this trip was really awesome and memorable our teacher were really freindly.  This is changu narayn temple this temple is one of the oldest temple of Nepal. this is made in pagaoda style this temple is very big and located in bhaktapur district. I like this temple very much. and on the way of changu narayan we saw many picture and painting  and mandala which were really awesome and wonder ful.  This are some picture i click it on the way.  we went to muhan pokhari and the water fall was really awesome. we played in water which was really fun. playing in water was most amazing part and intrested and fun part for me. this is our class group photo we took on rainfall. This hiking awas really awesome and attractive this hiking taught me the importance of the h