Volume of cube

CLS
INPUT"Enter length";l
V=l^3
PRINT"Volume of cube=";V
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

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

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

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

factors

CLS
INPUT" Enter any number";N
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT 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

Multiplaction table

CLS
INPUT" Enter any number":N
FOR I = 1 TO 10
PRINT N : "X": I "=": N* I
NEXT I
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 of digits=";S
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 number is palindrome"
ELSE
PRINT"The given number is not palindrome"
END IF 
END 

Greatest among three number

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

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

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

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

CLS 
I = 1
WHILE I < = 10
PRINT I ^ 2 
I = I + 1

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

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

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 

1,12,123,1234,12345

CLS
 FOR I = 1 TO 5 
 FOR J = 1 TO 10
PRINT J:
NEXT J 

1,4,9,16.. upto 10th term

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

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

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

area of triangle

CLS
INPUT"Enter base";b
INPUT"Enter height";h
A=1/2*b*h
PRINT"Area of triangle=";A
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 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

Area of circle

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

Area of rectangle

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