#33 TO FIND 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

#32 TO DISPLAY 1,2,3,5,8 UPTO 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

#31 TO CHECK WHETHER THE GIVEN NO 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

#30 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

#29 TO CHECK 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

#28 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

#27 FIND PALINDROME OR NOT

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

#26 FIND 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

#25 FIND FACTORIAL OF GIVEN NUMBER

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

#24 CHECK WETHER THE GIVEN NUMBER 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

#23 display 9,7,5,4.....1

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I = 9 TO 1 STEP-2
PRINT I
NEXT I
END SUB

#22 FIND THE DISTANCE TRAVELLED BY A 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

#21 PRINT ONLY VOWELS FROM GIVEN WORDS

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

#20 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

#19 CHECK WETHER THE GIVEN NO IS 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

#18 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

#17 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

#16 TO DISPLAY GREATEST AMONG 3 NUMBERS

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

#15 WAP TO DISPLAY1,1,2,3,5,8.....UPTO 10thTERM

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

#14 PRINT SIMPLE INTEREST

DECLARE FUNCTION INTEREST (P,T,R)
CLS
INPUT " ENTER PRINCIPAL";P
INPUT " ENTER INTEREST";I
INPUT "ENTER TIME";T
PRINT "SIMPLE INTEREST";INTEREST(P,T,R)
END

FUNCTION INTEREST (P,T,R)
I=P*T*R/100
INTEREST=I
END FUNCTION

#13 CONVERT TEMPERATURE IN CELSIUS

DECLARE FUNCTION CONVERT (N)
CLS
INPUT "TEMPERATURE IN CELSIUS";N
PRINT "CELSIUS INTO FARHENHEIT";CONVERT(N)
END

FUNCTION CONVERT (N)
F = 9*C/5+32
CONVERT = F
END FUNCTION

#12 SUM OF DIGITS

DECLARE SUB SUM (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 DIGITS";S
END FUNCTION

#11 INPUT STRING AND COUNT TOTAL NUMBER OF CONSONANT

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY WORD ";N$
PRINT "TOTAL NO OF CONSONENT =";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" AND C$ < >"E" AND C$ < >"I" AND C$ < >"O" AND C$ < >"O" C$ < >"U" THEN C =  C + 1
NEXT I
PRINT "TOTAL NO OF CONSONENT";C
END SUB

#10 PRINT FIRST TEN ODD NUMBERS

DECLARE SUB SERIES ( )
CLS
CALL SERIES ( )
END

SUB SERIES ( )
A=1
FOR I = 1 TO 10
PRINT A
A = A + 2
NEXT I
END SUB

#9 VOLUME OF CYLINDER

DECLARE FUNCTION VOL (R,H)
CLS
INPUT "ENTER RADIUS";R
INPUT "ENTER HEIGHT";H
PRINT "VOL OF CYLINDER=";VOL (R,H)
END

FUNCTION VOL (R,H)
V= 22 / 7 * R ^ 2 * H
VOL=V
END FUNCTION

#8 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)
A = 1 / 2 * B * H
AREA = A
END FUNCTION

#7 DISPLAY REVERSE OF INPUT STRING

DECLARE SUB REV $ (N$)
CLS
INPUT "ENTER ANY NUMBER ";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 "REVERSE OF INPUT STRING";R
END SUB

#6 COUNT TOTAL NO OF VOWEL IN WORD

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NUMBER";N$
PRINT "TOTAL  NO OF VOWELS IN WORD";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" AND C$="E" AND C$="I" AND C$="O" AND C$="U" THEN C=C+1
NEXT I
COUNT = C
END FUNCTION

#5 AREA OF 4 WALLS

DECLARE SU 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

#4 COUNT TOTAL NO OF VOWELS IN SENTENCE

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NUMBER ";N$
PRINT "TOTAL NO OF WORDS ";COUNT(N$)
END

FUNCTION COUNT (N$)
C=0
WHILE N<>0
R = N MOD 10
C = C + 1
N = N  \ 10
WEND
COUNT = C
END FUNCTION

#3 AREA OF CIRCLE

DECLARE SUB AREA (R)
CLS
INPUT "ENTER RADIUS";R
CALL AREA (R)
END

SUB AREA (R)
R = 22 / 7 * R ^ 2
PRINT "AREA OF CIRCLE";A
END SUB

#2 TOTAL NO OF VOWELS IN WORD

DECLARE SUB COUNT (N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL COUNT (N$)
END

SUB 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$="0"OR C$="U" THEN C = C+1
NEXT I
PRINT "TOTAL NO OF VOWELS";C
END SUB

#1 AVERAGE OF 3 NUMBERS

DECLARE FUNCTION AVG (A,B,C)
CLS
INPUT"Enter first number";A
INPUT"Enter second number";B
INPUT"Enter third number";C
PRINT"Average of 3 no";AVG(A,B,C)
END

FUNCTION AVG (A,B,C)
Av=(A+B+C)/3
AVG=Av
END FUNCTION

my father

My father name is bharat chaudhari.He is a teachers.He do work for us.A father is the parent of a child. Besides the relationship of a father to his children, the father may have a parental, legal, and social relationship with the child that carries with it certain rights and obligations. An adoptive father is a male who has become the child's parent through the legal process of adoption. All fathers have responsibility to take care of their family 👪 and that's what my father does.My father complete every need of my family.All children should understand what their father is doing for them.Father is also a friend. And I love my friend(father) for supporting me.Thank you Father.

Experience of Election commission

Hi i am Nishan Chaudhari from grade 10.I would like to share some experience regarding election commission. We were given class in Jhamsikhel on 3rd of bhradha. It was around 4 hours class in this class we had various learning session like interactive pads, audio room, projector room, visual room. We were divided in groups and send to the various sesion as the section b first went to visual room and we went in interactive room. The interactive pads were we have to answer some questions asked by the system and we get points according to the correct answer we give. We rotated the turns in the interactive room, and after each session we had to give some answer to the question provided in the paper which were given to us by the staffs. Then after the 25 minutes of the class we head back to the projector room and the section switched the room in simple words. In the visual room we were shown the history of the election and types of election held in nepal the mass movements and some leader chosen via election. Later after the both section were merced and we were given the joint class in which were the madams gave us knowledge on the various types of election their process{pre, during, after}.


Then we did a demo election between ourself in which the candidates were laxmi, prerana and simson.  We did it by some electronic equipments the result were as expected the simson  won by 10 votes as he scored 24 and laxmi and prerana scored 14 votes. And at last all the teacher present with us[Murali sir and raju sir] Gave their opinion and we returned back to school.

Experience of police community partnership

Hi I am nishan from grade (x) here to share you my experience.We got to see an awareness video related to drug addiction in which a boy falls into addiction and have him self found in a really bad time as his friend stopped supplying him free drugs and he started to steal mom dad money for buying  the drug later the mom and dad found it and he was taken to the rehab and was successfully came out as a new fresh person and got his gf back. I knew a lot of things from that class never the less it was out 2nd class and the previous one was of the cyber crime. I knew that keeping a little quantity of drug and can lead to punishment by the government. So, this was the experience i gained.


They provided all the information on the topic starting from basics such as introduction on drug, it causes, it effects and its preventive measures. 

We got many knowledge from there and I will like to thank our computer teacher Deepak sir for giving us chance to get knowledge by police community partnership.

Experience of monsoon Hike

We reached our first destination around 10 which was the Changu Narayan Temple. We were amazed by the beauty of the temple it is said that the Temple is old than than The USA. It is believed to be made by the king Mandev. Then after 30 minutes we moved on to the Trisuli Dada which was around 45 minutes walk. We enjoyed the scenery of the Kathmandu valley from the top. There were so many buildings but very less trees.Mohan Pokhari which our teachers have told us to be an amazing destination. We went through jungle, roads clicking picture and sun was on our head so we wore umbrella.After that we stopped in a place where there was a drinking water we all filled up our bottles washed our face and rest a while while resting we share all the photo we heaved clicked together. Then we went through the road of telkot and walked a quite downhill. We saw many beautiful flowers clicked some of them to and they all were really beautiful.
The experience was memorable and this is one of my best experience of my life.This is the last hiking with my school friends Thank you...

Experience of khopasi

Class 10 students went khopasi to watch and learn about silk worms.The weather was very hot that day. We were all sweating due to the hot temperature. I was clicking pictures in the bus. I also captured some comedy pictures of my friends. And finally, we reached to our.destination We reached there at around 11:30 am.Then we were shown the eggs of silkworm in which I got to know that yellow eggs are unfertilized eggs whereas the black
Next we clicked some group photos. Then, we were shown the smoker where the eggs are kept to be hatched. We were shown the place where larvae were fed. We even saw the machine with the help of which the silk thread is produced. Then we were taken to the class to get more informed regarding the life cycle of silk worm where we got to know various things. We got to know that silkworm performs the complete like cycle. Eggs’ laying is the first stage of life cycle of silkworm in which female silkworm lays about 300 pin head sized eggs.

Experience of police community

They gave us knowledge about many things regarded with the crime. We  know that there is a vast difference between a criminal and a suspect. We were taught about the things that we should do after we see any kind of crime. We were even provide by an emergency call no. so that we can contact the police before or after any crime takes place. Not only this much we got many information regarding the process of crime investigation as well. Even we got many information regarding cyber crimes as well. We must not spend too much time in electronic gadgets. We should remain alert while using the internet. We have keep in mind how much privately we chat online there is always one sever who receives the messages as well. So, we have to be careful while chatting. Even many criminals are using the internet as well we have to be careful from such criminals as well. We mustn’t accept the friend request of any stranger. We shouldn’t believe on any online opportunity until and unless we are totally known about it.

Experience of Drama

             Adhi ko manoram Nritya


 It was all about the problems that we are able to see in this stage known as teenage. It was really a nice drama I had ever seen. Being a teenager I got to know about various things related to us. The thing I loved in the drama was the presentation. We know being a teenager we have to face a lot of obstacles. We experience a kind of pressure from family, teachers and friends. We teenagers like to spend our time with peer groups rather than with our family. This is the age when teenagers start involving in bad things getting influenced by bad peer groups. Finally, the play ended. At last, the director of the play insisted our row to speak some words for the play. I was really nervous because I am not habitual to speak in front of such huge mass. One of the students of next school spoke about the knowledge she gained from drama. I and my friends in the same row insisted one of our friends to speak something about the drama. She has got a good speaking skill. So, she stood up and spoke very beautifully. That day I was really ashamed of myself but in the same way I was proud of my friend.

Finally after watching drama we returned to our school by walking

Experience of tour

The  excitement of the tour made me crazy. The door of the ninth graders when they were told about the tour. The school administration decided to take us on a tour on the date of 2075/9/25 to 2075/9/29. This news made all of the students so excited. Out of 52 students 27 of us were ready for the tour, 7 teachers joined us and there were 2 brothers . So, altogether we were 36 in total. In no time the day arrived.

We were told to arrive the school at 5:30 a.m. The weather was extremely cold. I had decided the outfit the previous day. As planned, I wore my outfit. I didn't had meal After a 10 minutes’ walk I reached to the school. We waited for each and every student to come. On the same day our friend (Swosteeka Thapa) had got birthday so I wished her. Then, I greet my teachers and at around 6:35 am, we left the schoo

                     Fist day of tour

We want to chitwan.During our journey we reached manakamana at 10:47 am. And after a lot of tiring moments we got to know that we have entered the chit wan district at 11:40 am. Finally, we reached our destination (Jungle Sunset Camp) at 12:22 pm. And after reaching there we went to jungle safari at 12:45 pm.

There we saw many animals as well as birds. We had a lot of fun. There we clicked some photos near lake. Then, we returned from there at 3:05 pm. 

After that we went to watch tharu culture at night.

                    Experience of lumbini

We saw the statue of lord Krishna, Gautam Buddha and so on. Then after visiting there we had our morning snacks in a hotel placed opposite to it. After having snacks we girls made some videos for tik tok. Then we continue our journey. During the journey I felt bored so to make it exciting I started counting the trucks which we overtake and I found our school bus overtook 15 trucks. Then after a lot of exhausting journey we finally reached Lumbini. There we had our meal and went to see the statue. And we slept in butwal while returning. 

  

                   Experience of pokhara 

We went pokhara and we all gathered together and went to Sarangkot to enjoy the view. There we clicked some group photos. We saw the nice view of mountains and sunrise. After enjoying the view we went to Bindawasini Temple. And after that we had our morning snacks. After having snacks we went to the Mahendra cave where I put the tika from the pujari. Then to come out from the Maherndra cave we went to its exit part where we had to use our brain. Then after Mahendra cave we went to the Bat cave. After waiting a lot in queue finally our turn came for the exit. 

We went many caves like Mahendra cave,bat cave , siddha cave.