QBasic Programming

To check whether the given number is prime or composite

CLS

INPUT “Enter any number”;N

C=0

FOR I =1 To 10

IF N MOD I=0  THEN C=C+1

NEXT I 

IF C=2 THEN 

PRINT “ The given number is prime”

ELSE

PRINT”The given number is composite”

END IF 

END 

QBasic Programming

To display 1,11,111,1111,11111

CLS

A=1

I=11111

DO

PRINT A

A=A*10+1

I=I+1

LOOP UNTIL I<=1

END

QBasic Programming

To display 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 Programming

To display 1,12,123,1234,12345

CLS

FOR I = 1 To 5

FOR J = 1 To I

PRINT J;

NEXT I 

PRINT 

NEXT I

END

QBasic Programming

To display 5,10,15,20,........10th term

CLS

A=5

FOR I = 1 To 10

PRINT A

A=  A+5

NEXT I

END 

QBasic Programming

To display 1,4,9,16,......10th term

CLS

I=1

WHILE I < =10

PRINT I ^2

I= I+1

WEND

END

QBasic Programming

To display 1,1,2,3,5,.....10th term

CLS 

A=1

B=1

FOR I = 1To 10

PRINT A

C=A+B

A=B

B=C

NEXT I

END

QBasic Programming

To display multiplication table

CLS

INPUT”Enter any number”;N

FOR I = 1 To 10

PRINT N;”X”;I;”=“;N*I

NEXT I 

END

QBasic Programming

To display factorial of any number

CLS

INPUT”Enter any number”;N

F=1

FOR I=1 To N

F=F*I

NEXT I

PRINT”Factorial”;F

END

QBasic Programming

To display Factors of any number

CLS

INPUT”Enter any number”;N 

FOR I = 1 To N

IF N MOD I =0 THEN PRINT I

NEXT I

END

QBasic Programming

To check whether the given number is 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 given number is armstrong “
ELSE
PRINT”The given number is not armstrong”
END IF 

QBasic Programming

To check whether the given number is 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 given number is palindrome"
ELSE 
PRINT "The given number is not palindrome""
END IF 
END

QBasic Programming

To display reverse of digit

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 Progarmming

To display 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

QBaic Programming

To display 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 digit";S
END

QBasic Programming

To display greatest among 3 numbers

CLS
INPUT "Enter any three number"; A,B,C
IF A>B and B>C THEN 
PRINT "The greatest number is";A
ELSE IF B>A and B>C THEN 
PRINT "The greatest number is ";B
ELSE 
PRINT "The greatest number is";C
END IF
END 

QBasic Programming

To display  odd or even

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

QBasic Programming

To find the positive, negative or zero

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

QBasic Programming

To find the volume of cylinder

CLS
INPUT "Enter radius";r
INPUT "Enter height";h 
V=22/7*r^2*h
PRINT "Volume of cylinder ";V
END 

QBasic Programming

To find the volume of cube

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

QBasic Programming

To find the volume of box

CLS
INPUT " Enter length";l
INPUT " Enter breadth";b
INPUT  " Enter height";h
V=l*b*h
PRINT "Volume of box";V
END

QBasic Programming

To find area of 4 walls

CLS
INPUT " Enter length";l
INPUT " Enter breadth"; b
INPUT " Enter height"; h
A=2*h*(l+b)
PRINT " Area of four wall";S
END 

QBasic Programming

 To find area of square

CLS
INPUT "Enter length";l
A=l^2
PRINT "Area of square ";A
END 

QBasic Programming

 To find area of triangle

CLS
INPUT "Enter base";b
INPUT "Enter height ";h
A=1/2*b*h
PRINT "Area of triangle";A
END 

QBasic Programming

To find the area of circle

CLS
INPUT "Enter radius";R
A= 22 / 7 * r ^  2
PRINT "Area of circle";A
END

QBasic Programming

To find the area of rectangle

CLS
INPUT "Enter length";L
INPUT "Enter breadth";B
A=L*B
PRINT "Area of rectangle";A
END 

My father

                                My Father

A father is a male parent of the family who guides, loves and cares his children all through the life. My father is the best in the world. He is an intelligent, strong  person. He is medium height and moderately plump. My Father has brown eyes. My father wears neat and clean dress.

My father is the head of the family. He is 46 years old. My father is an technician. He does hardworking. Although his earning is not great, he is satisfied. He knows how to utilize the money properly. He fulfills our necessary demands. He loves us all and in return, we love and respect him too. He also can cook food also. He loves eating new delicious foods. His favorite food is kheer. He also use to help needy people. He comes home from work late and tired. Then we try not to make noise at home ,so as not to disturb father to rest.

In every step of my life, I believed that my father is the most ideal person in the world for me. I just want to be like him. I feel proud of being child of generous, hardworking and intelligent person.

My one day with police

As we all know about police.The police are constituted of persons empowered by a state to enforced the law to protect the lives, liberty and possessions of citizens, and to prevent crime and civil disorder. Nepal police is the main and principal law enforcement agency of nepal.We grade 9 students     were taken to Nepal police which is located at Ranipokhari,kathmandu.

We also met the senior police officer. He gave us some instruction about cyber crime. We were also shown some video clips. After this we were taken to another room where we saw a lots of cctv camera footage. Then we went to another place where we saw lots of dogs who were trained by nepal police. The dog were too good and clever.

We also saw horse there. On that day , I really came to know about different which helps me success in my life.

Adhiko Manoram Nritya

          Adhiko Manoram Nritya 

Drama is a composition in a prose or verse presenting in dialogue or pantomime a story involving conflict or contrast of character, especially one intended to be acted on the stage.

We grade 8,9 and 10 were taken out for to observe the drama named " Adhiko Manoram Nritya"  on 2076/1/26. The drama was based on  teenagers. The drama taught us not to involved in bad company and culture. Nowadays , teenagers are being more addicted  to mobiles and laptops without studying. This character  was also shown on the drama. The drama was too good and fabulous.  Today's teenagers are having smoke and drinking alcohol which hampers health.

Lastly, this drama teaches us a lot of things that we can face in our life.This drama must be seen by everyone.