o n e d a y a t a t i m e .
Tuesday, March 10, 2020
Journey of JMSS
I grow up so fast. 13 years of my life has passed in just a blink of eyes. Those 13 years were my school years it give me goosepump just by remembering those passed days. to be honest it is the most unforgetable and heartwarming memories with friends. It's not something i wait for, it just kinda happens. I don't remember my very first day of school. But i still have memories of class nursery the way we used to play with blocks and how Dhana mam used to teach us.
My picnic experience .
One of the most awaited moment of this year. On the day of sunday, 9 february 2020 we the students of grade 10 went on picnic. We went to the place named tokha which was about 1hour far from chabahil. We went there on bus while going tp pur destination we sang and we were excited to know our destination because it was surprise for us.
After we reach there, we started ti unload the things and material from bus and we headed to the picnic spot it was about 3mins of walk from bus parking. We feel so fresh because the air presence in there is less polluted then here. The picnic spot was near the jungle area. It was a perfect spot to make memories and enjoy the time with those people with whom we have spent years and years of friendship. After we reach the spot we started to manage things and some of ue started to make breakfast some group of girls started to make milk tea and some group ko boys help to clean the utensils. We work as a team in picnic. We helped eachother and made a beauiful memory in a group. After that we all sat and have our breakfast than we wash the plate and then we took a short break and click photos and some girls started to shoot tiktok video and we clicked the group photo.
After that, we started to prepare for lunch. The menu of lunch was prawn and other testy food. We divided ourself into different groups and worked as a team some of us was in cutting vegetables and some were in cooking and some were in washing dishes and some were serving food. We had a beautiful and memorable time with our teaschers. After we had our lunch we again wash plate and after that we dance like crazy we all dance and sand songs. We saw our teachers in totally different nature. They were acting different than how they act in clasroom. We dance in a big circle we all enjoyed the time. Then we again started to prepare food we were so hungry we prepared pulayou, tarkari, aachar and other food items. It was so tasty we enjoyed the food. Then we went on a small hike we were so tired but also we went on walk. We walk and our deepak sir made tiktok . We click group photos and we also went on temple. It was really good time. After we reach on spot after our small hike we played a game like students game was played by teachers and teachers game was played by students while we were playing games i also won a cup it is really special for me. After we played game. We have desert and again started to manage the things and started to load the things to bus. After we finish loading the things we went back to our school with a lots of beautiful memories .While going back to school on the way we dance and sang song inside the bus. It was really a unforgetable mrmory. we have made a beautiful and it is the most special and unforgetable for us.
After we reach there, we started ti unload the things and material from bus and we headed to the picnic spot it was about 3mins of walk from bus parking. We feel so fresh because the air presence in there is less polluted then here. The picnic spot was near the jungle area. It was a perfect spot to make memories and enjoy the time with those people with whom we have spent years and years of friendship. After we reach the spot we started to manage things and some of ue started to make breakfast some group of girls started to make milk tea and some group ko boys help to clean the utensils. We work as a team in picnic. We helped eachother and made a beauiful memory in a group. After that we all sat and have our breakfast than we wash the plate and then we took a short break and click photos and some girls started to shoot tiktok video and we clicked the group photo.
After that, we started to prepare for lunch. The menu of lunch was prawn and other testy food. We divided ourself into different groups and worked as a team some of us was in cutting vegetables and some were in cooking and some were in washing dishes and some were serving food. We had a beautiful and memorable time with our teaschers. After we had our lunch we again wash plate and after that we dance like crazy we all dance and sand songs. We saw our teachers in totally different nature. They were acting different than how they act in clasroom. We dance in a big circle we all enjoyed the time. Then we again started to prepare food we were so hungry we prepared pulayou, tarkari, aachar and other food items. It was so tasty we enjoyed the food. Then we went on a small hike we were so tired but also we went on walk. We walk and our deepak sir made tiktok . We click group photos and we also went on temple. It was really good time. After we reach on spot after our small hike we played a game like students game was played by teachers and teachers game was played by students while we were playing games i also won a cup it is really special for me. After we played game. We have desert and again started to manage the things and started to load the things to bus. After we finish loading the things we went back to our school with a lots of beautiful memories .While going back to school on the way we dance and sang song inside the bus. It was really a unforgetable mrmory. we have made a beautiful and it is the most special and unforgetable for us.
thankyou!
Saturday, October 26, 2019
QBASIC
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
CLS
INPUT "Enter radius"; R
CALL AREA (R)
END
SUB AREA (R)
A = 22 / 7 * R ^ 2
PRINT "Area of circle ="; A
END SUB
Count total no.of
words in a sentence (FUNCTION)
DECLARE FUNCTION COUNT
(A$)
CLS
INPUT " Enter a sentence"; A$
PRINT " Total no. of words ="; COUNT (A$)
END
FUNCTION COUNT(A$)
C = 0
FOR I = 1 TO LEN (A$)
B$ = MID$ (A$, I, 1)
C$ = UCASE$ (B$)
IF B$ =" " THEN C = C + 1
NEXT I
COUNT = C
END FUNCTION
CLS
INPUT " Enter a sentence"; A$
PRINT " Total no. of words ="; COUNT (A$)
END
FUNCTION COUNT(A$)
C = 0
FOR I = 1 TO LEN (A$)
B$ = MID$ (A$, I, 1)
C$ = UCASE$ (B$)
IF B$ =" " THEN C = C + 1
NEXT I
COUNT = C
END FUNCTION
Area of 4 walls(SUB)
DECLARE SUB 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
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
Total no. of vowels in
given words (FUNCTION)
DECLARE FUNCTION COUNT
(N$)
CLS
INPUT " Enter any word ";N$
PRINT "Total no. of vowels ="; 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" OR C$ = "E" OR C$ = "I" OR C$="O" OR C$ = "U" THEN C=C+1
NEXT I
COUNT = C
END FUNCTION
CLS
INPUT " Enter any word ";N$
PRINT "Total no. of vowels ="; 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" OR C$ = "E" OR C$ = "I" OR C$="O" OR C$ = "U" THEN C=C+1
NEXT I
COUNT = C
END FUNCTION
Display reverse of
input string (SUB)
DECLARE SUB REV$ (N$)
CLS
INPUT "ENTER A STRING "; N$
CALL REV$(N$)
END
SUB REV$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$( N$, I, 1)
D$=D$+B$
NEXT I
REV$=D$
END FUNCTION
CLS
INPUT "ENTER A STRING "; N$
CALL REV$(N$)
END
SUB REV$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$( N$, I, 1)
D$=D$+B$
NEXT I
REV$=D$
END FUNCTION
Area of triangle
(FUNCTION)
DECLARE FUNCTION AREA
(L, B)
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH "; B
PRINT " AREA OF TRIANGLE = "; AREA ( L, B )
END
FUNCTION AREA ( L, B)
A = 1/2 * B * H
AREA = A
END FUNCTION
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH "; B
PRINT " AREA OF TRIANGLE = "; AREA ( L, B )
END
FUNCTION AREA ( L, B)
A = 1/2 * B * H
AREA = A
END FUNCTION
Volume of cylinder (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
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
Print first 10 odd
numbers(SUB)
DECLARE SUB SERIES
( )
CLS
CALL SUB SERIES
END
SUB SERIES ( )
A = 1
FOR I = 1 TO 10
PRINT A
A = A + 2
NEXT I
END SUB
CLS
CALL SUB SERIES
END
SUB SERIES ( )
A = 1
FOR I = 1 TO 10
PRINT A
A = A + 2
NEXT I
END SUB
Count the total no. of
consonants(FUNCTION)
DECLARE FUNCTION COUNT
(N$)
CLS
INPUT “ENTER ANY STRING”; N$
PRINT “TOTAL NO. OF CONSONANTS= “; 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
CLS
INPUT “ENTER ANY STRING”; N$
PRINT “TOTAL NO. OF CONSONANTS= “; 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
Sum of digits(SUB)
DECLARE SUB SUM( N)
CLS
INPUT " ENTER ANY DIGIT"; 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
CLS
INPUT " ENTER ANY DIGIT"; 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
Convert temperature in
celcius in farenheit (FUNCTION)
DECLARE FUNCTION
CONVERT(C)
CLS
INPUT "ENTER CELCIUS "; C
PRINT "CELCIUS TO FAHRENHEIT ";CONVERT(C)
END
FUNCTION CONVERT(C)
F =9 *C / 5+32
CONVERT = F
END FUNCTION
CLS
INPUT "ENTER CELCIUS "; C
PRINT "CELCIUS TO FAHRENHEIT ";CONVERT(C)
END
FUNCTION CONVERT(C)
F =9 *C / 5+32
CONVERT = F
END FUNCTION
Print simple interest
(FUNCTION)
DECLARE FUNCTION SI (P
,T ,R )
CLS
INPUT "ENTER PRINCIPAL "; P
INPUT "ENTER RATE "; R
INPUT" ENTER TIME ";T
PRINT "SIMPLE INTEREST ";SI (P ,T ,R )
END
FUNCTION SI (P , T ,R )
I= P *T *R/100
SI = I
END FUNCTION
CLS
INPUT "ENTER PRINCIPAL "; P
INPUT "ENTER RATE "; R
INPUT" ENTER TIME ";T
PRINT "SIMPLE INTEREST ";SI (P ,T ,R )
END
FUNCTION SI (P , T ,R )
I= P *T *R/100
SI = I
END FUNCTION
Display 1,1,2,3,5,8……upto
10 terms (SUB)
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
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
Natural no. from 1 to 5
(SUB)
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES ()
FOR I = 1 TO 5
PRINT I
NEXT I
END SUB
CLS
CALL SERIES
END
SUB SERIES ()
FOR I = 1 TO 5
PRINT I
NEXT I
END SUB
Display greatest among
three no.(SUB)
DECLARE SUB GREATEST
(A, B, C)
CLS
INPUT" ENTER ANY THREE NUMBERS"; A, B, C
CALL GREATEST (A, B, C)
END
SUB GREATEST (A, B, C)
IF A> B AND A> C THEN
PRINT"THE GREATEST NUMBER IS"; A
ELSEIF B>A AND B> C THEN
PRINT"THE GREATEST NUMBER IS"; B
ELSE
PRINT"THE GREATEST NUMBER IS";C
END IF
END SUB
CLS
INPUT" ENTER ANY THREE NUMBERS"; A, B, C
CALL GREATEST (A, B, C)
END
SUB GREATEST (A, B, C)
IF A> B AND A> C THEN
PRINT"THE GREATEST NUMBER IS"; A
ELSEIF B>A AND B> C THEN
PRINT"THE GREATEST NUMBER IS"; B
ELSE
PRINT"THE GREATEST NUMBER IS";C
END IF
END SUB
Area of a
box(FUNCTION)
DECLARE FUNCTION AREA
(L, B, H)
CLS
INPUT" ENTER LENGTH"; L
INPUT" ENTER BREADTH"; B
INPUT" ENTER HEIGHT"; H
PRINT" AREA OF THE BOX"; AREA (L, B, H)
END
FUNCTION AREA (L, B, H)
A= 2 *(L*H + B*H + L*B)
AREA= A
END FUNCTION
CLS
INPUT" ENTER LENGTH"; L
INPUT" ENTER BREADTH"; B
INPUT" ENTER HEIGHT"; H
PRINT" AREA OF THE BOX"; AREA (L, B, H)
END
FUNCTION AREA (L, B, H)
A= 2 *(L*H + B*H + L*B)
AREA= A
END FUNCTION
Area of 4
walls(FUNCTION)
DECLARE FUNCTION AREA
(L, B, H)
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH "; B
INPUT " ENTER HEIGHT "; H
PRINT " AREA OF 4 WALLS "; AREA (L, B, H)
END
FUNCTION AREA(L, B, H)
A= 2 * H * ( L + B)
AREA= A
END FUNCTION
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH "; B
INPUT " ENTER HEIGHT "; H
PRINT " AREA OF 4 WALLS "; AREA (L, B, H)
END
FUNCTION AREA(L, B, H)
A= 2 * H * ( L + B)
AREA= A
END FUNCTION
Circumference of
circle(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
CLS
INPUT " ENTER RADIUS "; R
CALL CIR(R)
END
SUB CIR(R)
C= 2 * 22/7 * R
PRINT " CIRCUMFERENCE OF CIRCLE ="; C
END SUB
To check whether the
given no. is divisible by 13 or not .(SUB)
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
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
Volume of
box(FUNCTION)
DECLARE FUNCTION
VOLUME (L, B, H)
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH " ; 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
CLS
INPUT " ENTER LENGTH "; L
INPUT " ENTER BREADTH " ; 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
Print only vowels from
given words(SUB)
DECLARE SUB DISP (A$)
CLS
INPUT " ENTER A WORD ";A$
CALL DISP (A$)
END
SUB DISP (A$)
FOR I = 1 TO LEN(A$)
B$ = MID (A$ , I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN V$=V$ + C$
NEXT I
PRINT V$
END SUB
CLS
INPUT " ENTER A WORD ";A$
CALL DISP (A$)
END
SUB DISP (A$)
FOR I = 1 TO LEN(A$)
B$ = MID (A$ , I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN V$=V$ + C$
NEXT I
PRINT V$
END SUB
Disrance travelled by
a body (FUNCTION)
DECLARE FUNCTION DIS
(U,T,A)
CLS
INPUT " ENTER ACCELERATION";A
INPUT " ENTER TIME";T
INPUT " ENTER INITIAL VELOCITY";U
PRINT " DISTANCE TRAVELED BY BODY =";DIS(U,T,A)
END
FUNCTION DIS (U,T,A)
D = U * T + 1 / 2 * A * T ^ 2
DIS = D
END FUNCTION
CLS
INPUT " ENTER ACCELERATION";A
INPUT " ENTER TIME";T
INPUT " ENTER INITIAL VELOCITY";U
PRINT " DISTANCE TRAVELED BY BODY =";DIS(U,T,A)
END
FUNCTION DIS (U,T,A)
D = U * T + 1 / 2 * A * T ^ 2
DIS = D
END FUNCTION
Display 9,7,5……1(SUB)
DECLARE SUB SERIES( )
CLS
CALL SERIES
END
SUB SERIES( )
FOR I = 9 TO 1 STEP -2
PRINT I
NEXT I
END SUB
CLS
CALL SERIES
END
SUB SERIES( )
FOR I = 9 TO 1 STEP -2
PRINT I
NEXT I
END SUB
Check positive or
negative (SUB)
DECLARE SUB CHECK(N)
CLS
INPUT " ENTER THE 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 ZERO "
END IF
END SUB
CLS
INPUT " ENTER THE 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 ZERO "
END IF
END SUB
Factorial(FUNCTION)
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
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
Prime or composite
(SUB)
DECLARE SUB CHECK(N)
CLS
INPUT "ENTER ANY NUMBER";N
CALL CHECK(N)
END
FUNCTION 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 "THE GIVEN NO IS PRIME"
ELSE
PRINT "THE GIVEN NO IS COMPOSITE"
END IF
END SUB
CLS
INPUT "ENTER ANY NUMBER";N
CALL CHECK(N)
END
FUNCTION 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 "THE GIVEN NO IS PRIME"
ELSE
PRINT "THE GIVEN NO IS COMPOSITE"
END IF
END SUB
DECLARE FUNCTION
CHECK$(N$)
CLS
INPUT " ENTER ANY WORD "; N$
P$ = N$
IF P$ = CHECK$(N$) THEN
PRINT "The given word is palindrome "
ELSE
PRINT " The given word is not palindrome"
END IF
END
FUNCTION CHECK$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$ (N$, I,1)
C$ = C$ + B$
NEXT I
CHECK$ = C$
END FUNCTION
CLS
INPUT " ENTER ANY WORD "; N$
P$ = N$
IF P$ = CHECK$(N$) THEN
PRINT "The given word is palindrome "
ELSE
PRINT " The given word is not palindrome"
END IF
END
FUNCTION CHECK$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$ (N$, I,1)
C$ = C$ + B$
NEXT I
CHECK$ = C$
END FUNCTION
Display 50,42,35,29,24….10th
terms (SUB)
DECLARE 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 SUB
A=50
B=8
FOR I = 1 TO 10
PRINT A
A=A-B
B=B-1
NEXT I
END SUB
Check input character
is capital or small(FUNCTION)
DECLARE FUNCTION
CHARC$(N$)
CLS
INPUT"ENTER ANY CHARACTER";N$
PRINT CHARC$(N$)
END
FUNCTION CHARC$(N$)
B$ = LEFT$(N$)
A = ASC(B$)
IF A >= 67 AND A<=95 THEN
CHARACTER$="LETTER IS IN UPPER CASE"
ELSE IF A >= 45 AND A <= 57 THEN
CHARACTER$="LETTER IS IN LOWER CASE"
ELSE
CHARACTER$="NOT A CHARACTER"
END IF
END FUNCTION
CLS
INPUT"ENTER ANY CHARACTER";N$
PRINT CHARC$(N$)
END
FUNCTION CHARC$(N$)
B$ = LEFT$(N$)
A = ASC(B$)
IF A >= 67 AND A<=95 THEN
CHARACTER$="LETTER IS IN UPPER CASE"
ELSE IF A >= 45 AND A <= 57 THEN
CHARACTER$="LETTER IS IN LOWER CASE"
ELSE
CHARACTER$="NOT A CHARACTER"
END IF
END FUNCTION
Erase vowel from input
string(FUNCTION)
DECLARE FUNCTION
ERASE(A$)
CLS
INPUT " ENTER ANY STRING";A$
PRINT " STRING WITHOUT VOWELS ARE"; ERASE(A$)
END
FUNCTION ERASE(A$)
B$ = UCASE$(A$)
FOR I = 1 TO LEN(B$)
C$ = MID$(B$, I, 1)
IF C$ < > "A" AND C$ < > "E" AND C$ < > "I" AND C$ < > "O" AND C$ < > "U" THEN D$ = D$ + C$
END IF
NEXT I
ERASE = D$
END FUNCTION
CLS
INPUT " ENTER ANY STRING";A$
PRINT " STRING WITHOUT VOWELS ARE"; ERASE(A$)
END
FUNCTION ERASE(A$)
B$ = UCASE$(A$)
FOR I = 1 TO LEN(B$)
C$ = MID$(B$, I, 1)
IF C$ < > "A" AND C$ < > "E" AND C$ < > "I" AND C$ < > "O" AND C$ < > "U" THEN D$ = D$ + C$
END IF
NEXT I
ERASE = D$
END FUNCTION
Positive, negative or
netural (SUB)
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NUMBER ";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
CLS
INPUT"ENTER ANY NUMBER ";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
Display 1, 2, 3, 5, 8….13th term.(SUB)
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
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
Perfect square or not
(FUUNCTION)
DECLARE FUNCTION
PERFECT$ (N)
CLS
INPUT “ENTER A NUMBER” ; N
PRINT PERFECT$ (N)
END
FUNCTION PERFECT$ (N)
S = SQR(N)
IF S = INT(S) THEN
PERFECT$=”PERFECT SQUARE”
ELSE
PERFECT$=”NOT PERFECT SQUARE”
END IF
END FUNCTION
CLS
INPUT “ENTER A NUMBER” ; N
PRINT PERFECT$ (N)
END
FUNCTION PERFECT$ (N)
S = SQR(N)
IF S = INT(S) THEN
PERFECT$=”PERFECT SQUARE”
ELSE
PERFECT$=”NOT PERFECT SQUARE”
END IF
END FUNCTION
Wednesday, September 4, 2019
My father
My dear father , he is the most hard woring member in family. He is also a fairygod for family. He fulfill everyone wishes. He is around his 30s, he is the most handsome person. He is a guideangle for me . He guide me in every steps I take. He is most supportive and understanding man. He makes everyone smile in family. He is a real man who can handle family in his own hardwork.
My father is the most important person in my life without him i am nothing.He is the most loving member and also the most caring. He care about every other member wishes but he don't give importance to his own. He always smile is hard time and solve the problems by himself .
I dream of becoming like my father.He is my role model.And I am inspired by him.
My father is the most important person in my life without him i am nothing.He is the most loving member and also the most caring. He care about every other member wishes but he don't give importance to his own. He always smile is hard time and solve the problems by himself .
I dream of becoming like my father.He is my role model.And I am inspired by him.
Experience on visiting election commission
On the day of tuesday 3rd of bhadra. We students of grade 10 went to visit election commission. We learn about the election process and also did the small enection . We left school around 10:30 and reach there at around 11:00. After we reach there we saw one building it is the office of election commission and there was also written in a big, bold letters in red color. Then, Raju sir told us to make line and we went to the front door. Then, ma'am came and gave us instruction about the room and what things we are going to do. Then, she told us to make two groups and we divided ourself into two different groups. And one group went to watch small documentary and our group played games. There was a big room divided into 5 different colors each room was for different activity. Then, ma'am told to make 5 column and she gave instruction about the 5 different color room and each group went in one one color box. It took us 5 mins to complete the games. The game was related to our chapter so it was easy for us to play. Then our group went to watch documenrty and the another group play games. The documentry was about 25 mins long and it was full of knowledge. After we watch documentary the other was also done with their games. Then there was 5 mins break for all then both group combine then we listen to ma'am. She ws very sweet she descride each and everything related to How election is done ?What is election?Why election is done? and many other. After about 2hours session of the video clip and presentation that ma'am show to us it completed. Then ma'am show us the election voting machine and teach us how it is used and how to use it. Then we did the small election. the candidate were laxmi, prerana and simson. After we did election the result came and we found out simson won with 23 votes. Afterthe election we did Q/A and clear our doubt. It was an amazing class given to us. We feel so thankful to get this class and the proper knowledge about election . Thank you to both ma'ams to give their valuable time to us.
Thank you !
Sunday, August 18, 2019
My Experience On Police Community Partnership
Experience on a class given by our police team on the topic drug addiction. 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 came to know the various types of drug found in our locality like gaja plant, daturo which are found but are illegal for using and selling freely.We also 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.
Wednesday, July 24, 2019
Monsoon hike
We moved from school around 7:30 am. 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 older
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. Then slowly walking we went to another
destination called 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 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. Then we reached the Entrance of the
Mohan Pokhari there was a small waterfall then we climed up the way was toward
the stone were the soil was slippery and we had a hard time going up. Then we rest for
sometime waiting for others to gather up then we had our tiffin all together
then we went by playing with water went down. To the small water fall by this
time the rain was going on so going down was more difficult then climbing we
nearly slipped. But we enjoyed the difficult times as we were enjoying such a
walking experience. Then we played in water for a long time we splash
each other with water. Deepak sir filmed tiktoks choke slamming dorje and being
choke slammed by tshring as a beautiful memory. So like this our hike has ended
successfully. It was an amazing experience we have a lots of fun and we
made beautiful memory for us .It was a memorable day.
Thank you!!
Subscribe to:
Posts (Atom)