To print input string in alternate capital letters using FUNCTION procedure.

To print input string in alternate capital letters using FUNCTION procedure. (if user inputs 'COMPUTER' then the output should be 'CoMpUtEr') (QBasic Code)

• DECLARE FUNCTION alternate$(a$)
  CLS
  INPUT "Enter string:"; a$
  PRINT "The required alternate is: "; alternate$(a$)
  END
  
  FUNCTION alternate$ (a$)
  FOR i = 1 TO LEN(a$)
      b$ = MID$(a$, i, 1)
      IF i MOD 2 = 0 THEN
          b$ = LCASE$(b$)
      ELSE
          b$ = UCASE$(b$)
      END IF
      alt$ = alt$ + b$
  NEXT i
  alternate$ = alt$
  'PRINT "The required alternate is: "; alt$
  END FUNCTION

• See Also
• Using SUB Procedure

Share :

X