QBasic 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 to display 1,12,123,1234,12345

CLS
FOR I = 1 To 5
FOR J=  1 To I
PRINT J;
NEXT J
PRINT 
NEXT I
END

QBasic 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 to display 1,4,9,16....10th term

CLS
FOR I=1 TO 10
PRINT  I^2
NEXT I 
END

QBasic to display 1,1,2,3,5,8....10th term

CLS
A = 1
B = 1
FOR I = 1 To 10
C = A + B
A = B
B = C
NEXT I
END

QBasic 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 to display factorial

CLS
INPUT "Enter any number";N
F = 1
FOR I = 1 To N
F = F * I
NEXT I
PRINT "Factorial number";F
END

QBasic to display factor

CLS 
INPUT "Enter any number";N
FOR I = 1 To N
IF N MOD I = 0 THEN PRINT I
NEXT I
END

QBasic to dislpay 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 N; "IS PRIME NUMBER"

ELSE

PRINT N; "IS COMPOSITE NUMBER"

END IF

END

QBasic to dislpay armstrong or not

CLS
INPUT "Enter a 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 "It is armstrong number";
ELSE
PRINT "It is not armstrong number";
END IF
END

QBasic to find 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 to find reverse

CLS
INPUT "Enter any number"; N
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT "Reversed digits is "; S
END

QBasic to display product of digit

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 to display sum of digit

CLS
INPUT"Enter any number";N
S=0
WHILE N<>10
R=N MOD 10
S=S+R
N=N\10
WEND
PRINT"Sum of digits";S
END

QBasic to display greater among three number

CLS
INPUT"Enter any number";N
IF A>B and B>C THEN
PRINT"Greater number is";A
ELSE IF B>A and B>C THEN
PRINT"Greater number is";B
ELSE
PRINT"Greater number is";C
END IF 
END

QBasic to dislpay odd or even

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

QBasic to dislpay positive,Negative or Zero

CLS

INPUT"Enter any number";N

IF N=0 THEN

PRINT"Given number is positive"

ELSE IF N<0 THEN

PRINT"Given number is negative"

ELSE

PRINT"Given number is zero"

END IF

END

QBasic to find volume of cylinder

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

QBasic to find volume of cube

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

QBasic 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 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 4 wall";A
END

QBasic to find area of square

CLS
TNPUT"Enter length";L
A=L^2
PRINT"Area of square";A
END

QBasic 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 to find area of circle

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

QBasic to find area of rectangle

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