1) Write a program to check whether a number is Armstrong or not.

INPUT “NUMBER”;N

A=N

DO

R=N MOD 10

SUM=SUM + r^3

N=N 10

LOOP WHILE N>0

IF SUM=A THEN

PRINT “ARMSTRONG”

ELSE

PRINT “NOT ARMSTRONG”

END IF

END

2)  Write a program to display reverse form of a input word.

INPUT “ENTER WORD”;A$

FOR I=LEN(A$) TO 1 STEP -1

B$=MID$(A$,1,I)

C$=C$+B$

NEXT I

PRINT C$

3.  Write a program to check whether a number is palindrome of not.

INPUT ‘NUMBER’;N

A=N

DO

R= N MOD 10

SUM=SUM*10+R

N=N 10

LOOP WHILE N<>0

IF A=SUM THEN

PRINT “PALINDROME”

ELSE

PRINT “NOT PALINDROME”

END IF

END

4.  Write a program to print only the vowels for a given word.

CLS

INPUT “ENTER WORD”;A$

FOR I= 1 TO LEN(A$)

B$=MID$(A#,I,1)

C$=UCASE$(B$)

IF C$= “A” OR C$= “E” OR C$= “I” OR C$= “O” OR C$= “U” THEN

PRINT C$

END IF

NEXT I

END

5.  Write a program to ask 2 numbers and find H.C.F. and L.C.M. of given number.

CLS

INPUT A

INPUT B

IF A>B THEN SWAP A,B

FOR I=1 TO A

R= A MOD I

R1= B MOD I

IF R=0 AND R1=0 THEN

H=I

END IF

NEXT I

L=(A*B)/H

PRINT “H.C.F.”;H

PRINT “L.C.M”;L

END

6. Wap to check whether the first character of the word is capital, small or numerical.

CLS

INPUT “ENTER ANY WORD”;N$

A$=LEFT$(N$,1)

A=ASC(A$)

SELECT CASE A

CASE 48 TO 57

PRINT “NUMBER”

CASE 65 TO 90

PRINT “UPPER CASE”

CASE 97 TO 122

PRINT “LOWER CASE”

CASE ELSE

PRINT “IT IS OUT OF RANGE”

END SELECT

END

7. Wap to ask n numbers and display them in ascending order.

INPUT “ENTER TOTAL NUMBER”;N

DIM ARR(N)

CLS

FOR I= 1 TO N

INPUT “ENTER NUMBER”;ARR(I)

NEXT I

FOR I= 1 TO N-1

FOR J=I+1 TO N

IF ARR(I) > ARR(J) THEN SWAP ARR(I), ARR(J)

NEXT J

NEXT I

FOR I=1 TO N

PRINT ARR(I)

NEXT I

END

8. Wap to enter full name and display the initials only.

 CLS

INPUT “ENTER FULL NAME”;N$

C$=LEFT$(N$,1)

FOR I= 1 TO LEN(N$)

IF MID$(N$,I,1) = “ ” THEN

C$=C$ + MID$(N$,I+1,1)

END IF

NEXT I

PRINT “THE INTITALS ARE”;C$

END

9.Wap to convert time in seconds into exact hours, minutes and seconds

CLS

INPUT “ENTER THE TIME IN SECONDS”;SC

H=SC/3600

MS=SC MOD 3600

M=MS/60

S= MS MOD 60

PRINT H;”:”;M “:”;S

END

10. Wap to convert binary into decimal.

INPUT B

I=0

DO

R= B MOD 10

D= D + R * 2^I

I=I+1

B=B10

LOOP WHILE B<>0

PRINT “DECIMAL”;D

END

11.Wap to convert decimal no. into binary.

CLS

INPUT D

B=2

WHILE  D<>0

R= D MOD B

D=DB

B$=STR$(R) + B$

WEND

PRINT B$

12. Wap to  find factorial number.

CLS

INPUT “ENTER NUMBER”;N

F=1

WHILE N>=1

F=F*N

N=N-1

WEND

PRINT “FACTORIAL”;F

END

13. Wap to find a^b without using the exponent sign(^)

CLS

INPUT A

INPUT B

C=A

FOR I=2 TO B

A=A*C

NEXT I

PRINT A

END

14. Wap to input name and show in ascending order.

CLS

INPUT “HOW MANY NAMES”;N

DIM ARRAY$(N)

FOR I=1 TO N

INPUT “ENTER NAME”;ARRAY$(I)

NEXT I

C=N-1

FLAG=1

DO WHILE FLAG=1

FLAG=0

FOR I=1 TO C

IF ARRAY$(I)>ARRAY$(I+1) THEN

SWAP ARRAY$(I),ARRAY$(I+1)

FLAG=1

END IF

NEXT I

C=C-1

LOOP

PRINT “THE NAMES SORTED ARE:”

PRINT

FOR I=1 TO N

PRINT I; “:”; ARRAY$(I)

NEXT I

END