Check input character is capital or small using function

DECLARE FUNCTION CHECK$(A$)
CLS
INPUT "ENTER ANY CHARACTER"; A$
PRINT "THE ENTERED CHARACTER IS "; CHECK$(A$)
END

FUNCTION CHECK$ (A$)
C = ASC(A$)
IF C >= 65 AND C <= 91 THEN
CHECK$ = "UPPERCASE"
ELSEIF C >= 97 AND C <= 122 TCHECK
CHECK$ = "LOWERCASE"
END IF
END FUNCTION

Erase vowel from input string using function

DECLARE FUNCTION DISPC$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT " AFTER EARISNG VOWELS = "; DISPC$(S$)
END

FUNCTION DISPC$ (S$)
FOR I = 1 TO LEN(S$)
 B$ = MID$(S$, I, 1)
 C$ = UCASE$(B$)
 IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" THEND$ = D$ + B$
 END IF
NEXT I
DISPC$ = D$
END FUNCTION

Display 50,42,35,29,24...10item

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

Perfect square no using function

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

Prime or composite using sub

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

Positive or negative using 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

• END SUB 

Positive negative or neutral using 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

Factor using 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

Factorial using function

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

Palindrome no of string

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

Armstrong no

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

Display 9,7,5,.....1using sub

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES
FOR I=9TO 1
PRINT I
NEXT I
END SUB

Distance traveled by body

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

Print only bowel from a given word using sub

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

Volume of box using 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

To check whether the given no is completely divisible by 13 or not using 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

Circumference of circle using sub

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

Area of 4wall using function

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

Area of box using 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

Greatest among three no using sub

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

Display 1,1,2,3,5,8.......10item

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

Print natural no from 1to 5 using sub

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I=1 TO 5
PRINT I
NEXT I
END SUB 

Print simple interest using function

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

Convert temperature in Celsius in farenheit using 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

Sum of digit using sub

DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO";N
CALL SUM(N)
END

FUNCTION SUM (N)
S=0
WHILE N<>0
R=N MOD 10
S=S+R
N=N\10
WEND
PRINT"SUM OF EVEN DIGIT";S
END SUB

Input string and count total no of constant (function)

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

Print first ten no using sub

DECLARE SUB SERIES ()

CLS

CALL SERIES

END

SUB SERIES ()

A=1

FOR I=1 TO 10

PRINT"A

A=A+2

NEXT I

ENDSUB

Volume of cylinder using 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

Area of triangle (function)

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

DISPLAY REVERSE OF INOUT STRING(SUB)

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

Count total no of vowel in a word(function)

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

Area of 4wall(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

Area of circle(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

Print total no of vowel in a given word(sub)

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

Average of 3no(function)

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

My Father(My World)🌍️

                            My Father 
Dad is my real hero because he is the most special person in my life. My father is every thing for me.
My Father name is Ishwor Karki. He is 40 years old.He is an shoopkeeper.He was born in 2035/09/10.He is very loving,careing and gental.But I belive him more than god because first he come and then god.He has done very hard work for me and for brother.I am very luckey to have my father he love me a lot.He does not shows his hardwork,pain.That he has faced just to make us happy.He is superman man for me.My daddy is very brave person because he has done so much hardwork for us to study.
So spend you time with your father because you never know what will happen tomorrow.At last,Ilovemyfather!

                                🌏️❣️

Experience of visit of Election Commission

                       Experience of visit of 

                       Election Commission 

We all student of grade 10 anf social teacher(Raju Sir and with Murari sir).We all went to kantipur to visit Election Commission. We moved from school at 10:00 am anf we reached at Election Commission at 20:45 am. We saw all the materials which were used in the pasr for elaection purpose. We watched some documentry which was related to the election system of past and was related to all movement against the Rana,panchayat system and democracy system. After looking documentry we playrd game which was related to the Election general knowledge. There was visual,audio and other way of learning about the election system. There was group divided according to the section`Rara´ and `Tilicho´.

 After playing game we went to one room for knowing more about the election. We learned what to do?How to do?After ,Before

and during the election we also learned and got information about the qualification for being candidatite and prooer age of being the member of National Assembly and of House of Representives. After learning about out the Election system. We also did practical of Election one demo Election. We also gave our vote to the candidate for election voting machinr which eas very effective and eady system.

After learning about the election. We went back to our school. We would like to thank our school administration for providing this opportunities .We learn and gain alot of things.

Experience of Counselling class

                    Drug alcohol addiction

On Sharawan 26,we garde 10student has counselling class on the topic"Drug alcohol Addiction. The class was given to us by the community police. We learned regarding its origin,uses and effects.He taught us about what the drugs are how its damages human life.He also told us about his experience about how he tryed marijuam.He also taught us that this habit can also be caused due to family preasure,perr pressure and other. They taught us showed us picture of people who were addicated to using various types of drugs and were badly infected. The class gave us awareness about how this drug affect human life and gives a person deayh easily.We also learned about its types and how it affects a person family. It also affects our brain and makes a human being to lose the capacity of creativity.We also learned that how many dors drug can affect a human life.

I would like to thank our school teachers for giving us counselking class.

              Hike from changunarayan to

                         Muhanpokhari

On the day of July 20,we all students of grade 10  were taken to hiking from Mulpani-Changu Narayan to MUHAN Pokhari.This hiking has left an incredible spot in our memories because it was full of joy,excitement,adventure and exhaust.This day we were extremely happy because this hiking was being postponed since so long.

At 7:50 we started our journey. at around 9 am we reached to the place from where we were going to start our hiking. With full of excitement we started our journey.After 30 to 45 minutes of walk we reached changunaryan temple.We went inside and worshipped the god and pray for the happy life.We clicked some pictures and started our walk to our next destination.In the middle of walk there was a open place there we had our breakfast. Then after 30 minutes of walk we reached to one huge ground and we sat there for a while.We all were so tired and the weather was also very hot.

 Then returned back from the place.We saw the way was tAnd Then returned back from the place.We saw the way was too slippery but then we started to walk most of us fell down.Opening of falling started 

from our dearest friend aarati then along with me priyanka,akriti,krishna,sujan fell down.Our teachers helped us a lot to come out of the way.Then  reached to a waterfall and again played in water and enjoyed a lot.And the hike was over.We went back to the bus.

Sericulture farm(Khopasi,Panauti)

Grade 10 visit to Sericulture Farm

Sericulture is considered to be one of the major important content of biology for grade 10 students. Students visited sericulture farm on 14 June 2019, Friday located at Khopasi, Panauti. In the trip to sericulture student observed and learned about different stages of lifecycle of silkworm and its feeding process. They observed morphology and extraction process of the silk thread through the cocoon.

The silkworm (Bombyx mori) is the larva or caterpillar of the Bombyx mori moth. Silk has been made for at least 5000 years in China. The moth is important because it makes the silk, and no longer lives in the wild. It is entirely dependent on humans. Silkworms eat mulberry leaves, and were native to northern China.

Silkworm is very useful for human beings and silk thread is obtained from the cocoon. Silk is used to prepare beautiful and durable clothes like sari,tie,etc. and it is also used to prepare parachute, special type of type forcats, the outer covering of telephone wire,etc. 

Experience about cyber crime

                           Cyber crime

On baisakh 31 we learn about the cyber crime and it effect on school by police man who came to our  to give us knowledge about cyber crime to Childern and mostly teenage share their password with their friends and other which is most dangerous ).



On baisakh 31 we learn about the cyber crime and it effect on school by police man who came to our  to give us knowledge about cyber crime to Childern and mostly teenage share their password with their friends and other which is most dangerous.


The class was very useful and mostly for grade 10 student. We learnt many things from the class.

AADHI KO MANORM NITRA

🔻MY DRAMA EXPERIENCE🔻

🔺AADHI KO MANORM NITRA🔺

🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽🔽

Everybody should have equal rights.The drama showed how a student grows up with friends which may lead to a wrong path which is just the beginning of the troubles. The troubles continue as students enter adolescence where they have mixed emotions and mood swings ever once a while. They feel the pressure of studies and the worries of nobody understanding extremely as this age and might turn depressed and inclined towards gadgets and drugs. And how they gradually spoil their life.The drama was extremely related to me because the pressure of struggles come to me a lot. Also I am extremely lazy and spend a lot of time sleeping and listening to music. I also know people who have spoiled their future by getting in a bad company. Many have family problems. The drama had a lot to teach. It showed where we're actually at fault and also where our parents were. It showed why students turn out to be depressed at this stage and how the pressure eats them up. I've learnt to be able to know where we should be careful and when to pay extra attention. We should make friends whom we can trust. We should open to our family if not then our friends. We should avoid bad company and know who to be friends with and open up. The so-called 'pressure of studies' should be taken positively so should our extra caring parents be as its for our bright future. We should know that the 'love' at this age cannot be carried on till the future as it wont last for being an expected guest with adolescence. We should control our temper as well as tell our guardians to understand our problems by opening up with them.