Debug the Qbasic Programs [SEE Qbasic Practice PART IV]

1.      REM TO FIND LONGEST NAME

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

INPUT A$, B$, C$

PRINT LONGEST(A$, B$, C$)

END

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

A = LEN$(A$)

B = LEN(B$)

C = LEN(C$)

IF A > B OR A > B THEN

A$ = L$

ELSEIF B > A OR B > C THEN

L$ = B$

ELSE

L$ = C$

END IF

LONGEST$(A$, B$, C$) = L$

FUNCTION END

2.      DECLARE SUB REV(S$)

CLS

ACCEPT “ENTER ANY STRING”;S$

CALL REV$(S$)

END

SUB REV(S$)

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

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

W$ = W$ + B$

NEXT I

IF S$ = W$ THEN

PRINT S$;”IS  PALINDROME”

ELSE

PRINT S$;”IS PALINDROME”

END SUB

3.      DECLARE SUB CHECK(N$,W$)

INPUT”ENTER A STRING:::”;N$

CHECK CALL (N$,W$)

END

SUB CHECK(N$,W$)

FOR K=1 TO LEN(W$)

A$=MID$(N$,1,K)

W$=W$+A$

NEXT K

IF W$=N$ THEN

PRINT “NOT PALINDROME”

ELSE

PRINT”PALINDROME”

END IF

END SUB

4.      DECLARE SUB Hello (N)

CLS

INPUT “Enter a number”; Num

CALL Hello (N)

END

SUB Hello (N)

WHILE N > < 0

R=N MOD 10

REV=REV * 10 + R

N = N \ 10

WEND

PRINT “Its reversed form is”; reverse

SUB END

5.      REM do display the reverse of the supplied number

DECLARE FUNCTION rev(n)

CLS

INPUT n

PRINT rev(n)

END

FUNCTION rev(n)

WHILE n = 0

R = n MOD 10

D$ = STR$(R) + D$

n = n / 10

WEND

Rev = ASC(D$)

END FUNCTION

6.      Rem program to reverse the string or word

DECLARE SUB REV(W$)

CLS

INPUT “Enter a wod”;W$

CALL REV(W$)

END

SUB REV(W$)

FOR I=LEN(W$) to 1 step -1

C$=LEFT$(W$,I,1)

S$=D$+1

LOOP

PRINT “Reverse string is:”; D$

CLOSE SUB

7.      REM to display the string in reverse form

CLS

DECLARE SUB REV(A$)

INPUT "ENTER A STRING";A$

CALL REV(A)

END

SUB REV(A$)

FOR I=1 TO TEN

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

C$=B$+C$

NEXT I

PRINT C$

END SUB

8.      DECLARE FUNCTION REV$(ST$)

CLS

INPUT “Enter a string”; S$
LET R$=REV$(ST$)
PRINT “The string in reverse is”; R$
END

FUNCTION REV$(ST$)
FOR I = LEN(ST$) TO 1

RV$=RV$+MID$(ST$,1,I)
NEXT I
RV$=REV$
END FUNCTION

9.      DECLARE FUNCTION TEST(A$)

CLS

INPUT "ENTER A STRING";N$

CALL TEST$(N$)

PRINT "Reverse of supplied string";D$

END

FUNCTION TEST$(M$)

FOR I=1 TO LEN$(M$)

B$=MID$(M$,I,1)+B

NEXT I

B$=TEST$

END FUNCTION

10.   Rem to count the character of given string

CLS

DECLARE SUB Count (word$)

INPUT ”enter a string”, word$

Count W$

END

SUB Count (w$)

B$=MID$(WORD$, C, 1)

WHILE B$ < > ” ”

C=C+1

WEND

PRINT C, “CHARACTERS IN “, W$

END FUNCTION

11.   REM test if user input character is alphabet or digit using sub procedure

DECLARE SUB TEST(C$)

ENTER “Supply a character”; T$

CALL TEST(C$)

END

SUB TEST(C$)

SELECT CASE T$

CASE “A” TO “Z” OR “a” TO “z”

PRINT “Alphabet”

CASE “0” TO “9”

PRINT “Digit”

SELECT END

END SUB

12.   REM to display a word by extracting characters of even position

CLS

DECLARE SUB NAME$(X$,Y$)

INPUT”ENTER A WORD”;X$

CALL SUB NAME$(X$,Y$)

PRINT Y$

END

SUB WORD$(X$,Y$)

FOR P=1 TO LEN (X$) STEP 2

E$=LEFT$(X$,1,P)

WORD$=E$+WORD$

NEXT P

Y$=WORD$

END SUB

13.   REM TO COUNT VOWELS USING NEPAL

DECLARE SUB REV(N$)

CALL REV(NEPAL)

END

SUB REV (N$)

N$=UCASE$(N$)

FOR K = 1 TO LEN(N$)

X$= MID$ (N$, 1, K)

SELECT CASE X$

CASE “A”, “E”,”I”,”O”,”U”

C = C+1

SELECT END

NEXT K

PRINT “VOWELS=”; C                 

END SUB

14.   DECLARE FUNCTION OCCUR(C$)

INPUT “Enter any sentence”; S$

PRINT “Occurrence of A is”; OCCUR(C$)

END

SUB OCCUR(C$)

C$ = UCASE$(C$)

L = LEN(C$)

A = 0

FOR J = 1 TO L STEP -1

IF “A” = MID$(C$, J, 1) THEN A = A + 1

NEXT

OCCUR = A

END FUNCTION

15.   REM to display those records whose name starts from “A”.

OPEN “Employee.dat” FOR OUTPUT AS #1

CLS

WHILE NOT EOF (1)

INPUT #, N$, P$, S#

C$=MID$(N$, 1, 1)

IF C$=”A” THEN

PRINT #1, N$, P$, S#

END IF

LOOP        

CLOSE #1

END

16.   REM to display records from 2^nd position to 6^th position.

OPEN record.txt FOR INPUT AS #2

DO WHILE EOF(2)

INPUT #1, N, Add$, DOB$

C=C+1

IF C<=2 AND C>=6 THEN

PRINT N$, Add$, DOB$

END IF

LOOP

CLOSE #2

END

17.   REM to update the salary by 10%

CLS

OPEN "EMP.DAT" FOR INPUT AS #1

OPEN "TEMP.DAT" FOR OUTPUT AS#1

WHILE NOT EOF(1)

INPUT NM$, POST$, S

LET  NS = S + S*10/100

WRITE NM$, POST$,NS

WEND

KILL "EMP.DAT"

CLOSE #1,#2

NAME "TEMP.DAT" AS "EMP.DAT"

END

18.   REM display all data if post is manager or officer

OPEN “info.dat” FOR INPUT AS #1

CLS

PRINT “Name”, “Post”, “Dept”, “Salary”

DO WHILE NOT EOF(10)

INPUT N$, P$, D$, S

IF P$ = “MANAGER” AND P$ = “OFFICER” THEN

PRINT N$, P$, D$, S

END IF

WEND

CLOSE

END

19.   CLS

REM copy the data of ‘mark.dat’ file to ‘update.dat’ file.

OPEN "MARK.DAT" FOR OUTPUT AS #1

OPEN “UPDATE.DAT” FOR OUTPUT AS #2

DO UNTIL EOF (1)

INPUT #2, RollNumber, N$, Age

WRITE #2, RN, N$, Age

CLOSE #1, 2

LOOP

END

20.   REM COPY THE DATA OF “SRC.INF” TO “DEST.INF”

OPEN “SRC.INF” FOR INPUT AS #1

OPEN “DEST.INF” FOR OUTPUT AS #2

CLS

WHILE NOT EOF( )

INPUT #2, NM$, RN, AGE

WRITE #1, NM$, RN, AGE

CLOSE #1, #2

END