Tuesday, November 19, 2013

1.WAP A PROGRAM TO REVERSE THE DIGITS.

REM
CLS


S=0
INPUT "ENTER ANY NUMBER";N
       WHILE N<>0
       R=N MOD 10
     S=S*10+R
     N=N\10
      WEND
                      PRINT"THE REVERSE NUMBER=";S
       END






2.WAP TO DISPLAY THE PRODUCT OF ENTERED DIGITS.






REM
CLS
   S=0
              INPUT" ENTER ANY NUMBER";N
             WHILE N<>0
               R=N MOD 10
           S=S*R
              N=N\10
              WEND
                  PRINT"PRODUCT OF DIGITS=";S
                END



3.WAP TO DISPLAY THE PRODUCT OF EVEN DIGITS.



REM
CLS
 S=0
    INPUT" ENTER ANY NUMBER";N
       WHILE N<>0
     R=N MOD 10
    IF R MOD 2=0 THEN S=S*R
 N=N\10
    WEND
        PRINT"PRODUCT OF EVEN DIGITS=";S
     END




4.WAP TO DISPLAY THE PRODUCT OF ODD DIGITS.

        REM
       CLS
        S=0
           INPUT" ENTER ANY NUMBER";N
              WHILE N<>0
              R=N MOD 10
             IF R MOD 2=1 THEN S=S*R
                N=N\10
                WEND
                             PRINT"PRODUCTOF ODD DIGITS=";S
                  END


5.WAP TO COUNT TOTAL NUMBER OF ENTERED NUMBER.

REM
CLS
                       INPUT" ENTER ANY NUMBER";N
                WHILE N<>0
                R=NMOD10
                S=S+1
                  N=N\10
                  WEND
                                 PRINT"TOTAL NUMBER OF  DIGITS=";S
                    END






6. WAP TO COUNT TOTAL NUMBER OF EVEN NUMBER.
               
 REM
  CLS
                          INPUT" ENTER ANY NUMBER";N
                      WHILE N<>0
                      R=N MOD 10
                       IF R  MOD 2=0 THEN S=S+1
                        N=N\10
                        WEND
                       PRINT"TOTAL NUMBER OF EVEN  DIGITS=";S
                         END



7. WAP TO COUNT TOTAL NUMBER OF EVEN NUMBERS.


REM
CLS
           INPUT" ENTER ANY NUMBER";N
       WHILE N<>0
      R=N  MOD 10
          IF R MOD 2=1 THEN S=S+1
        N=N\10
       WEND
                      PRINT"TOTAL NUMBER OF ODD  DIGITS=";S
         END




8. WAP TO CHECK WHETHER THE GIVEN NUMBER IS ARMSTRONG OR NOT.



REM
CLS
INPUT"ENTER ANY NUMBER";N
       V=N
         WHILE V<>0
         R=V MOD 10
           S=S+R^3
          V=INT(V/10)
           WEND
           IF N=S THEN
                   PRINT N;"IS  ARMSTRONG NUMBER"
           ELSE
                          PRINT N;"IS NOT ARMSTRONG NUMBER"
            ENDIF
            END


9. WAP TO CHECK WHETHER THE GIVEN NUMBER IS PALINDROME OR NOT.



REM
CLS
INPUT"ENTER ANY NUMBER";N
     A=N
       WHILE N<>0
         R=N MOD 10
         S=S*10+R
         N=N\10
         WEND
         IF A=S THEN
                      PRINT A;"IS  PALINDROME NUMBER"
            ELSE
                         PRINT A ;"IS NOT PALINDROME NUMBER "
             ENDIF


              END
Posted by at No comments:
WAP TO DISPLAY BY ENTERING ANY NUMBER

1.SUM OF DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
S=S+R
N=N\10
WEND
PRINT "SUM OF DIGITS";S
END

2.SUM OF EVEN DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N <>0
R=N MOD 10
IF R MOD 2 = 0 THEN S=S+R
N=N\10
WEND
PRINT "SUM OF EVEN DIGITS";S
END

3.SUM OF ODD DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=1 THEN S=S+R
N=N\10
WEND
PRINT "SUM OF ODD DIGITS";S
END

4.SUM OF SQUARE OF DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
S= S+R^2
N=N\10
WEND
PRINT"SUM OF SQUARE OF DIGITS";S
END

5.SUM OF CUBE OF DIGITS
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N <>0
R=N MOD 10
S= S+R^3
N=N\10
WEND
PRINT"SUM OF CUBE OF DIGITS";S
END

6.SUM OF SQUARE OF EVEN DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=O THEN S=S+R^2
N=N\10
WEND
PRINT"SUM OF SQUARE OF EVEN DIGITS";S
END

7.SUM OF SQURE OF ODD DIGITS.
REM
CLS
S=0
INPUT"ENTER ANY NUMBER";N
WHILE N<>O
R=N MOD 10
IF R MOD 2=1 THEN S=S+R^2
N=N\10
WEND
PRINT"SUM OF SQUARE OF ODD DIGITS";S
END

8.SUM OF CUBE OF EVEN DIGITS.
REM
CLS
S=O
INPUT"ENTER ANY NUMBER";N
WHILE N<>0
R=N MOD 10
IF R MOD 2=0 THEN S=S+R^3
N=N\10
WEND
PRINT"SUM OF CUBE OF EVEN DIGITS";S
END

9.EVEN DIGITS OR ODD DIGITS.
REM
CLS
INPUT"ENTER ANY NUMBER";N
IF N MOD 2=0 THEN
PRINT N;"IS EVEN NUMBER"
ELSE
PRINT N;"IS ODD NUMBER"
ENDIF
END

10.SUM OF CUBE OF ODD DIGITS.
REM
CLS
S=0
INPUT "ENTER ANY NUMBER";N
WHILE N<>O
R=N MOD 10
IF R MOD 2=1 THEN S=S+R^3
N=N\10
WEND
PRINT"SUM OF CUBE OF ODD DIGITS";S
END
Posted by at 1 comment:


1J
  J A
  JAG
  JAGAT

.REM
CLS
S$="JAGAT"
FOR I =1 TO LEN (S$,I)
NEXT I
END

2.T
   AT
   GAT
   AGAT
   JAGAT

.REM
CLS
S$="JAGAT"
FOR I=1 to LEN (S$)
PRINT RIGHT$ (S$,I)
NEXT I
END

3.JAGAT
   JAGA
   JAG
   JA
   J

.REM
CLS
S$="JAGAT"
FOR I=LEN(S$)TO 1 STEP-1
PRINT LEFT$ (S$,1)
NEXT I
END

4.JAGAT
AGAT
GAT
AT
T

.REM
CLS
S$="JAGAT"
FOR I=LEN(S$) TO 1 STEP-1
PRINT RIGHTS (S$,I)
NEXT I
END

5.J
   A
   G
   A
   T
.REM
CLS
S$="JAGAT"
FOR I=1 TO LEN(S$)
PRINT MID$ (S$,I,1)
NEXT I
END


6. T
    A
    G
    A
    J

.REM
CLS
S$="JAGAT"
FOR I =LEN(S$) TO 1 STEP -1
PRINT MIDS (S$,I,1)
NEXT I
END

7.JAGAT
   AGA
   G

.REM
CLS
S$="JAGAT"
a=5
FOR I =1 TO 3
PRINT MID$(S$,I,a)
a=a-2
NEXT I
END


8.G
    AGA
    JAGAT

.REM
CLS
S$="JAGAT"
a=1
FOR I =3 TO 1 STEP-1
PRINT MID$(S$,I,a)
a=a+2
NEXT I
END

9.*
  **
  ***
  ****
  *****
REM
CLS
S$="*****"
FOR I=1 TO 6
PRINT LEFT$ (A$,I)
NEXT I
END

10.*****
    ****
    ***
    **
    *
REM
CLS
S$="*****"
FOR I=6 TO 1 STEP-1
PRINT LEFT$ (A$,I)
NEXT I
END





Posted by at No comments:
Subscribe to: Comments (Atom)