21st century classroom

Monday, 9 March 2020

My journey of jagat mandir school...

who took care of me to grow up anf to solve the problem of each and every question . And the most amazing person that i really thankful is our class teacher DEEPAK SHRESTHA who always used to scold but that scold contain lot of care and love for us which was really motivating and inspirational. I don't think i will be getting such teachet in my high school . Lastly i would like to say is school life is one of the important time so enjoy it fullyso you will not regreat after the school life

Everyone used to think Deepak sir is very strict.When we came to grade 6,deepak sir taught us computer. He was not that much strict but I always used to get scared when I talk with him. There was Sarita mam who used to teach us grammar and used to beat us if we don’t do homework. There was new teacher who was Khem sir. He taught us EPH. He was friendly with everyone and used understand our problem easily.

I found teaching and learning process is very good than my previous school. And the facilities provided by school is much more better with the conduction of various extra curricular activities and educational tour. After joining in this school From grade 8, I have able to collects a lot of happy memories in every moments. My most memorable events with my friends and teachers is of class 9 tour. We entertained 5 days in tour making a lot memory of different places. Another most memorable events is class 10 picnic in tokha with our teachers and friends.

Thursday, 31 October 2019

Wap to display 1,2,3,5,8, up to 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

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

Wap to find whether the given number is 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

Wap to check the 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

WAP 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

Wap to find the palindrome word

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

Wap To check whether the given no. is 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

Wap to find factorial of given no.

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

Wap to find whether the given no. 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

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

Wap to calculate distance travelled by 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

Wap to print only vowels from given word

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