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

QBasic Programming:

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

QBasic Programming:

To Display: 5, 10, 15, 20, ......... 10^th  terms

CLS

A = 5

FOR I = 1 TO 10

PRINT A

A = A + 5

NEXT I

END

QBasic Programming:

To Display: 1, 4, 9, 16, ......... 10^th terms

CLS

FOR I = 1 TO 10

PRINT I ^ 2

NEXT I

END

QBasic Programming:

To Display: 1, 1, 2, 3, 5, ......... 10^th terms

 CLS

A = 1

B = 1

FOR I = 1 TO 10

PRINT A

C = A + B

A = B

B = C

NEXT I

END

QBasic Programming:

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

QBasic Programming:

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:

To Display the 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 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

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
END 

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

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

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

QBasic Programming:

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

QBasic Programming:

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:

To Find 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 Volume of Cube

CLS

INPUT "Enter length"; l

V = l ^ 3

PRINT "Volume of cube="; V

END

QBasic Programming:

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

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 Area of Circle

CLS

INPUT "Enter radius"; r

A = 22 / 7 * r ^ 2

PRINT "Area of circle="; A

END

QBasic Programming:

To Find Area of Rectangle

CLS

INPUT "Enter length"; l

INPUT "Enter breadth"; b

A = l * b

PRINT "Area of rectangle="; A

END