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
No Comments