Qbasic programming #8 To display -------------

Monday, October 21, 2019

QBasic Programming:

To Display: 1, 11, 111, 1111, 11111

CLS

A = 1

FOR I = 1 TO 5

PRINT A

A = A * 10 + 1

NEXT I

END

QBasic Programming:

To Display: 1, 22, 333, 4444, 55555

CLS

FOR I = 1 TO 5

FOR J = 1 O I

PRINT I;

NEXT J

PRINT

NEXT I

END

To Display: 1, 12, 123, 1234, 12345

CLS

FOR I = 1 TO 5

FOR J = 1 O I

PRINT J;

NEXT J

PRINT

NEXT I

END

CLS

A = 5

FOR I = 1 TO 10

PRINT A

A = A + 5

NEXT I

END

CLS

FOR I = 1 TO 10

PRINT I ^ 2

NEXT I

END

 CLS

A = 1

B = 1

FOR I = 1 TO 10

PRINT A

C = A + B

A = B

B = C

NEXT I

END

QBASIC PROGRAMMING #7 ( to display -------- )

To Display the Multiplication Table

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

To Display the 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#6 ( To check wether given no. Is ----- or not )

To Check whether the given number is 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 given number is prime"
ELSE
PRINT "The given number is composite"
END IF
END

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
END 

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#5 ( TO DISPLAY ------ OF NUMBERS)

To Display Reverse of 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

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

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 digits="; S
END

QBASIC PROGRAMMING#4 ( TO Check whether --- or ---)

To Display Odd or Even Number

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 Programming:

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 PROGRAMMING #3(TO FIND VOLUME )

To Find Volume of Cylinder
CLSINPUT "Enter radius"; rINPUT "Enter height"; hV = 22 / 7 * r ^ 2 * hPRINT "Volume of cylinder="; VEND



To Find Volume of Cube
CLSINPUT "Enter length"; lV = l ^ 3PRINT "Volume of cube="; VEND


To Find Volume of Box
CLSINPUT "Enter length"; lINPUT "Enter breadth"; bINPUT "Enter height"; hV = l * b * hPRINT "Volume of box="; VENDx

QBASIC PROGRAMMING #2(To find area)

To Find Area of Four Walls

CLS

INPUT "Enter length"; l

INPUT "Enter breadth"; b

INPUT "Enter height"; h

A = 2 * h * (l + b)

PRINT "Area of four walls="; A

END

To Find Area of Square

CLS

INPUT "Enter length"; l

A = l ^ 2

PRINT "Area of square="; A

END

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

To Find Area of Circle

CLS

INPUT "Enter radius"; r

A = 22 / 7 * r ^ 2

PRINT "Area of circle="; A

END

QBASIC PROGRAMMING#1

To Find Area of Rectangle

CLS

INPUT "Enter length"; l

INPUT "Enter breadth"; b

A = l * b

PRINT "Area of rectangle="; A

END

My Dad(Father)

An adoptive father is a male who has become the child's parent through the legal process of adoption. 

 .MY dad name  is ramesh pathak. he is a gentlemen. He is 42 years old. he helps me alot  in my work and  in my difficulties. his birthday is on Bhadra 12.  He loves MOMO . Indeed his favourite food is Momo . 

 He have got Black shiny hair And clean shaven cheek.  He is around 5.5 feet tall And weighs around 70 Kg 
He is very nice .... 

Police Office

On Thursday we (student of grade nine)  went to the police headquarter or the main office.  It was a lot of fun going there we went there and one of the police officer introduced us he taught us various laws and crimes.  One of us asked a question about how to find lost phone and he answered it easily. . .

After few.minutes of staying their and getting some information about police 👮.  We went to the police dog training center .
It was very  much fun their....
There were 4 types of dogs they were - Drugs finding dog 🐶 . Bomb tracking dog.  Well trained dog and there were various breeds of the dogs in there...

Drama

Drama is an art form that explores human conflict and tension. It generally takes the form of a story presented to an audience through dialogue and action. The story is conveyed using the elements of the theatre: acting, costumes, props, scenery, lighting, music, and sound.

Our school has take to watch drama which is based on teenagers life. Students of grade 8,9 and 10 along with 5 teachers were taken as audience. We were taken to Shilpee Theatre situated at Battisputali on 9th May, 2019. The name of our drama was "Aandhiko Manoram Nritya". The duration time of drama was One and half hour.  It was the drama based on daily struggles of adolescent.

This drama gave us the knowledge about teenagers. It was a live show. This drama showed how the teenagers are growing up with their friends in a bad company which may lead to wrong path. The problems continued when the students enter into adolescent where the mixed their feelings and mood swing ever once a while.This drama truely shows how students are involved in bad things because of peer pressure. This drama was literally related to all of the teenagers. They feel the pressure of studies and they started to do nonsense activites like smoking, taking drugs and falling in love. Nowadays, all the students are addicted to electronic gadgets instead of studying. As being a teenagers I got to know about various problems related to us.

Momo Making

At Friday We (The Students Of Grade 8(Eight) Made Momo While doing the process of momo making We knew the way to make veg and chicken momo we did the following process For making Momo .

Oreintation
Group Division
Collection Of money
Field Visit
Utensils collection
Buying ingredients for momo 
Buying and cutting vegetables
Dough making
Preparation for pickles
Buying and making kimma
Distribution of mono
Management of waste

               Conclusion

Through this project we got to know the process of making mono .We Are Very much thankful To our teachers who helped us to make momo only because of our teachers ( Khem sir , Depak sir , Kamal Sir , Bijay sir and aarati mam ) We got to know the way of making .......