POKHARA AND GHALEGAUN :AN EXPERIENCE

Ghale gaun and pokhara: an experience

(A GROUP PIC BEFORE LEAVING SCHOOL)

Recently, on 22^nd of Falgun, we, the students of Grade nine were taken to the educational tour to Ghale Gaun and Pokhara for 4 days. Altogether there were 25 students and 4 teachers who participated in this tour.

Day 1 (travelling to ghale gaun)

On the first day of my tour, I woke up early in the morning for doing all the preparation for my tour. I was so excited that I could not sleep the previous night due to my excitement. All of us arrived to school by 6:00am. Then we had a cup of tea and selfie and then we went for a long drive to Besisahar by our school bus. We had our breakfast and lunch on the way. It took almost 8 hour for us to reach up to Besisahar. The scenery on the way is magnificient. Then, we were transferred to the local jeep for Ghale Gaun drive. It was really good experience for all of us for jeep drive for first time. We had the adventure of three hours jeep drive. After reaching to Ghale Gaun, we were welcomed by Ghale Gaun villagers with white tika and a flower. And then the management members divided all of us and showed the room for homestay. And then after some hours, we had our dinner. We also planned to see the Gurung culture, but due to raining, our plan was cancelled. Thus, we experienced the incredible hospitality of Nepal’s ethnic group Gurung people during homestay tour from Kathmandu to Ghale Gaun.

Day 2 (returning from ghale gaun to         pokhara)

On the second day of my tour, I woke up early in the morning. Then me and my friends had a cup of tea and a pair of egg. Then we started walking at the top of Ghale Gaun to see the view of sun rise. We also had the magnificient view of  Mt. Machhapuchre, Mt. Annapurna, Mt. Everest, Lamjung Himal, Boudha Himal and many other smaller peaks. Then, after 1 hour morning walk, we reached to our homestay. Then, we had our lunch

and then we packed our things to reach Pokhara. We left Ghale Gaun. Then our walking started from 10:00am to Besisahar. It was really a good hike of 5 to 6 hour. But we took more time to rest and took photographs to enjoy our own style. After a long walk, we got our school bus and had a drive of 4 hours. Although we were so much tired, we sang a lot on the way and enjoyed a lot. Then finally we reached to our destination, i.e. Hotel Lovely Garden. All of us stayed in different  room same like in Ghale Gaun. After some hours we had our dinner and then we went to lakeside to enjoy the moment. Thus, all of us enjoyed a lot.

Day 3 (in pokhara)

On the third day of our tour, all of us were having a deep sleep after yesterday’s walk. But suddenly, Deepak Sir knocked the door and all of us woke up.  Then we became ready and all of us went to Sarangkot for the  view of sun rise. After having the view of sun rise, we went to Bindyabasini temple. Then we went to Mahendra cave, Chamero cave respectively. Then we had our lunch and after having lunch,we went fopr boating in Fewa Lake, Davi’s Fall, Gupteshwor Mahadev and Museum. It was the most enjoyable day for us where we visited almost all the places of Pokhara. At night we also enjoyed Shivaratri and celebrated birthday of our Raju brother which we planned at the last moment.

 Day 4 (returning from Pokhara to kathmandu)

On the fourth day of our tour,we woke up at 4:30am. We left the hotel at 4:50 so that we could reach Kathmandu as soon as possible. We went to Bandipur and had our breakfast over there. We worked for half an hour over there. We went to Siddha Gufa.We walked almost half an hour to reach there. Then we had our lunch on the way. Then we returned to Kathmandu. It was really a good hike which has become a memorable moment in my life.

MUSKAN

PROJECT C

1)WAP to enter any string and reverse it.
CLS
PRINT TAB(20);"MUSKAN"
INPUT "ENTER ANY WORD"; A$
FOR I = LEN(A$) TO 1 STEP -1
B$ = MID$(A$, I, 1)
C$ = C$ + B$
NEXT I
PRINT "REVERSED WORD="; C$
END

 2) WAP to enter any string and check whether the given string is palindrome or not.
CLS
PRINT TAB(20);"MUSKAN"
INPUT "ENTER ANY STRING"; A$
FOR I = LEN(A$) TO 1 STEP -1
B$ = MID$(A$, I, 1)
C$ = C$ + B$
NEXT I
IF A$ = C$ THEN
PRINT "THE GIVEN STRING IS PALINDROME"
ELSE
PRINT "THE GIVEN STRING IS NOT PALINDROME"
END IF
END

 3)WAP to display the shortest word among three numbers.
CLS
PRINT TAB(20);"MUSKAN"
INPUT "ENTER ANY WORD"; A$
INPUT "ENTER ANY WORD"; B$
INPUT "ENTER ANY WORD"; C$
IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN
PRINT A$; "IS SHORTEST WORD"
ELSEIF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN
PRINT B$; "IS SHORTEST WORD"
ELSE
PRINT C$; "IS SHORTEST WORD"
END IF
END

4)WAP to input any string and display the alternate case.
CLS
PRINT TAB(10); "MUSKAN"
INPUT "ENTER ANY STRING"; A$
FOR I = 1 TO LEN(A$)
B$ = MID$(A$, I, 1)
IF I MOD 2 = 0 THEN
C$ = C$ + LCASE$(B$)
ELSE
C$ = C$ + UCASE$(B$)
END IF
NEXT I
PRINT "ALTERNATE CASE="; C$
END

5)WAP to input any string and display its initial only.

CLS

PRINT TAB(10)"MUSKAN"
INPUT "ENTER ANY STRING"; A$
B$ = UCASE$(LEFT$(A$, 1))
FOR I = 1 TO LEN(A$)
C$ = MID$(A$, I, 1)
IF C$ = "" THEN
B$ = B$ + "." + UCASE$(MID$(A$, I + 1, 1))
END IF
NEXT I
PRINT B$
END

 

6) WAP to enter any word and find total no of consonant.

CLS
PRINT TAB(20);"MUSKAN"
INPUT "ENTER ANY WORD"; 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 C = C + 1
NEXT I
PRINT "TOTAL NO. OF CONSONANT="; C
END

          

7) WAP to enter any word and to display vowels only.

CLS
PRINT TAB(20);"MUSKAN"
INPUT "ENTER ANY WORD"; 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 PRINT B$
NEXT I
END

muskan

QBASIC PROGRAMMING (PROJECT "B")

1.      Input any string and reverse it.

CLS

INPUT "ENTER ANY STRING"; A$

FOR I = LEN(A$) TO 1 STEP -1

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

C$ = C$ + B$

NEXT I

PRINT "REVERSED STRING IS "; C$

END

2.      Input any string and check whether the given string is palindrome or not.

CLS

INPUT "ENTER ANY STRING"; A$

FOR I = LEN(A$) TO 1 STEP -1

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

C$ = C$ + B$

NEXT I

IF A$ = C$ THEN

PRINT  A$; “IS PALINDROME”

ELSE

PRINT A$; “IS NOT PALINDROME”

END IF

END

3.      Count total no. of vowels in a given string.

CLS

INPUT "ENTER ANY STRING"; A$

VC = 0

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

VC = VC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

END

4.      Count total no. of consonants in a given word.

CLS

INPUT "ENTER ANY STRING"; A$

CC = 0

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" AND C$ <> " " AND C$ <> "." THEN

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF CONSONANTS= "; CC

END 

5.      Count total no. of vowels and consonants in a given word.

CLS

INPUT "ENTER ANY WORD"; A$

VC = 0

CC = 0

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

VC = VC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END

6.      Display vowels from a given string.

CLS

INPUT "ENTER ANY STRING"; 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

PRINT B$

END IF

NEXT I

END

7.      Display consonants from a given word.

CLS

INPUT "ENTER ANY STRING"; 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

PRINT B$

END IF

NEXT I

END

8.      Count total no. of words from a given string.

CLS

INPUT "ENTER ANY STRING"; A$

WC = 1

FOR I = 1 TO LEN(A$)

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

IF B$ = " " THEN

WC = WC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF WORDS= "; WC

END 

9.      Count total no. of vowels and consonants from a given string.

CLS

INPUT "ENTER ANY STRING"; A$

VC = 0

CC = 0

WC = 1

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

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END

10.  Input any string and display in alternate case characters. [Eg. Input = COMPUTER ; Output = CoMpUtEr]

CLS

INPUT "ENTER ANY WORD"; A$

FOR I = 1 TO LEN(A$)

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

IF I MOD 2 = 0 THEN

W$ = W$ + UCASE$(B$)

ELSE

W$ = W$ + LCASE$(B$)

END IF

NEXT I

PRINT "Alternate case=";W$

END 

QBASIC PROGRAMMING (PROJECT "B")

1) Input any string and reverse it.

CLS

INPUT "ENTER ANY STRING"; A$

FOR I = LEN(A$) TO 1 STEP -1

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

C$ = C$ + B$

NEXT I

PRINT "REVERSED STRING IS "; C$

END

2) Input any string and check whether the given string is palindrome or not.

CLS

INPUT "ENTER ANY STRING"; A$

FOR I = LEN(A$) TO 1 STEP -1

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

C$ = C$ + B$

NEXT I

IF A$ = C$ THEN

PRINT  A$; “IS PALINDROME”

ELSE

PRINT A$; “IS NOT PALINDROME”

END IF

END

3) Count total no. of vowels in a given string.

CLS

INPUT "ENTER ANY STRING"; A$

VC = 0

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

VC = VC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

END

4) Count total no. of consonants in a given word.

CLS

INPUT "ENTER ANY STRING"; A$

CC = 0

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" AND C$ <> " "  THEN

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF CONSONANTS= "; CC

END 

5) Count total no. of vowels and consonants in a given word.

CLS

INPUT "ENTER ANY WORD"; A$

VC = 0

CC = 0

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

VC = VC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END

6) Display vowels from a given string.

CLS

INPUT "ENTER ANY STRING"; 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

PRINT B$

END IF

NEXT I

END

7)  Display consonants from a given word.

CLS

INPUT "ENTER ANY STRING"; 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

PRINT B$

END IF

NEXT I

END

8.      Count total no. of words from a given string.

CLS

INPUT "ENTER ANY STRING"; A$

WC = 1

FOR I = 1 TO LEN(A$)

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

IF B$ = " " THEN

WC = WC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF WORDS= "; WC

END 

9) Count total no. of vowels and consonants from a given string.

CLS

INPUT "ENTER ANY STRING"; A$

VC = 0

CC = 0

WC = 1

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

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END

10.  Input any string and display in alternate case characters.,, (Eg. Input = COMPUTER ; Output = CoMpUtEr)?

CLS

INPUT "ENTER ANY WORD"; A$

FOR I = 1 TO LEN(A$)

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

IF I MOD 2 = 0 THEN

W$ = W$ + UCASE$(B$)

ELSE

W$ = W$ + LCASE$(B$)

END IF

NEXT I

PRINT "ALTERNATE CASE =";W$

END