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