26) 1,22,333,4444,55555

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

25) 1,11,111,1111,11111

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

24) 1,12,123,1234,12345

=> CLS 

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

Posted 1

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

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

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

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

21) Display 1,1,2,3,5...10th term.

=> CLS

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

20) Multiplication of table.

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

19) Factorial

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

18) Factors.

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

17) 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 number is prime"
ELSE
PRINT "The number is composite"
END IF
END

16) 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 number is armstrong"
ELSE
PRINT "The number is not armstrong"
END IF
END

15) 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 number is palindrome"
ELSE
PRINT "The number is not palindrome"
END IF
END

Posted 3 weeks ago by salinashrestha2077

14) Reverse 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

13) 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

12) 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

11) Greatest among 3 numbers.

=> CLS

INPUT "Enter any three number"; A, B,C
IF A>B AND A>C THEN
PRINT "The greates 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

10) Odd or even.

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

9) Find the 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

8) 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 four walls";A 
END

7) Area of square .

=> CLS

INPUT "Enter length";L 

A=L^2

PRINT "Area of square";A

END

6) Volume of cylinder

=> CLS
INPUT "Enter the radius"; R
INPUT "Enter the height"; H
V =  22/7*R^2*H
PRINT "Volume of cylinder="; V
END

5) 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

4) WAP to find volume of Cube.

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

1) Area of triangle .

CLS
INPUT "Enter Base";B
INPUT "Enter Height";H
A=1/2*B*H
PRINT " Area of triangle ";A
END

3) Area of circle.

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

2) Area of rectangle.

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