Qbasic
Wap to check the character is capital or small DECLARE FUNCTION CHECK$(A$) CLS INPUT"ENTER ANY CHARACTER";A$ PRINT"THE ENTERED CHARATER IS"; CHECK$(C$) END FUNCTION CHECK$(A$) C = ASC(A$) IF C>=65 AND C<=91 THEN CHECK$="UPPER CASE" ELSEIF C>=97 AND C<=122 THEN CHECK$="LOWER CASE" ELSE CHTR$="NOT A CHARACTER" END IF END FUNCTION 6.Wap to check the character is capital or small DECLARE FUNCTION CHECK$(A$) CLS INPUT"ENTER ANY CHARACTER";A$ PRINT"THE ENTERED CHARATER IS"; CHECK$(C$) END FUNCTION CHECK$(A$) C = ASC(A$) IF C>=65 AND C<=91 THEN CHECK$="UPPER CASE" ELSEIF C>=97 AND C<=122 THEN CHECK$="LOWER CASE" ELSE CHTR$="NOT A CHARACTER" END IF END FUNCTION 7.WAP TO DISPLAY 50, 42, 35, 29, 24 1O.......TERM DECLARER SUB SERIES() CLS CALL SERIES END SUB SERIES() A=50 B=8 FOR I = 1 TO 10 PRINT A A=A-B B=B-1 NEXT I END 8.Wap to find the palindrome word DECLARE FUNCT