Experience

Well, Jm had conducted and educational tour of 5 days alomg with 4 nights for grade 9.... I also wanted to go btw bcoz of some problems like collecting blue print and incubator with vouchers... i was not able to go...

Any way in homes also it was fun not only fun btw very much fun ... at very first day of holiday i played games and enjoyed and at third day i went to grandparents home it was fun there.. and durin holidays i also practised cmath and o math bcoz these two were the most difficult subjects to me.. And the most enjoyable part is when i got 3rd prize of incubator and collected weapon as well as diamonds vouchers for free!!!! 😅😅 that's all i wanted to say... so this is the end.....

#!....yestarday is history tommorow is mystery and today is a gift that is why it is called present....!#

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