Wednesday, October 16, 2019

QBASIC to Reverse of Input string using SUB

DECLARE FUNCTION REV $ ( N$ )
CLS
INPUT "Enter name"; N$
PRINT "Reverse string is"; REV$ ( N$ )
END

 FUNCTION REV$ ( N$ )
FOR I = LEN ( N$ ) TO 1 STEP -1
B$ = MID $ ( N$, I, 1)
C$ =  C$ + B$
NEXT I
REV$ = C$
END FUNCTION
at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
  • Experience of JM
    During my time in high school I had it really good moments, but my best moments that I've experienced are in a particular class during ...
  • My Father
      My father My father name is Prem kumar Sunuwar.He is 39 years old.He is a mansion.He is my super hero of my life. He always help and su...
  • QBASIC to count total number of vowels in words using FUNCTION
    DECLARE FUNCTION COUNT ( N$ )  CLS INPUT "Enter any word"; N$ PRINT "Total number of vowels = "; COUNT ( N$ ) END ...