35.DISPLAY  1,2,3,5,8….13^TH TERM.

DECLARE SUB SERIES ( )

CLS

CALL SERIES ( )

A=1

B=2

FRO I = 1 TO 13

PRINT A

PRINT B

C= A+B

A=B

B=C

NEXT I

END SUB

34 .Wap to check whether the given number is perfect square or not

34 .Wap to check whether the given number 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

        33. POSITIVE OR NEGATIVE OR NEUTRAL.

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

IF N>0 THEN

PRINT “POSITIVE NUMBER “

ELSEIF  N<0 THEN

PRINT “NEGATIVE NUMBER “

ELSE

PRINT “NEUTRAL”

END IF

END SUB

32.ERASE VOWEL FROM INPUT 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

31.  CHECK INPUT CHARACTER IS 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

30. DISPLAY 50,42,35,29,24…..10^TH 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

29.PALINDROME WORD.

DECLARE SUB REV (N)

CLS

INPUT “ENTER ANY NUMBER”;N

CALL REV (N)

END

SUB REV (N)

S=0

A=N

WHILE N<>0

R= N MOD 10

S= S*10+R

N= N\10

WEND

IF A=S THEN  

PRINT “THE GIVEN NO. IS PALINDROME”

ELSE

PRINT “THE GIVEN  NO. IS NOT PALINDROME”

END IF

END

28.PRIME OR COMPOSITE.

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

C=0

FOR I =  1 TO N

IF N MOD I = 0 THEN    C=C+1

NEXT I

IF C= 2 THEN

PRINT “PRIME NUMBER “

ELSE

PRINT “COMPOSITE NUMBER “

END IF

END

27.FACTORIAL.

DECLARE FUNCTION FACT(N)

CLS

INPUT “ENTER ANY NUMBER “;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

26.POSITIVE OR NEGATIVE

DECLARE SUB CHECK(N)

CLS

INPUT “ENTER ANY NUMBER “;N

CALL CHECK(N)

END

SUB CHECK(N)

IF N>0 THEN

PRINT “POSITIVE NUMBER “

ELSEIF N<0 THEN

PRINT “NEGATIVE NUMBER “

END IF

END SUB

25.DISPLAY 9,7,5,….1.

DECLARE SUB SERIES( )

CLS

CALL SERIES

END

SUB SERIES( )

FOR I= 9 TO 1 STEP -2

PRINT I

NEXT I

END SUB

24.CALCULATE DISTANCE TRAVELLED BY BODY.

DECLARE FUNCTION DISTANCE(U,A,T)

CLS

INPUT “ENTER UNIFORM VELOCITY”;U

INPUT “ENTER ACCELERATION”;A

INPUT “ENTER TIME “;T

PRINT “DISTANCE TRAVELLED=”;DISTANCE ( U,A,T)

END

FUNCTION  DISTANCE (U,A,T)

D=U*T+1/2*A*T^2

DISTANCE =D

END FUNCTION

DECLARE SUB DISP(S$)

23.PRINT  ONLY VOWELS FROM A GIVEN WORD.

DECLARE SUB DISP(S$)

CLS

INPUT "ENTER A WORD";S$

CALL DISP(S$)

END

SUB DISP(S$)

FOR I =1 TO LEN(S$)

B$= MID (S$,I,1)

C$= UCASE$(B$)

IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN

PRINT B$

END IF

NEXT I

END SUB

22.VOLUME OF BOX.

DECLARE FUNCTION VOLUME (L,B,H)

CLS

INPUT “ENTER LENGTH”;L

INPUT “|ENTER B READTH”;B

INPUT “ENTER HEIGHT”;H

PRINT “VOLUME OF BOX”;VOLUME(L,B,H)

END

FUNCTION VOLUME (L,B,H)

V=L*B*H)

VOLUME=V

END FUNCTION

21.TO CHECK WHETHER THE GIVEN NUMBER  IS COMPLETELY 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  “THE GIVEN NUMBER IS DIVISIBLE BY 13”

ELSE

PRINT “THE GIVEN NUMBER IS NOT  DIVISIBLE BY 13”

END IF

END SUB

20.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=”;C

END SUB

19.AREA OF 4 WALLS


DECLARE FUNCTION AREA(L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT 'AREA OF FOUR WALLS";AREA (L,B,H)
END


FUNCTION AREA (L,B,H)
A= 2*H(L+B)
AREA=A
END FUNCTION

18. AREA OF A BOX.

DECLARE FUNCTION AREA(L,B,H)

CLS

INPUT “ENTER LENGTH”;L

INPUT “ENTER  BREADTH”;B

INPUT “ENTER HEIGJHT”;H

PRINT “AREA OF BOX “;AREA (L,B,H)

END

FUNCTION AREA (L,B,H)

A=2*(L*H+B*H+L*B)

AREA = A

END FUNCTION

17.DISPLAY GREATEST AMONG THREE NUMBER .

DECLARE SUB GREAT(A,B,C)

CLS

INPUT “ENTYER ANY THREE NUMBER “;A,B,C

CALL  GREAT (A,B,C)

END

SUB GREAT (A,B,C0

IF A>B AND A>C THEN

PRINT “THE GREATEST NUMBER IS”;A

ELSEIF B>A AND B>C THEN

PORINT “THE GREATEST NUMBER IS”;B

ELSE

PRINT “THE GREATEST NUMBER IS”;C

END IF END SUB

16.DISPLAY  1,1,2,3,5,8…UP TO TEN TERM.

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

15.PRINT NATURAL NO. FROM 1 TO 5.

DEZCLARE SUB SERIES( )

CLS

CALL SERIES( )

END

SUB SERIES ( )

FOR I = 1 TO 5

PRINT I

NEXT I

END SUB

14.PRINT SIMPLE INTEREST .

DECLARE  FUNCTION  INTEREST(P,T,R)

CLS

INPUT “ENTER  PRINCIPAL”;P

INPUT “ENTER TIME”;T

INPUT “ENTER RATE”;R

PRINT “SIMPLE INTEREST=”;INTERESTG(P,T,R)

END

FUNCTION INTEREST(P,T,R)

SI=P*T*R/100

INTEREST=SI

END FUNCTION

13.CONVERT TEMPERATURE IN CELCIUS IN FAHRENHEIT.

DECLARE FUNCTION FAHRENHEIT©

CLS

INPUT”ENTER CELCIUS”;C

PRINT “CELCIUS IN FAHRENHEIT=”;FAHRENHEIT©

END

FUNCTION FAHRENHEIT©

F=9*C/5+32

FAHRENHEIT=F

END FUNCTION

12.SUM OF DIGIT.

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 DIGIT=”;S

END SUB

11.INPUT STRING AND COUNT TOTAL NO. OF CONSONANT

DECLARE FUNCTION DISP$(N$)

CLS

INPUT “ENTER ANY WORD”;N$

PRINT “CONSONANT=”;DISP$(N$)

END

FUNCTION DISP(N$)

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  V$=V$+B$

NEXT I

DISP$=V$

END FUNCTION

10.PRINT FIRST TEN ODD NUMBER .

DECLARE SUB SERIES( )

CLS

CALL SERIES

END

SUB SERIES( )

A=1

FOR I = 1 TO10

PRINT A

A=A+2

NEXT I

END SUB

9.VOLUME OF CYLINDER.

DECLARE FUNCTION VOLUME(R,H)

CLS

INPUT “ENTER RADIUS”|;R

INPUT “ENTER HEIGHT”;H

PRINT “VOLUME  OF CYLINDER”;VOLUME(R,H)

END

FUNCTION  VOLUME (R,H)

V=22/7*R^2*H

VOLUME=V

END FUNCTION

8.AREA OF TRIANGLE

DECLARE FUNCTION AREA (B,H)

CLS

INPUT “ENTER BASE”;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 “ENTERT NAME”;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 STRING IS “;C$

END SUB

6.COUNT TOTAL NO. OF VOWELS IN A WORD.

DECLARE  FUNCTION COUNT(N$)

PRINT “TOTAL NO. OF VOWELS=”;COUNT(N$)

END

FUNCTION COUNT(N$)

C=0

F OR 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

COUN T C

END FUNCTION

5.AREA OF 4 WALLS

DECLARE SUB AREA N(L,B,H)

CLS

INPUT “ENTER LERNGTH”;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 FOUR WALLS=”;A

END SUB

4. COUNT TOTAL NO. OF WORDS IN SENTENCE

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

3.AREA OF CIRCLE

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

2.Print total number 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$= “O” OR C$= “U” THEN C=C+1

NEXT I

PRINT “TOTAL NO. OF VOWELS”;C

END SUB

QBASIC PROGRAM

1. Average of three number

DECLARE  FUNCTION  AVERAGE (A,B,C)

CLS

INPUT “ENTER ANY NUMBER”;A,B,C

PRINT “AVERAGE OF THREE NUMBER=”;AVERAGE(A,B,C)

END

FUNCTION AVERAGE (A,B,C)

AVG=(A+B+C)/3

AVERAGE=AVG

END FUNCTION

Experience on visiting election commission

Experience on visiting election commission
On the day of tuesday 3 rd of bhadra we went on election commission .All the students of grade 10 were taken there .We went election commission on 1st period at 10:00 am

After we reach there we were divided into two groupsection a and section b.Section a students were taken to play game and b section were taken to visual room.I was i section a group.. After 30 minutes,we went to documentary room where we knew about about various facts of election,leaders' history and democracy.

my experience were very good. I learn many good things .I learn how to cast vote and which vote are valid and which not valid.

My Father

My Father

A father is a male parents of the family who guides,loves and care his childrenall through the life.He always acts as a pillar of strength and support for his children.A kid generally attaches from his/her parents from childhood. Children generally understand their father a real hero and a good friend of the life who always instruct me to go on the right path.

MY FATHER IS VERY KIND HEARTED PERSON AND MY REAL HERO AND MY BEST FRIEND.HE ALWAYS SHARES WITH ME HIS ALL BAD AND HAPPY MOMENTS.HE TELLS ME THAT HE DISCUSS HIS ALL LIFE EVENTS TO ME TO GIVE ME EXPERIENCE AND TAKE RIGHT STEP IN THE ABSENCE OF HIM.

Finally i can say that my father is the best father in the world.I see him as my role model of my life.

my experience on police community partnership

My experience on police community partnership

From,police community partnership i learn to fight against bad activities.Not to  be involve in bad activities.I learn not to consume alcohol,drugs etc.In case some one force me to take then immediately inform to parents or police.

I learn that not to buy and sell products which are harmful for health. Be far from bad friend circle.Do not buy alcohol ar drugs you may be punish from police.If police find us selling drugs then according to the weight of drugs you may be punish.If 1 gram then 6 months jail and 2000 rupees fine.

In this way i learn many new things from this class.

Janai purnima and rakshya bandan

 Janai purnima and rakshya bandan

Janai Purnima is on Shrawan Purnima. This year Janai Purnima is on Bhadra 30, 2076.On this day boy change their janai and put new one.A day before Janai purnima the persons wearing janai should make themselves 'clean' by shaving or cutting hair and take a good bath. Janai is regarded as symbol of body, speech and mind, and when the knots are tied the person wearing it is supposed to gain complete control over each of them.

Rakshya means "to protect" and bandhan is "tie" or "bond". Rakshya Bandhan is a bond or tie of protection. This thread is which is tied around the hand is called Doro.This festival is also marked by the tying of a rakhi,or holy thread, by the sister on the wrist of her brother.  The brother in return offers a gift to his sister and swears to look after her as she presents sweets to her brother. Rakhi provided they commit to a lifelong obligation to provide protection to the woman or girl.

Hike from changunarayan tomuhan pokhari

On july 20,we all student we on hiking from changunarayan to tomuhan pokhari.We  went changu narayan through bus. We saw beautiful scenary whilegoing to tomuh pokhari.We went changu narayan with our class teacher and our principal and other teacher.We walk around 4 hour to reach tomuhan pokhari . 

We take our food at sharp 11:00clock.After that we again started to walk to reach the place of waterfall.Some of the students started playing their but some of the students didnot play.

While returning from their some of the students fell down due to slippery road.we came down with the help of teacher and other people.

So,this was end to our journey. We had lot of fun . 

EXPERIENCE ON SERICULTURE FARMING

Sericulture farming

We went sericulture farming place on 31 jestha on the day of friday.

I learn many things from this sericulture farm. I knew that the common name silkworm is used to identify the larva stage of the moth Bombyx mori. The SilkWorm larval life has five instars,withskinmolts,to complete one generation of the species, which are: ova,larvae, pupae, and imago.the silkworm was introduced first in china.The larva stage of silkworm produce coocon which provide silk.

I knew that silkworm eats mulberry leaves.Silk is produced by keeping the coocon inside the temperature of 27 to 30 degree celcius.In this way silk is produced.

My experience was very good .So,in this way i gained knowledge about silk.

Experience on police community partnership

My experience on the class on police community partnership

After taking this class i learn more about computer crime.It told us to dial up emergency number when we are in trouble.And,to fight against criminal and say no to bad activities.We should not spread false information through social media. If we are being torture then we should fight against it. 

We should contact to police if we are told to do bad things.We should verify any information before using it.We should not share our password to any one ,even to our family and friends.

This program was really helpful .It taught us many important things. 

Aadhiko Manoram Nritya

"AADIKO MANORAM NRITYA

On ,Thursday we all students of grade 10 along with grade 8 and 9 were taken to watch a drama called "AADIKO MANORAM NITYA"

    We all students got to know that we will be taken to watch a  drama  of around 1 and half hour.So all students of our class were excited but more than them I was really very overjoyed because I love watching movies .So on Thursday,we all have our tiff-in Then we move towards SHILPEE THEATRE,Battisputali,the destination of the theater

After reaching there director of the show made us play interesting games.  And ,after that the drama started.The story was all about the teens like us who have been going through various problem. And in this stage the teens prefer to spend more time with pals than family and when they don't get any friend to whom they can share their happiness and sorrow then that will be the reason for them to feel loneliness in their life.And we should make good friends to share our thoughts .But if we have bad friends then they will make us in trouble.So ,the drama ends the director told us to tell something about drama and priyanka stood up.She describe something about drama.After that we came outside made line and went back to school.