Modular Programming


 WAP to input any string and reverse it.

CLS

INPUT "ENTER ANY STRING"; S$

FOR I = LEN(S$) TO 1 STEP -1

B$ = MID$(S$, I, 1)

W$ = W$ + B$

NEXT I

PRINT "REVERSED STRING IS "; W$

END



USING SUB PROCEDURE



DECLARE SUB REV (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL REV(S$)

END

SUB REV (S$)

FOR I = LEN(S$) TO 1 STEP -1

B$ = MID$(S$, I, 1)

W$ = W$ + B$

NEXT I

PRINT "REVERSED STRING IS "; W$

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION REV$ (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "REVERSED STRING IS "; REV$(S$)

END



FUNCTION REV$ (S$)

FOR I = LEN(S$) TO 1 STEP -1

B$ = MID$(S$, I, 1)

W$ = W$ + B$

NEXT I

REV$ = W$

END FUNCTION



WAP to input any string and check whether the given string is palindrome or not.



CLS

INPUT "ENTER ANY STRING"; S$

FOR I = LEN(S$) TO 1 STEP -1

B$ = MID$(S$, I, 1)

W$ = W$ + B$

NEXT I

IF S$ = W$ THEN

PRINT  S$; “IS PALINDROME”

ELSE

PRINT S$; “IS NOT PALINDROME”

END IF

END



USING SUB PROCEDURE



DECLARE SUB REV (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL REV(S$)

END



SUB REV (S$)

FOR I = LEN(S$) TO 1 STEP -1

B$ = MID$(S$, I, 1)

W$ = W$ + B$

NEXT I

IF S$ = W$ THEN

PRINT  S$; “IS PALINDROME”

ELSE

PRINT S$; “IS NOT PALINDROME”

END IF

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION REV$ (S$)

CLS

INPUT "ENTER ANY STRING"; S$

C$ = REV$(S$)

IF S$ = C$ THEN

PRINT  S$; “IS PALINDROME”

ELSE

PRINT S$; “IS NOT PALINDROME”

END IF

END



FUNCTION REV$ (S$)

FOR I = LEN(S$) TO 1 STEP -1

B$ = MID$(S$, I, 1)

W$ = W$ + B$

NEXT I

REV$ = W$

END FUNCTION



WAP to input any string and count total no. of vowels.

CLS

INPUT "ENTER ANY STRING"; S$

VC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

END



USING SUB PROCEDURE



DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END

SUB COUNT (S$)

VC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF VOWELS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

VC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

END IF

NEXT I

COUNT = VC

END FUNCTION







WAP to input any string and display only vowels.

CLS

INPUT "ENTER ANY STRING"; S$

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

PRINT B$

END IF

NEXT I

END



USING SUB PROCEDURE



DECLARE SUB DISPV (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL DISPV(S$)

END



SUB DISPV(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

PRINT B$

END IF

NEXT I

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION DISPV (S$)

CLS

INPUT "ENTER ANY STRING"; S$

VC = DISPV(S$)

END



FUNCTION DISPV(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

PRINT B$

END IF

NEXT I

END FUNCTION









  WAP to input any string and count total no. of consonants.

CLS

INPUT "ENTER ANY STRING"; S$

CC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"

AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF CONSONANTS= "; CC

END SUB







USING SUB PROCEDURE



DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

CC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"

AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF CONSONANTS= "; CC

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

CC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

CC = CC + 1

END IF

NEXT I

COUNT = CC

END FUNCTION



WAP to input any string and display only consonants.

CLS

INPUT "ENTER ANY STRING"; S$

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"

AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

PRINT B$

END IF

NEXT I

END



USING SUB PROCEDURE



DECLARE SUB DISPC (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL DISPC(S$)

END



SUB DISPC(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"

AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

PRINT B$

END IF

NEXT I

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION DISPC (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CC = DISPC(S$)

END



FUNCTION DISPC(S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"

AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

PRINT B$

END IF

NEXT I

END FUNCTION



  WAP to input any string and count total no. of vowels and consonants.

CLS

INPUT "ENTER ANY STRING"; S$

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END



USING SUB PROCEDURE

DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS="; CC

COUNT = CC

END FUNCTION



 WAP to input any word and count total no. of vowels and consonants.

CLS

INPUT "ENTER ANY WORD"; S$

VC = 0

CC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END



USING SUB PROCEDURE

DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY WORD"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

VC = 0

CC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY WORD"; S$

PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

VC = 0

CC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS="; CC

COUNT = CC

END FUNCTION



  WAP to input any string and count total no. of words.



CLS

INPUT "ENTER ANY STRING"; S$

WC = 1

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = " " THEN

WC = WC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF WORDS= "; WC

END SUB





USING SUB PROCEDURE

DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

WC = 1

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = " " THEN

WC = WC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF WORDS= "; WC

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF WORDS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

WC = 1

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = " " THEN

WC = WC + 1

END IF

NEXT I

COUNT = WC

END FUNCTION



 WAP to input any string and count total no. of vowels , consonants and words.

CLS

INPUT "ENTER ANY STRING"; S$

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

PRINT "TOTAL NO. OF WORDS="; WC

END



USING SUB PROCEDURE

DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

PRINT "TOTAL NO. OF WORDS="; WC

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS="; CC

PRINT "TOTAL NO. OF WORDS="; WC

COUNT = CC

END FUNCTION



 WAP to input any string and count total no. of sentences.

CLS

INPUT "ENTER ANY STRING"; S$

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = " " THEN

SC = SC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF SENTENCES= "; SC

END SUB





USING SUB PROCEDURE

DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = " " THEN

SC = SC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF SENTENCES= "; SC

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF SENTENCES= "; COUNT(S$)

END



FUNCTION COUNT (S$)

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = " " THEN

SC = SC + 1

END IF

NEXT I

COUNT = SC

END FUNCTION







  WAP to input any string and count total no. of vowels , consonants, words and sentences.

CLS

INPUT "ENTER ANY STRING"; S$

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

PRINT "TOTAL NO. OF WORDS="; WC

PRINT "TOTAL NO. OF SENTENCES="; SC

END



USING SUB PROCEDURE

DECLARE SUB COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL COUNT(S$)

END



SUB COUNT (S$)

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS= "; VC

PRINT "TOTAL NO. OF CONSONANTS="; CC

PRINT "TOTAL NO. OF WORDS="; WC

PRINT "TOTAL NO. OF SENTENCES="; SC

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)

END



FUNCTION COUNT (S$)

VC = 0

CC = 0

WC = 1

SC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN

VC = VC + 1

ELSEIF B$ = " " THEN

WC = WC + 1

ELSEIF B$ = "." THEN

SC = SC + 1

ELSE

CC = CC + 1

END IF

NEXT I

PRINT "TOTAL NO. OF VOWELS="; CC

PRINT "TOTAL NO. OF WORDS="; WC

PRINT "TOTAL NO. OF SENTENCES="; SC

COUNT = CC

END FUNCTION





 WAP to input any string and check whether the first character of a input string is alphabet, number or symbol.

CLS

INPUT "ENTER ANY STRING"; S$

A$ = LEFT$(S$, 1)

B = ASC(A$)

IF B >= 48 AND B <= 57 THEN

CK$ = "FIRST CHARACTER IS A NUMBER"

ELSEIF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN

CK$ = "FIRST CHARACTER IS ALPHABET"

ELSE

CK$ = "FIRST CHARACTER IS SYMBOL"

END IF

PRINT CK$

END SUB





USING SUB PROCEDURE

DECLARE SUB CHECK (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL CHECK(S$)

END



SUB CHECK (S$)

A$ = LEFT$(S$, 1)

B = ASC(A$)

IF B >= 48 AND B <= 57 THEN

CK$ = "FIRST CHARACTER IS A NUMBER"

ELSEIF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN

CK$ = "FIRST CHARACTER IS ALPHABET"

ELSE

CK$ = "FIRST CHARACTER IS SYMBOL"

END IF

PRINT CK$

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT CHECK$(S$)

END



FUNCTION CHECK$ (S$)

A$ = LEFT$(S$, 1)

B = ASC(A$)

IF B >= 48 AND B <= 57 THEN

CHECK$ = "FIRST CHARACTER IS A NUMBER"

ELSEIF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN

CHECK$ = "FIRST CHARACTER IS ALPHABET"

ELSE

CHECK$ = "FIRST CHARACTER IS SYMBOL"

END IF

END FUNCTION



 WAP to input any string and display only consonant by removing vowels.

CLS

INPUT "ENTER ANY STRING"; S$

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

W$=W$+B$

END IF

NEXT I

PRINT W$

END SUB



USING SUB PROCEDURE

DECLARE SUB DISP(S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL DISP(S$)

END



SUB DISP (S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

W$=W$+B$

END IF

NEXT I

PRINT W$

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION DISP$ (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT DISP(S$)

END



FUNCTION DISP$ (S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN

W$=W$+B$

END IF

NEXT I

DISP$ =  W$

END FUNCTION



 WAP to input string and find whether the first character is a number or uppercase or lowercase.

CLS

INPUT "ENTER ANY STRING"; S$

A$ = LEFT$(S$, 1)

B = ASC(A$)

IF B >= 48 AND B <= 57 THEN

CK$ = "FIRST CHARACTER IS A NUMBER"

ELSEIF B >= 65 AND B <= 90 THEN

CK$ = "FIRST CHARACTER IS UPPERCASE"

ELSE IF  B >= 97 AND B <= 122 THEN

CK$ = "FIRST CHARACTER IS LOWERCASE"

ELSE

CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE”

END IF

PRINT CK$

END SUB





USING SUB PROCEDURE

DECLARE SUB CHECK (S$)

CLS

INPUT "ENTER ANY STRING"; S$

CALL CHECK(S$)

END



SUB CHECK (S$)

A$ = LEFT$(S$, 1)

B = ASC(A$)

IF B >= 48 AND B <= 57 THEN

CK$ = "FIRST CHARACTER IS A NUMBER"

ELSEIF B >= 65 AND B <= 90 THEN

CK$ = "FIRST CHARACTER IS UPPERCASE"

ELSE IF  B >= 97 AND B <= 122 THEN

CK$ = "FIRST CHARACTER IS LOWERCASE"

ELSE

CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE”

END IF

PRINT CK$

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (S$)

CLS

INPUT "ENTER ANY STRING"; S$

PRINT CHECK$(S$)

END



FUNCTION CHECK$ (S$)

A$ = LEFT$(S$, 1)

B = ASC(A$)

IF B >= 48 AND B <= 57 THEN

CK$ = "FIRST CHARACTER IS A NUMBER"

ELSEIF B >= 65 AND B <= 90 THEN

CK$ = "FIRST CHARACTER IS UPPERCASE"

ELSE IF  B >= 97 AND B <= 122 THEN

CK$ = "FIRST CHARACTER IS LOWERCASE"

ELSE

CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE”

END IF

CHECK$ = CK$

END FUNCTION



 WAP to input string and display the input string in alternate character. E.g computer cOmPuTeR

CLS

INPUT "ENTER ANY WORD"; S$

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF I MOD 2 = 1 THEN

W$ = W$ + LCASE$(B$)

ELSE

W$ = W$ + UCASE$(B$)

END IF

NEXT I

PRINT W$

END SUB





USING SUB PROCEDURE

DECLARE SUB ALT(S$)

CLS

INPUT "ENTER ANY WORD"; S$

CALL ALT(S$)

END



SUB ALT$ (S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF I MOD 2 = 1 THEN

W$ = W$ + LCASE$(B$)

ELSE

W$ = W$ + UCASE$(B$)

END IF

NEXT I

PRINT W$

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION ALT$ (S$)

CLS

INPUT "ENTER ANY WORD"; S$

PRINT ALT$(S$)

END



FUNCTION ALT$ (S$)

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF I MOD 2 = 1 THEN

W$ = W$ + LCASE$(B$)

ELSE

W$ = W$ + UCASE$(B$)

END IF

NEXT I

ALT$ = W$

END FUNCTION



  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 check whether the supplied character is alphabet or not.



CLS

INPUT "ENTER ANY CHARACTER"; A$

B = ASC(A$)

IF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN

CK$ = "SUPPLIED CHARACTER IS ALPHABET"

ELSE

CK$ = "SUPPLIED CHARACTER IS NOT ALPHABET"

END IF

PRINT CK$

END SUB





USING SUB PROCEDURE

DECLARE SUB CHECK (A$)

CLS

INPUT "ENTER ANY CHARACTER"; A$

CALL CHECK(A$)

END



SUB CHECK (A$)

B = ASC(A$)

IF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN

CK$ = "SUPPLIED CHARACTER IS ALPHABET"

ELSE

CK$ = "SUPPLIED CHARACTER IS NOT ALPHABET"

END IF

PRINT CK$

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (A$)

CLS

INPUT "ENTER ANY CHARACTER"; A$

PRINT CHECK$(A$)

END



FUNCTION CHECK$ (A$)

B = ASC(A$)

IF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN

CK$ = "SUPPLIED CHARACTER IS ALPHABET"

ELSE

CK$ = "SUPPLIED CHARACTER IS NOT ALPHABET"

END IF

CHECK$ = CK$

END FUNCTION





WAP to enter any ten strings and display the longest strings.

CLS

INPUT "ENTER FIRST STRING"; A$

FOR I = 2 TO 10

INPUT "ENTER NEXT STRING"; B$

IF LEN(B$) > LEN(A$) THEN A$ = B$

NEXT I

PRINT "LONGEST STRING="; A$

END



USING SUB PROCEDURE

DECLARE SUB LON( A$ )

CLS

INPUT "ENTER FIRST STRING"; A$

CALL LON (A$)

END

SUB LON (A$)

FOR I = 2 TO 10

INPUT "ENTER NEXT STRING"; B$

IF LEN(B$) > LEN(A$) THEN A$ = B$

NEXT I

PRINT "LONGEST STRING="; A$

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION LON$( A$ )

CLS

INPUT "ENTER FIRST STRING"; A$

PRINT "LONGEST STRING=";  LON (A$)

END

FUNCTION LON (A$)



FOR I = 2 TO 10

INPUT "ENTER NEXT STRING"; B$

IF LEN(B$) > LEN(A$) THEN A$ = B$

NEXT I

LON$ = A$

END FUNCTION



  WAP to enter any ten strings and display the shortest string.

CLS

INPUT "ENTER FIRST STRING"; A$

FOR I = 2 TO 10

INPUT "ENTER NEXT STRING"; B$

IF LEN(B$) < LEN(A$) THEN A$ = B$

NEXT I

PRINT "SHORTEST STRING="; A$

END

USING SUB PROCEDURE

DECLARE SUB SHRT( A$ )

CLS

INPUT "ENTER FIRST STRING"; A$

CALL SHRT (A$)

END

SUB SHRT (A$)

FOR I = 2 TO 10

INPUT "ENTER NEXT STRING"; B$

IF LEN(B$) < LEN(A$) THEN A$ = B$

NEXT I

PRINT "SHORTEST STRING="; A$

END SUB



USING FUNCTION PROCEDURE



DECLARE FUNCTION SHRT$( A$ )

CLS

INPUT "ENTER FIRST STRING"; A$

PRINT "SHORTEST STRING=";  SHRT$(A$)

END

FUNCTION SHRT$(A$)

FOR I = 2 TO 10

INPUT "ENTER NEXT STRING"; B$

IF LEN(B$) < LEN(A$) THEN A$ = B$

NEXT I

SHRT$ = A$

END FUNCTION



 WAP to enter any ten strings and sort in ascending order.

CLS

DIM N(10) AS STRING

FOR I = 1 TO 10

INPUT "ENTER THE STRINGS"; N(I)

NEXT I

FOR I = 1 TO 10

FOR J = 1 TO 10 - I

IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1)

NEXT J

NEXT I

PRINT "STRINGS ARRANGED IN ASCENDING ORDER"

FOR I = 1 TO 10

PRINT N(I)

NEXT I



END



USING SUB PROCEDURE



DECLARE SUB SORT (N())

CLS

DIM N(10) AS STRING

FOR I = 1 TO 10

INPUT "ENTER THE STRINGS"; N(I)

NEXT I

CALL SORT(N())

PRINT "STRINGS ARRANGED IN ASCENDING ORDER"

FOR I = 1 TO 10

PRINT N(I)

NEXT I

END





SUB SORT (N())

FOR I = 1 TO 10

FOR J = 1 TO 10 - I

IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1)

NEXT J

NEXT I



END SUB





 WAP to enter any ten strings and sort in descending order.

CLS

DIM N(10) AS STRING

FOR I = 1 TO 10

INPUT "ENTER THE STRINGS"; N(I)

NEXT I

FOR I = 1 TO 10

FOR J = 1 TO 10 - I

IF N(J) < N(J + 1) THEN SWAP N(J), N(J + 1)

NEXT J

NEXT I

PRINT "STRINGS ARRANGED IN DESCENDING ORDER"

FOR I = 1 TO 10

PRINT N(I)

NEXT I



END



USING SUB PROCEDURE



DECLARE SUB SORT (N())

CLS

DIM N(10) AS STRING

FOR I = 1 TO 10

INPUT "ENTER THE STRINGS"; N(I)

NEXT I

CALL SORT(N())

PRINT "STRINGS ARRANGED IN DESCENDING ORDER"

FOR I = 1 TO 10

PRINT N(I)

NEXT I

END





SUB SORT (N())

FOR I = 1 TO 10

FOR J = 1 TO 10 - I

IF N(J) < N(J + 1) THEN SWAP N(J), N(J + 1)

NEXT J

NEXT I



END SUB







 WAP to enter any three strings and print the shortest one.



CLS

INPUT "ENTER FIRST STRING"; A$

INPUT "ENTER SECOND STRING"; B$

INPUT "ENTER THIRD STRING"; C$

IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN

S$ = A$

IF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN

S$ = B$

ELSE

S$ = C$

END IF

PRINT "SHORTEST STRING="; S$

END



USING SUB PROCEDURE

DECLARE SUB SHRT( A$, B$, C$)

CLS

INPUT "ENTER FIRST STRING"; A$

INPUT "ENTER SECOND STRING"; B$

INPUT "ENTER THIRD STRING"; C$

CALL SHRT$(A$, B$, C$)

END



SUB SHRT$(A$, B$, C$)

IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN

S$ = A$

IF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN

S$ = B$

ELSE

S$ = C$

END IF

PRINT “SHORTEST STRING=”; S$

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SHRT$( A$, B$, C$)

CLS

INPUT "ENTER FIRST STRING"; A$

INPUT "ENTER SECOND STRING"; B$

INPUT "ENTER THIRD STRING"; C$

PRINT "SHORTEST STRING="; SHRT$( A$, B$, C$)

END



FUNCTION SHRT$( A$, B$, C$)

IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN

S$ = A$

IF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN

S$ = B$

ELSE

S$ = C$

END IF

SHRT$ = S$

END FUNCTION



 WAP to enter any three strings and print the longest one.

CLS

INPUT "ENTER FIRST STRING"; A$

INPUT "ENTER SECOND STRING"; B$

INPUT "ENTER THIRD STRING"; C$

IF LEN(A$) > LEN(B$) AND LEN(A$) > LEN(C$) THEN

G$ = A$

IF LEN(B$) > LEN(A$) AND LEN(B$) > LEN(C$) THEN

G$ = B$

ELSE

G$ = C$

END IF

PRINT "LONGEST STRING="; G$

END



USING SUB PROCEDURE

DECLARE SUB LON ( A$, B$, C$)

CLS

INPUT "ENTER FIRST STRING"; A$

INPUT "ENTER SECOND STRING"; B$

INPUT "ENTER THIRD STRING"; C$

CALL LON(A$, B$, C$)

END



SUB LON (A$, B$, C$)

IF LEN(A$) > LEN(B$) AND LEN(A$) > LEN(C$) THEN

G$ = A$

IF LEN(B$) > LEN(A$) AND LEN(B$) > LEN(C$) THEN

G$ = B$

ELSE

G$ = C$

END IF

PRINT “LONGEST STRING=”; G$

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION LON$( A$, B$, C$)

CLS

INPUT "ENTER FIRST STRING"; A$

INPUT "ENTER SECOND STRING"; B$

INPUT "ENTER THIRD STRING"; C$

PRINT "LONGEST STRING="; LON$( A$, B$, C$)

END



FUNCTION LON$( A$, B$, C$)

IF LEN(A$) > LEN(B$) AND LEN(A$) > LEN(C$) THEN

G$ = A$

IF LEN(B$) > LEN(A$) AND LEN(B$) > LEN(C$) THEN

G$ = B$

ELSE

G$ = C$

END IF

LON$ = S$

END FUNCTION



 WAP to convert decimal number to binary number.

CLS

INPUT "ENTER DECIMAL NUMBER"; D

WHILE D < > 0

R = D MOD 2

S$ = STR$(R) + S$

D = D \ 2

WEND

PRINT "BINARY EQUIVALENT VALUE="; S$

END



USING SUB PROCEDURE

DECLARE SUB CONV(D)

CLS

INPUT "ENTER DECIMAL NUMBER"; D

CALL CONV(D)

END



SUB CONV(D)

WHILE D  < > 0

R = D MOD 2

S$ = STR$(R) + S$

D = D \ 2

WEND

PRINT "BINARY EQUIVALENT VALUE="; S$

END



USING FUNCTION PROCEDURE

DECLARE SUB CONV$(D)

CLS

INPUT "ENTER DECIMAL NUMBER"; D

PRINT "BINARY EQUIVALENT VALUE=";  CONV$(D)

END



SUB CONV$(D)

WHILE D  < > 0

R = D MOD 2

S$ = STR$(R) + S$

D = D \ 2

WEND

CONV$ = S$

END FUNCTION





 WAP to convert binary number to decimal number.



CLS

INPUT "ENTER BINARY NUMBER"; N$

FOR I = LEN(N$) TO 1 STEP -1

B$ = MID$(N$, I, 1)

S = S + VAL(B$) * 2 ^ P

P = P + 1

NEXT I

PRINT "DECIMAL EQUIVALENT VALUE="; S

END

USING SUB PROCEDURE

DECLARE SUB CONV(N)

CLS

INPUT "ENTER BINARY NUMBER"; N

CALL CONV(N)

END

SUB CONV(N)

P = 0: S = 0

WHILE N <> 0

R = N MOD 10

S = S + R * 2 ^ P

P = P + 1

N = N \ 10

WEND

PRINT "DECIMAL EQUIVALENT VALUE="; S

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CONV(N)

CLS

INPUT "ENTER BINARY NUMBER"; N

PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N)

END

FUNCTION CONV(N)

P = 0: S = 0

WHILE N <> 0

R = N MOD 10

S = S + R * 2 ^ P

P = P + 1

N = N \ 10

WEND

CONV = S

END FUNCTION



 WAP to convert decimal number to octal number.



CLS

INPUT "ENTER DECIMAL NUMBER"; D

WHILE D  < > 0

R = D MOD 8

S$ = STR$(R) + S$

D = D \ 8

WEND

PRINT "OCTAL EQUIVALENT VALUE="; S$

END



USING SUB PROCEDURE

DECLARE SUB CONV(D)

CLS

INPUT "ENTER DECIMAL NUMBER"; D

CALL CONV(D)

END



SUB CONV(D)

WHILE D  < > 0

R = D MOD 8

S$ = STR$(R) + S$

D = D \ 8

WEND

PRINT "OCTAL EQUIVALENT VALUE="; S$

END



USING FUNCTION PROCEDURE

DECLARE SUB CONV$(D)

CLS

INPUT "ENTER DECIMAL NUMBER"; D

PRINT "OCTAL EQUIVALENT VALUE=";  CONV$(D)

END



SUB CONV$(D)

WHILE D  < > 0

R = D MOD 8

S$ = STR$(R) + S$

D = D \ 8

WEND

CONV$ = S$

END FUNCTION



 WAP to convert octal number to decimal number.

CLS

INPUT "ENTER OCTAL NUMBER"; N$

FOR I = LEN(N$) TO 1 STEP -1

B$ = MID$(N$, I, 1)

S = S + VAL(B$) * 8 ^ P

P = P + 1

NEXT I

PRINT "DECIMAL EQUIVALENT VALUE="; S

END

OR



USING SUB PROCEDURE

DECLARE SUB CONV(N)

CLS

INPUT "ENTER OCTAL NUMBER"; N

CALL CONV(N)

END

SUB CONV(N)

P = 0: S = 0

WHILE N <> 0

R = N MOD 10

S = S + R * 8 ^ P

P = P + 1

N = N \ 10

WEND

PRINT "DECIMAL EQUIVALENT VALUE="; S

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CONV(N)

CLS

INPUT "ENTER OCTAL NUMBER"; N

PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N)

END

FUNCTION CONV(N)

P = 0: S = 0

WHILE N <> 0

R = N MOD 10

S = S + R * 8 ^ P

P = P + 1

N = N \ 10

WEND

CONV = S

END FUNCTION



 WAP to convert decimal number to hexadecimal number.

CLS

INPUT "ENTER DECIMAL NUMBER"; D

WHILE D <> 0

R = D MOD 16

IF R < 10 THEN

S$ = STR$(R) + S$

ELSE

S$ = CHR$(R + 55) + S$

END IF

D = D \ 16

WEND

PRINT "HEXADECIMAL EQUIVALENT VALUE="; S$

END

USING SUB PROCEDURE

DECLARE SUB CONV(D)

CLS

INPUT "ENTER DECIMAL NUMBER"; D

CALL CONV (D)

END

SUB CONV(D)

WHILE D <> 0

R = D MOD 16

IF R = 10 THEN

S$ = "A"

ELSEIF R = 11 THEN

S$ = "B"

ELSEIF R = 12 THEN

S$ = "C"

ELSEIF R = 13 THEN

S$ = "D"

ELSEIF R = 14 THEN

S$ = "E"

ELSEIF R = 15 THEN

S$ = "F"

ELSE

S$ = STR$(R) + S$

END IF

D = D \ 16

WEND

PRINT "HEXADECIMAL EQUIVALENT VALUE="; S$

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CONV$ (D)

CLS

INPUT "ENTER DECIMAL NUMBER"; D

PRINT "HEXADECIMAL EQUIVALENT VALUE=";  CONV$ (D)

END

FUNCTION CONV$(D)

WHILE D < > 0

R = D MOD 16

IF R = 10 THEN

S$ = "A"

ELSEIF R = 11 THEN

S$ = "B"

ELSEIF R = 12 THEN

S$ = "C"

ELSEIF R = 13 THEN

S$ = "D"

ELSEIF R = 14 THEN

S$ = "E"

ELSEIF R = 15 THEN

S$ = "F"

ELSE

S$ = STR$(R) + S$

END IF

D = D \ 16

WEND

CONV$ = S$

END FUNCTION



 WAP to convert hexadecimal number to decimal number.



CLS

INPUT "ENTER HEXADECIMAL NUMBER"; N$

FOR I = LEN(N$) TO 1 STEP -1

B$ = MID$(N$, I, 1)

IF B$ = "A" THEN B$ = "10"

IF B$ = "B" THEN B$ = "11"

IF B$ = "C" THEN B$ = "12"

IF B$ = "D" THEN B$ = "13"

IF B$ = "E" THEN B$ = "14"

IF B$ = "F" THEN B$ = "15"



S = S + VAL(B$) * 16 ^ P



P = P + 1

NEXT I

PRINT "DECIMAL EQUIVALENT VALUE="; S

END



USING SUB PROCEDURE

DECLARE SUB CONV(N$)

CLS

INPUT "ENTER HEXADECIMAL NUMBER"; N$

CALL CONV(N$)

END

SUB CONV(N$)

FOR I = LEN(N$) TO 1 STEP -1

B$ = MID$(N$, I, 1)

IF B$ = "A" THEN B$ = "10"

IF B$ = "B" THEN B$ = "11"

IF B$ = "C" THEN B$ = "12"

IF B$ = "D" THEN B$ = "13"

IF B$ = "E" THEN B$ = "14"

IF B$ = "F" THEN B$ = "15"

S = S + VAL(B$) * 16 ^ P

P = P + 1

NEXT I

PRINT "DECIMAL EQUIVALENT VALUE="; S

END SUB



USING FUNCTION PROCEDURE

DECLARE FUNCTION CONV(N$)

CLS

INPUT "ENTER HEXADECIMAL NUMBER"; N$

PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N$)

END

FUNCTION CONV(N$)

FOR I = LEN(N$) TO 1 STEP -1

B$ = MID$(N$, I, 1)

IF B$ = "A" THEN B$ = "10"

IF B$ = "B" THEN B$ = "11"

IF B$ = "C" THEN B$ = "12"

IF B$ = "D" THEN B$ = "13"

IF B$ = "E" THEN B$ = "14"

IF B$ = "F" THEN B$ = "15"

S = S + VAL(B$) * 16 ^ P

P = P + 1

NEXT I

CONV = S

END FUNCTION



 WAP to display

N

NE

NEP

NEPA

NEPAL



USING SUB PROCEDURE



DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

END SUB



WAP to display

L

AL

PAL

EPAL

NEPAL

USING SUB PROCEDURE



DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT RIGHT$(S$, I)

NEXT I

END SUB



 WAP to display

NEPAL

EPAL

PAL

AL

L

USING SUB PROCEDURE



DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP - 1

PRINT RIGHT$(S$, I)

NEXT I

END SUB

253. WAP to display

NEPAL

NEPA

NEP

NE

N



USING SUB PROCEDURE



DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP - 1

PRINT LEFT$(S$, I)

NEXT I

END SUB



 WAP to display

N

E

P

A

L

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT MID$(S$, I, 1)

NEXT I

END SUB



 WAP to display

L

A

P

E

N

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP -1

PRINT MID$(S$, I, 1)

NEXT I

END SUB



 WAP to display

N

   E

      P

        A

            L

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT TAB(I); MID$(S$, I, 1)

NEXT I

END SUB



 WAP to display

L

   A

      P

        E

            N

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

B = 1

FOR I = LEN(S$) TO 1 STEP -1

PRINT TAB(B); MID$(S$, I, 1)

B = B + 1

NEXT I

END SUB



 WAP to display

NEPAL

EPA

P

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

A = 1

FOR I = LEN(S$) TO 1 STEP -2

PRINT MID$(S$, A, I)

A = A + 1

NEXT I

END SUB



 WAP to display

P

EPA

NEPAL

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

A = 3

FOR I = 1 TO LEN(S$) STEP 2

PRINT MID$(S$, A, I)

A = A - 1

NEXT I

END SUB



 WAP to display

NEPAL

   EPA

     P

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

A = 1

FOR I = LEN(S$) TO 1 STEP -2

PRINT TAB(A); MID$(S$, A, I)

A = A + 1

NEXT I

END SUB





 WAP to display

   P

EPA

NEPAL

USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

A = 3

FOR I = 1 TO LEN(S$) STEP 2

PRINT TAB(A); MID$(S$, A, I)

A = A - 1

NEXT I

END SUB





 WAP to display

*

**

***

****

*****

******

*******



USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)

CLS

S$ = "*******"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

END SUB



 WAP to display

*******

******

*****

****

***

**

*

USING SUB PROCEDURE



DECLARE SUB PATTERN (S$)

CLS

S$ = "*******"

CALL PATTERN(S$)

END



SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP -1

PRINT LEFT$(S$, I)

NEXT I

END SUB





 WAP to display

*

**

***

****

*

**

***

****

*

*

*

*

CLS

S$ = "****"

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I



FOR J = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT J



FOR K = 1 TO LEN(S$)

PRINT MID$(S$, K, 1)

NEXT K



END



USING SUB PROCEDURE

DECLARE SUB PATTERN1 (S$)

DECLARE SUB PATTERN (S$)

CLS

S$ = "****"

CALL PATTERN(S$)

CALL PATTERN(S$)

CALL PATTERN1(S$)

END



SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

END SUB



SUB PATTERN1 (S$)

FOR K = 1 TO LEN(S$)

PRINT MID$(S$, K, 1)

NEXT K



END SUB



 WAP to display



1          2          3          4          5

2          4          6          8          10

3          6          9          12        15

4          8          12        16        20

5          10        15        20        25       



USING SUB PROCEDURE

DECLARE SUB SERIES ()



CLS

CALL SERIES

END



SUB SERIES

FOR I = 1 TO 5

FOR J = 1 TO 5

PRINT I * J,

NEXT J

PRINT

NEXT I

END SUB



 WAP to display



8  8  8  8  8  8  8  8

    6  6  6  6  6  6

        4  4  4  4

            2  2



USING SUB PROCEDURE



DECLARE SUB SERIES ()



CLS

CALL SERIES

END



SUB SERIES

T = 10

FOR I = 8 TO 1 STEP -2

PRINT TAB(T);

FOR J = 1 TO I

PRINT I;

NEXT J



T = T + 3

NEXT I



END SUB





 WAP to display



123456789

  1234567

    12345

      123

        1

USING SUB PROCEDURE

DECLARE SUB SERIES ()



CLS

CALL SERIES

END



SUB SERIES

A# = 123456789

FOR I = 1 TO 5

PRINT TAB(I); A#

A# = A# \ 100

NEXT I

END SUB



 WAP to display

40

38   40

36   38   40

34   36   38   40

32   34   36   38   40



USING SUB PROCEDURE

DECLARE SUB SERIES ()



CLS

CALL SERIES

END



SUB SERIES

A = 40

FOR I = 1 TO 5

B = A

FOR J = 1 TO I

PRINT B;

B = B + 2

NEXT J

PRINT

A = A - 2

NEXT I



END SUB



WAP to display



70   65   60   55   50

70   65   60   55

70   65   60

70   65

70



USING SUB PROCEDURE

DECLARE SUB SERIES ()



CLS

CALL SERIES

END



SUB SERIES

A = 50

B = 70

FOR I = A TO B STEP 5

FOR J = B TO I STEP -5

PRINT J;

NEXT J

PRINT

NEXT I



END SUB






Comments

Post a Comment

Popular posts from this blog

File Handling Important questions and Solutions

Image
                                            Jaya Ganeshya 1.     A sequential data file “std.dat” contains Name, class, Roll No. and Address of some students. Write a program to read records and display only those students record whose name starts with alphabet “A” of “a”. 2.     Create a sequential data file “std.dat” to store Name and Mark obtained in English, Math and Science subjects for a few students. 3.     A sequential data file called “MARKS.DAT” contains Roll no. Name, English,Nepali and Maths fields. Write a program to display all the contains of the data file. 4.     Write a program to create a sequential data file “Employee.Dat” to store employees’ Name, Address, Age, Gender and Salary. 5.     A da...
Read more

Full Form

Full Form 1.       ABC-   Atanasoff Berry Computer 2.       ADSL-   Asymmetric Digital Subscriber Line 3.       AI-    Artificial Intelligence 4.       ANSI-   American National Standards Institute 5.       ARP-  Address Resolution Protocol 6.       ARPANET-   Advance Research Project Agency Network 7.       ASCC-   Automatic Sequence Controlled Calculator 8.       ATM-  Automatic Teller Machine 9.       ASCII-  American Standard Code For Information Interchange 10.   AVI-  Audio Viedo Interleave 11.   BASIC-  Beginner’s All purpose Symbolic Instruction Code 12.   BBS-  Bulletin Board System 13.   ...
Read more

Test Result 2077/78

ROLL Name GPA 1) AADARSHA SAPKOTA A+ 2) AADITYA SUBEDI B+ 3) AAKANCHHYA POUDEL B+ 4) AAKRITI REGMI B+ 5) AASHIK ADHIKARI B+ 6) AAYUSHMA LAMICHHANE B+ 7) ABIGEL BISHWOKARMA B+ 8) ABIRAL PANTHI A 9) AJAYA ARYAL A+ 10) AKARSHAN POUDEL A 11) AMAN SHRESTHA B 12) AMAN TIWARI B 13) AMIT RANA C+ 14) ANISH TAMANG B 15) ANISH GURUNG B 16) ANJALI ARYAL A+ 17) ANJALI GANDHARBA B 18) ANKITA LAMICHHANE B+ 19) ANU ROKA MAGAR C+ 20) ANUP KANDEL B 21) ANURAG SUBEDI B 22) AONE WAIBA C+ 23) APSON BARAILI B+ 24) ARJUN PUN C+ 25) ASHIKA B.K C+ 26) ASHIM ADHIKARI B+ 27) ASMITA NEPALI C+ 28) BADAL JAISHI B+ 29) BHOJ BAHADUR RINJALI C+ 30) BIBAS THAPA CHHETRI A 31) BIBEK GODAR B 32) BIDHYA ACHARYA A 33) BIJAYA PARIYAR B+ 34) BIMAL CHAND B+ 35) BINA TIWARI B+ 36) BINISHA CHHETRI B+ 37) BINITA TAMANG B+ 38) BIPIN BASTOL...
Read more