-
QBASIC PROGRAMMING  

*WAP to display reverse of input string. (SUB)

DECLARE     SUB     REVERSE (N)
CLS 
INPUT" Enter any number ";N 
CALL REVERSE (N)
END

SUB REVERSE (N)
S=0
WHILE N <>0
R= N MOD 10 
S= S*10 +R
N= N \ 10 
WEND 
PRINT "reversed digit ";S
END SUB

Comments

Post a Comment

Popular posts from this blog

-
QBASIC PROGRAMMING    *WAP TO FIND SUM OF DIGIT . (SUB)  DECLARE SUB SUM (N) CLS INPUT"ENTER ANY   NUMBER  ";N CALL SUM (N) END SUB SUM (N)  S=0  WHILE N< >0  R= N MOD 10  S= S+R  N= N\10  WEND PRINT "SUM OF DIGIT ";S END SUB 
Read more
-
QBASIC PROGRAMMING  *WAP  TO FIND AREA OF CIRCLE. (SUB)   DECLARE             SUB            CIR  (R) CLS  INPUT" Enter   radius ";R CALL CIR (R) END SUB  CIR (R) A= 22/ 7* R ^ 2  PRINT "area     of   circle" ;  A END SUB 
Read more
-
QBASIC PROGRAMMING  *WAP TO PRINT FIRST ODD NUMBER .(SUB) DECLARE SUB  SERIES ( ) CLS  CALL SERIES  END   SUB SERIES (   ) A= 1  FOR I = 1 TO 10  PRINT A = A+2  NEXT I  END SUB 
Read more