SET - 1
Debug the following program and
rewrite it.
1. REM to print all the records where address is Kathmandu
OPEN "ADD.DAT" FOR INPUT AS
#1
CLS
WHILE EOF (1)
INPUT #1, NA$, AD$, G$
IF UCASE(G$)="KATHMANDU"
THEN PRINT NA$, AD$, G$
WEND
CLOSE #10
END
Debugged Program:
REM to print all the records where
address is Kathmandu
OPEN "ADD.DAT" FOR INPUT AS
#1
CLS
WHILE NOT EOF (1)
INPUT #1, NA$, AD$, G$
IF UCASE$(AD$)="KATHMANDU"
THEN PRINT NA$, AD$, G$
WEND
CLOSE #1
END
2. REM to create a new file CLS
OPEN “ABC.DAT” FOR INPUT AS #1
DO
INPUT “Enter Name, Roll No &
Total. “; N$, R, T
INPUT #1, N$, R, T
INPUT “Supply more records Y/N”; C$
LOOP WHILE UCASE(Y$)=”Y”
CLOSE #1
END
DEBUGGED PROGRAM:
REM to create a new file CLS
OPEN “ABC.DAT” FOR OUTPUT
AS #1
DO
INPUT “Enter Name, Roll No &
Total. “; N$, R, T
WRITE #1, N$, R, T
INPUT “Supply more records Y/N”; C$
LOOP WHILE UCASE$(C$)=”Y”
CLOSE #1
END
3. REM to add record in an existing
file
CLS
OPEN “Record.Dat” FOR OUTPUT AS #1
AA:
INPUT “Enter Name, Class and Roll
No.”; Nm$, Cl, Rn
INPUT #2, Nm$, Cl, Rn
INPUT “More records”; Y$
IF UCASE$(Y$)=”Y” THEN GOT aa
CLOSE “Record.dat”
END
DEBUGGED PROGRAM:
REM to add record in an existing file
CLS
OPEN “Record.Dat” FOR APPEND
AS #1
AA:
INPUT “Enter Name, Class and Roll
No.”; Nm$, Cl, Rn
WRITE #1, Nm$, Cl, Rn
INPUT “More records”; Y$
IF UCASE$(Y$)=”Y” THEN GOTO
aa
CLOSE #1
END
4. DECLARE SUB Series ( ) CLS
EXECUTE Series
END
SUB Series( )
REM Program to generate 1 1 2 3 5 upto the 20th terms
A=1
B=1
FOR ctr=10 to 1
DISPLAY A:B:
A=A+B
B=A+B
NEXT ctr
END Series ( )
DEBUGGED PROGRAM:
DECLARE SUB Series ( )
CLS
CALL Series
END
SUB Series( )
REM Program to generate 1 1 2 3 5 upto the 20th terms
A=1
B=1
FOR ctr=1 to 20
PRINT A; B;
A=A+B
B=A+B
NEXT ctr
END SUB
5. REM to display records from
existing file.
CLS
OPEN “emp.txt” FOR APPEND AS #1
WHILE NOT EOF(#1)
WRITE #1, eN$, post$, salary
PRINT eN$, post$, salary
CLOSE #1
END
DEBUGGED PROGRAM
REM to display records from existing
file.
CLS
OPEN “emp.txt” FOR INPUT
AS #1
WHILE NOT EOF(1)
INPUT #1, eN$, post$, salary
PRINT eN$, post$, salary
WEND
CLOSE #1
END
6. REM Program to make a word reverse
DECLARE FUNCTION Rev$(N$)
CLS
INPUT “Enter a word”: N$
DISPLAY “Reversed is”; Rev$(N$)
END
FUNCTION Rev$(N$)
FOR K=LEN$(N$) to 1 STEP-1
B$=B$+MID$(N$,1,K)
NEXT K
B$=REV$
END FUNCTION
DEBUGGED PROGRAM:
REM Program to make a word reverse
DECLARE FUNCTION Rev$(N$)
CLS
INPUT “Enter a word”: N$
PRINT “Reversed is”; Rev$(N$)
END
FUNCTION Rev$(N$)
FOR K=LEN(N$) to 1
STEP-1
B$=B$+MID$(N$,K,1)
NEXT K
REV$ = B$
END FUNCTION
7. REM to add more data in a
sequential file.
OPEN “EMP.DAT” FOR INPUT AS #2
DO
INPUT “ENTER NAME”; N$
INPUT “ENTER ADDRESS”; A$
INPUT “ENTER SALARY”; S$
WRITE #1, N$, A$, S
INPUT” Do you want to add more
records.”; M$
LOOP WHILE UCASE(M$) = “Y”
END
DEBUGGED PROGRAM:
REM to add more data in a sequential
file.
OPEN “EMP.DAT” FOR APPEND
AS #2
DO
INPUT “ENTER NAME”; N$
INPUT “ENTER ADDRESS”; A$
INPUT “ENTER SALARY”; S
WRITE #2, N$, A$, S
INPUT” Do you want to add more
records.”; M$
LOOP WHILE UCASE$(M$) =
“Y”
CLOSE #2
END
8. Rem to convert the given number in
reverse order
DECLARE FUNCTION REV (A)
CLS
INPUT "ENTER A NUMBER"; A
CALL REV (A)
PRINT "REVERSE ="; RE
END
FUNCTION REV$ (A)
WHILE A<> 0
R= A MOD2
S = S * 10 + R
A = A - 10
WEND
REV = S
END SUB
DEBUGGED PROGRAM:
Rem to convert the given number in
reverse order
DECLARE FUNCTION REV (A)
CLS
INPUT "ENTER A NUMBER"; A
PRINT "REVERSE ="; REV
(A)
END
FUNCTION REV (A)
WHILE A<> 0
R= A MOD 10
S = S * 10 + R
A = A \ 10
WEND
REV = S
END FUNCTION
9. DECLARE FUNCTION PAL$ (W$)
CLS
INPUT "Enter a word"; W$
SHOW PAL$ (W$)
END
FUNCTION PAL$ (W$)
FOR I= LEN (W$) TO 1 STEP1
R$=R$+MID$ (W$, I, 1)
NECT I
IF R$-W$ THEM
P$="Palindrome"
ELSE
P$="Not palindrome"
ENDIF
P$=PAL$
END FUNCTION
DEBUGGED PROGRAM:
DECLARE FUNCTION PAL$ (W$)
CLS
INPUT "Enter a word"; W$
PRINT "GIVEN WORD IS "; PAL$ (W$)
END
FUNCTION PAL$ (W$)
FOR I= LEN (W$) TO 1 STEP -1
R$=R$+MID$ (W$, I, 1)
NEXT I
IF R$ =W$ THEN
P$="Palindrome"
ELSE
P$="Not palindrome"
END IF
PAL$ = P$
END FUNCTION
10.
REM print the input integer in reverse order
DECLARE SUB REV (N)
CLS
INPUT "Enter an integer
number"; NO
CALL REV (NO)
END
SUB REV (N)
A = N
WHILE A = 0
R = A MOD 10
S = S + 10 + R
A = A \ 10
NEXT
DISPLAY "Reverse"; S
END SUB
DEBUGGED PROGRAM:
REM print the input integer in reverse
order
DECLARE SUB REV (N)
CLS
INPUT "Enter an integer
number"; NO
CALL REV (NO)
END
SUB REV (N)
A = N
WHILE A <> 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
PRINT "Reverse"; S
END SUB
