Area of 4 wall

CLS
INPUT " Enter length";l
INPUT " Enter breadth";b
INPUT " Enter height ";h
A = 2 * h ( l +b )
PRINT " Area of 4 walls ";A
END

1, 11,111,1111,11111

CLS
A = 1
FOR I = 1 TO 5
PRINT A
A = A * 10 + 1
NEXT I
END

1,22,333,4444,55555

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

1, 12,123,1234,12345

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

5,10,15,20 .....upto 10th term

CLS
A = 5
FOR I = 1 TO 10
PRINT A
A = A + 5
NEXT I
END

1, 4,9,10....upti 10th term

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

1, 1,2,3,5,8.......upto 10th term

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

Multiplication of table

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

Factorial

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

Factors

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

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 no is prime"
ELSE
PRINT " The given no is composite"
END IF
END

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 no is not armstrong"
END IF
END

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 no is palindrome"
ELSE
PRINT " The given no is not palindrome"
END IF
END

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 " Sum of reverse digits ";S
END

Product of digits

CLS
UNPUT " 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

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

Greatest among three number

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

Display odd or even

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

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

Volume of cylinder

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

Volume of cube

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

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

Area of square

CLS
INPUT " Enter length";l
A = l ^2
PRINT " Area of square";A
END

Area of triangle

CLS
INPUT " Enter base ";b
INPUT " Enter height "; h
A = 1/ 2 * b * h
PRINT " Area of triangle";A
END

Area of circle

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

Area of rectangle

CLS
INPUT " Enter length";l
INPUT " Enter breadth";b
A= l×b
PRINT " Area of rectangle";A
END