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