Library Function

 1.      WRITE A PROGRAM TO PRINT PRODUCTS OF EACH DIGITS OF USER ENTERED NUMBER.

CLS

S=1

INPUT "ENTER ANY NUMBER:";N

WHILE N<>0

                R=N MOD 10

                S= S*R

                N=N\10

WEND

PRINT "THE PRODUCTS OF EACH DIGITS ARE:";S

END

 

DRY RUN TABLE:

INPUT n= ?

WHILE N<>0

R=N MOD 10

S=S*R (S=1)

N=N\10

OUTPUT

1236

N=1236

R=1236 MOD 10

R=6

S=1*6

S=6

N=1236\10

N=123.6

 

 

N=123

R=123 MOD 10

R=3

S=6*3

S=18

N=123\10

N=12

 

 

N=12

R= 12 MOD 10

R=2

S=18*2

S=36

 

 

 

N=1

R=1 MOD 10

R=1

S=36*1

S=36

N=1\10

N=0

 

 

N=0 (LOOP TERMINATED)

 

 

 

S=36

OUTPUT= 36


2.      WRITE A PROGRAM TO ACCEPT A NUMBER FROM THE USER THEN PRINT THE NUMBER IN REVERSING ITS DIGITS.

INPUT: 1234 = OUTPUT: 4321

CLS

INPUT "ENTER A NUMBER";N

WHILE N<>0

                R=N MOD 10

                S=S*10 +R

                N=N\10

WEND

PRINT " THE REVERSE NUMBER IS :";S

END


3.      WRITE A PROGRAM THAT ACCEPTS A NUMBER FROM THE USER THEN PRINTS THE SUM OF ONLY THE EVEN DIGITS.

                Cls

Input "ENTER ANY NUMBER"; N

While N <> 0

    R = N Mod 10

    If R Mod 2 = 0 Then

        S = S + R

    End If

    N = N \ 10

Wend

Print S

End

 

4.      WRITE A PROGRAM TO INPUT A WORD THEN PRINT IT IN ALTERNATIVE CASE.

Cls

Input "ENTER ANY WORD:"; N$

For I = 1 To Len(N$)

    X$ = Mid$(N$, I, 1)

    If I Mod 2 = 1 Then

        U$ = U$ + UCase$(X$)

    Else

        U$ = U$ + LCase$(X$)

    End If

Next I

Print U$

End

VARIABLE

LOOP(FOR I= 1 TO LEN(N$)

CONDITION

X$=MID$(N$,I,1)

CONDITION

IF I MOD 2=1

YES

U$=U$+UCASE$(X$)

NO?

U$=U$+LCASE$(X$)

OUTPUT

N$="SONU"

FOR I = 1 TO 4 (I=1)

X$= MID$(N$,1,1)

X$=S

IF 1 MOD 2=1? YES

U$=S

 

 

N$="SONU"

I=2

X$=O

IF 2 MOD 2=1? NO

 

U$=S+"o"

U$=So

 

 

I=3

X$=n

Yes

U$= SoN

 

 

 

I=4

X$=u

No

 

U$=SoNu

 

 

I=5(exit)

 

 

 

 

SoNu

 

Output: SoNu

 

5.      WRITE A PROGRAM TO COUNT NUMBER OF ODD DIGITS AND NUMBER OF EVEN DIGIT IN USER ENTERED NUMBER OF MAXIMUM SIX DIGITS NUMBER.

Cls

Input "ENTER NUMBER NOT MORE THEN SIX DIGITS:"; N

O = 0

E = 0

While N <> 0

    R = N Mod 10

    If R Mod 2 = 0 Then

        E = E + 1

    Else

        O = O + 1

    End If

    N = N \ 10

Wend

Print "THE TOTAL NUMBERS OF ODD DIGITS ARE:"; O

Print "THE TOTAL NUMBERS OF EVEN DIGITS ARE"; E

End

 


6.      WRITE A PROGRAM TO DISPLAY ALL ARMSTORING NUMBERS EXISTING IN BETWEEN 1 TO 1000.

 

Cls

For i = 1 To 1000

    a = 0

    b = i

    While b <> 0

        r = b Mod 10

        a = a + r ^ 3

        b = b \ 10

    Wend

    If a = i Then Print i

Next i

End

 

 


 

Rem 1

Rem 2 6

Rem 3 7 10

Rem 4 8 11 13

Rem 5 9 12 14 15

Cls

For i = 1 To 5

    p = i

    For j = 1 To i

        Print p;

        p = p + 5 - j

    Next j

    Print

Next i

End

 

 

 

Rem THAT ACCEPTS THE NUMBER FORM THE USER AND PRINT THE SUM OF CUBE OF ITS DIGITS.

Eg=123 1^3+2^3+3^3

 

Cls

Input "ENTER A NUMBER"; N

While N <> 0

    R = N Mod 10

    S = S + R ^ 3

    N = N \ 10

Wend

Print "THE SUM OF CUBE OF ITS DIGITS IS"; S

End

 

 

Dry run:

N=?

While n<>0

R=n mod 10

S=s+r^3

N=n\10

Print ;S

543

543<>0 ? TRUE

R=543 MOD 10

R=3

S=0+3^3

S=27

N=543\10

N=54

 

N=54

54<>0? TRUE

R=54 MOD 10

R=4

S=27+4^3

S=27+64

S=91

N=54\10

N=5

 

N=5

5<>0? True

R= 5 MOD 10

R=5

S=91+5^3

S=91+125

S=216

N=5\10

N=0

 

N=0

0<>O? FALSE

LOOP TERMINATE

 

 

 

216

 

Output: THE SUM OF CUBE OF ITS DIGITS IS 216

 

 

1.      WRITE A PROGRAM TO PRINT PRODUCTS OF EACH DIGITS OF USER ENTERED NUMBER.

INPUT:  1236

                1 2 X 3 X 6 = 36

CLS

S=1

INPUT "ENTER ANY NUMBER:";N

WHILE N<>0

                R=N MOD 10

                S= S*R

                N=N\10

WEND

PRINT "THE PRODUCTS OF EACH DIGITS ARE:";S

END

 

DRY RUN TABLE:

INPUT n= ?

WHILE N<>0

R=N MOD 10

S=S*R (S=1)

N=N\10

OUTPUT

1236

N=1236

R=1236 MOD 10

R=6

S=1*6

S=6

N=1236\10

N=123.6

 

 

N=123

R=123 MOD 10

R=3

S=6*3

S=18

N=123\10

N=12

 

 

N=12

R= 12 MOD 10

R=2

S=18*2

S=36

 

 

 

N=1

R=1 MOD 10

R=1

S=36*1

S=36

N=1\10

N=0

 

 

N=0 (LOOP TERMINATED)

 

 

 

S=36

OUTPUT= 36

 

2.      WRITE A PROGRAM TO ACCEPT A NUMBER FROM THE USER THEN PRINT THE NUMBER IN REVERSING ITS DIGITS.

INPUT: 1234 = OUTPUT: 4321

CLS

INPUT "ENTER A NUMBER";N

WHILE N<>0

                R=N MOD 10

                S=S*10 +R

                N=N\10

WEND

PRINT " THE REVERSE NUMBER IS :";S

END

 

 

 

 

 

 

 

 

 

 

 

3.      WRITE A PROGRAM THAT ACCEPTS A NUMBER FROM THE USER THEN PRINTS THE SUM OF ONLY THE EVEN DIGITS.

                Cls

Input "ENTER ANY NUMBER"; N

While N <> 0

    R = N Mod 10

    If R Mod 2 = 0 Then

        S = S + R

    End If

    N = N \ 10

Wend

Print S

End

 

4.      WRITE A PROGRAM TO INPUT A WORD THEN PRINT IT IN ALTERNATIVE CASE.

Cls

Input "ENTER ANY WORD:"; N$

For I = 1 To Len(N$)

    X$ = Mid$(N$, I, 1)

    If I Mod 2 = 1 Then

        U$ = U$ + UCase$(X$)

    Else

        U$ = U$ + LCase$(X$)

    End If

Next I

Print U$

End

VARIABLE

LOOP(FOR I= 1 TO LEN(N$)

CONDITION

X$=MID$(N$,I,1)

CONDITION

IF I MOD 2=1

YES

U$=U$+UCASE$(X$)

NO?

U$=U$+LCASE$(X$)

OUTPUT

N$="SONU"

FOR I = 1 TO 4 (I=1)

X$= MID$(N$,1,1)

X$=S

IF 1 MOD 2=1? YES

U$=S

 

 

N$="SONU"

I=2

X$=O

IF 2 MOD 2=1? NO

 

U$=S+"o"

U$=So

 

 

I=3

X$=n

Yes

U$= SoN

 

 

 

I=4

X$=u

No

 

U$=SoNu

 

 

I=5(exit)

 

 

 

 

SoNu

 

Output: SoNu

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5.      WRITE A PROGRAM TO COUNT NUMBER OF ODD DIGITS AND NUMBER OF EVEN DIGIT IN USER ENTERED NUMBER OF MAXIMUM SIX DIGITS NUMBER.

Cls

Input "ENTER NUMBER NOT MORE THEN SIX DIGITS:"; N

O = 0

E = 0

While N <> 0

    R = N Mod 10

    If R Mod 2 = 0 Then

        E = E + 1

    Else

        O = O + 1

    End If

    N = N \ 10

Wend

Print "THE TOTAL NUMBERS OF ODD DIGITS ARE:"; O

Print "THE TOTAL NUMBERS OF EVEN DIGITS ARE"; E

End

 

 

 

 

 

6.      WRITE A PROGRAM TO DISPLAY ALL ARMSTORING NUMBERS EXISTING IN BETWEEN 1 TO 1000.

 

Cls

For i = 1 To 1000

    a = 0

    b = i

    While b <> 0

        r = b Mod 10

        a = a + r ^ 3

        b = b \ 10

    Wend

    If a = i Then Print i

Next i

End

 

 

 

 

 

 

 

 

 

 

 

 

Rem 1

Rem 2 6

Rem 3 7 10

Rem 4 8 11 13

Rem 5 9 12 14 15

Cls

For i = 1 To 5

    p = i

    For j = 1 To i

        Print p;

        p = p + 5 - j

    Next j

    Print

Next i

End

 

 

 

Rem THAT ACCEPTS THE NUMBER FORM THE USER AND PRINT THE SUM OF CUBE OF ITS DIGITS.

Eg=123 1^3+2^3+3^3

 

Cls

Input "ENTER A NUMBER"; N

While N <> 0

    R = N Mod 10

    S = S + R ^ 3

    N = N \ 10

Wend

Print "THE SUM OF CUBE OF ITS DIGITS IS"; S

End

 

 

Dry run:

N=?

While n<>0

R=n mod 10

S=s+r^3

N=n\10

Print ;S

543

543<>0 ? TRUE

R=543 MOD 10

R=3

S=0+3^3

S=27

N=543\10

N=54

 

N=54

54<>0? TRUE

R=54 MOD 10

R=4

S=27+4^3

S=27+64

S=91

N=54\10

N=5

 

N=5

5<>0? True

R= 5 MOD 10

R=5

S=91+5^3

S=91+125

S=216

N=5\10

N=0

 

N=0

0<>O? FALSE

LOOP TERMINATE

 

 

 

216

 

Output: THE SUM OF CUBE OF ITS DIGITS IS 216

 

 

Post a Comment

Post a Comment (0)

Previous Post Next Post