Be the change that you wish to see in the world.: 2019

Tuesday, October 29, 2019

QBASIC to find Area of four walls

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth"; B
INPUT "Enter the height"; H
A = 2*H*(L+B)
PRINT "Area of four walls="; A
END

QBASIC to find Area of Square

CLS
INPUT "Ente the length"; L
A = L^2
PRINT "Area of square="; A
END

QBASIC to find Volume of box

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth": B
INPUT "Enter the height"; H
V = L*B*H
PRINT "Volume of box="; V
END

QBASIC to find Volume of Cube

CLS
INPUT "Enter the length"; L
V = L^3
PRINT "Volume of cube="; V
END

QBASIC to find Volume of Cylinder

CLS
INPUT "Enter the radisu"; R
INPUT "Enter the height"; H
V = 22/7*R^2*H
PRINT "Volume of cylinder="; V
END

QBASIC to display Positive, Negative or Zero

CLS
INPUT "Enter any number"; N
IF N>0 THEN
PRINT "The number is positive"
ELSEIF N<0 THEN
PRINT " The number is negative"
ELSE
PRINT "The number is zero"
END IF
END

QBASIC to diplay Odd or Even

CLS
INPUT "Enter any number"; N
IF N MOD 2 = 0 THEN
PRINT "The number is even"
ELSE
PRINT "The number is odd"
END IF
END

QBASIC to find Sum of Digits

CLS
INPUT "Enter any number"; N
S = 0
WHILE N<> 0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT "Sum of didits="; S
END

QBASIC to find Product of Digits

CLS
INPUT "Enter any number'; N
P = 1
WHILE N<> 0
R = N MOD 10
P = P*R
N = N\10
WEND
PRINT "Product of digits="; P
END

QBASIC To Reverse Digits

CLS
INPUT "Enter any number"; N
S = 0
WHILE N<> 0
R = N MOD 10
S = S*10+R
N = N\10
WEND
PRINT "Reverse of digits="; S
END

QBASIC to check Palindrome or not

CLS
INPUT "Enter any number"; N
A = N
S = 0
WHILE N <> 0
R = N MOD 10
S = S*10+R
N = N\10
WEND
IF A= S THEN
PRINT " The number is palindrome"
ELSE
PRINT "The number is not palindrome"
END IF
END

QBASIc to check Armstrong or not

CLS
INPUT 'Enter any number'; N
A = N
S = 0
WHILE N <> 0
R = N MOD 10
S = S+R^3
N = N\10
WEND
IF A=S THEN
PRINT "The number is armstrong"
ELSE
PRINT "The number is not armstrong"
END IF
END

QBASIC to check prime or Composite

CLS
INPUT "Enter any number"; 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 number is prime"
ELSE
PRINT "The number is composite"
END IF
END

QBASIC to check Factorial

CLS
INPUT "Enter any number"; N
F = 1
FOR I = 1 TO N
F = F*I
NEXT I
PRINT "Factorial="; F
END

QBASIC to display Factors

CLS
INPUT "Enter any number"; N
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I
NEXT I
END

QBASIC to disply Multiplication table

CLS
INPUT "Enter any number"; N
FOR I = 1 TO 10
PRINT N ; "X' ; I ; "=" ; N*I
NEXT I
END

QBASIC to print 1, 22, 333, 4444, 55555

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END

QBASIC to print 1, 4, 9, 16... 10th term

CLS
FOR I = 1 TO 10
PRINT I ^ 2
NEXT I
END

QBASIC to print 5, 10, 15, 20... 10th term

CLS
A = 5
FOR I = 1 TO 10
PRINT A
A = A+5
NEXT I
END

QBASIC to display 1, 1, 2, 3, 5... 10th term

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
NEXT I ;
NEXT J
PRINT
NEXT I
END

QBASIC to display 1, 12, 123, 1234, 12345

CLS
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J ;
NEXT J
PRINT
NEXT I
END

WAP to diplay the greatest among three numbers

CLS
INPUT "Enter any number"; 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

to display 1,11,111,1111,1111

CLS

A = 1

FOR I = 1 TO 5

PRINT A

A = A * 10 + 1

NEXT I

END

Monday, September 2, 2019

~~MY FATHER~~

My father name is Ganesh Gurung. He is 37 years old. He lives in U.K(united kingdom). He is an chef. He works really very hard to fulfill our needs and demands. He is really very kind-hearted and general person. He helps every needy people wherever he see. He is an responsible husband and a responsible father too. He tries to fulfill our every needs. He is a beautiful soul i have ever meet. I am feeling very proud because he is my father. He treats me as a princess. But, sometimes he get really very angry on smallthings but he loves me alot. He has a very well builted body. I love my father very much.

~~HAPPY FATHERS DAY~~

Saturday, June 1, 2019

My One day with police

My one day with police

It was 2076/02/16

We went out with some police inspectors to know the job of the police .We went at the headquarter of police at Ranipokhari
(Jamal).First of all were given a short class on the topic cybercrime .We we're very unknown about this topic .They gave us awareness about cybercrime.How to get out of this types of problem .How to be safe from this.

We students of grade nine we went at Ranipokhari to see the headquarter of the police they gave us an short class about cybercrime again in more detail.We we're taking that class by the DIG of this state.He explained us about the cybercrime .Why it is harmful?,How can it destroy our life.There our friends they questioned him some questions then he answered it very fluently.

After the end of the class we had our snacks .Then we went to the control room of this state where many monitors and telephone were there.There was the record of every single roads.I enjoyed looking at the monitors .I say some accidents taking live on the monitor.

Then we went to the place where Nepal police dogs were trained there were total82 dogs on that place with 50 cages.There was 8 breads of dog.It was very amazing looking those dogs work.I enjoyed it very much .

Thank you for taking us there we are very much thankful.

Monday, May 13, 2019

Aadiko Manoram Nritva

Sunday, May 12, 2019

Learnings

Drama. lies. tears,..... teenage years

'Aadiko Manoram Nritya'

The drama named 'Aadiko Manoram Nritya' was my first live drama which was presented to the students of grade 8, 9 and 10. The drama was based on the daily struggles of the adolescents. Therefore, the drama was based on us, students who are going through a very new and strange journey of struggles and dilemma.

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.

To me. the drama taught a lot and has a lot to teach to teens like us as we get lost as soon as we enter the new world of strange upcomings and invitation.