QBasic Programming

WAP to count the frequency of characters R or S present in the supplied string

CLS
INPUT "ENTER ANY STRING"; S$
RC = 0
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "R" THEN RC = RC + 1
IF C$ = "S" THEN SC = SC + 1
NEXT I
PRINT "TOTAL NO. OF R= "; RC
PRINT "TOTAL NO. OF S= "; SC
END

USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
RC = 0
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "R" THEN RC = RC + 1
IF C$ = "S" THEN SC = SC + 1
NEXT I
PRINT "TOTAL NO. OF R= "; RC
PRINT "TOTAL NO. OF S= "; SC

END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT “TOTAL NO. OF S=”;  COUNT(S$)
END

FUNCTION COUNT (S$)
RC = 0
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "R" THEN RC = RC + 1
IF C$ = "S" THEN SC = SC + 1
NEXT I
PRINT "TOTAL NO. OF R= "; RC
COUNT = SC

END FUNCTION

WAP to input string and display the input string in alternate character. E.g computerà cOmPuTeR (Prev Lesson)
(Next Lesson) WAP to check whether the supplied character is alphabet or not
Back to QBasic Programming

No Comments

Post a Reply

Course Curriculum

error: Content is protected !!