1a) Define loop and
nested loop.
b) Write down the output
of the following program.
CLS
FOR B = 1 TO 5
READ N$
M$ = M$ + MID$(N$, B, 1)
NEXT B
PRINT M$
DATA NATURE, TECHNO, HAPPY, GOPAL, PUPILS
END
c) Re-write the
following program correcting the bugs:
REM
to check if a word is palindrome
INPUT N$
FOR K = LEN(N$) TO 1
W$ = S$ + MID$(N$, K, 1)
NEXT K
IF N$ = W$ THEN
PRINT "Palindrome"
OTHERWISE
PRINT "Not Palindrome"
END
d) Re-write the
following program using DO……..LOOP UNTIL
CLS
FOR J = 20 TO 2 STEP -2
S = S + J
NEXT J
PRINT "Sum of even numbers"; S
END
e) Write a program using
FUNCTION….END FUNCTION statement to display the longest string among three input
strings.
f) A sequential data
file “EXAM.DAT” contains name, address, phone number and age of some people.
Write a program to display only those records which contains age above 18 and
address is ‘Lumbini’.
Answers SET G
1a) Repeating statements
or statement blocks for certain number of times depending upon the condition is
called loop.
A
loop that lies within another loop is called nested loop.
b) Output:
NEPAL
c) Debugged Program
REM to check if a word is palindeome
INPUT N$
FOR K = LEN(N$) TO 1 STEP -1
W$ = W$ + MID$(N$, K, 1)
NEXT K
IF N$ = W$ THEN
PRINT "Palindrome"
ELSE
PRINT "Not Palindrome"
END IF
END
d) program using
DO……..LOOP UNTIL
CLS
J = 20
DO
S = S + J
J = J - 2
LOOP UNTIL J < 2
PRINT "Sum of even numbers"; S
END
e) Write a program using
FUNCTION….END FUNCTION statement to display the longest string among three
input strings.
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
f) A sequential data
file “EXAM.DAT” contains name, address, phone number and age of some people.
Write a program to display only those records which contains age above 18 and
address is ‘Lumbini’.
OPEN “EXAM.DAT” FOR INPUT AS #1
CLS
WHILE NOT EOF(1)
INPUT #1, N$, A$, P#, A
IF UCASE$(A$) = ”LUMBINI” AND A>18 THEN
PRINT N$, A$, P#, A
END IF
WEND
CLOSE#1
END
***
DOWNLOADED FROM SUSHILUPRETI.COM.NP
1a) What is variable?
List the types of numeric data.
b) Study the following program
and answer the following questions:
OPEN “detail.dat” FOR INPUT AS #1
OPEN
“temp.dat” FOR OUTPUT AS #2
CLS
INPUT
“Name of the students “; s$
FOR
i = 1 to 10
INPUT
#1, n$, c, a
IF
s$ <> n$ THEN
WRITE
#2, n$, c, a
END
IF
NEXT
i
CLOSE
#1, #2
KILL
“detail.dat”
NAME
“temp.dat” AS “detail.dat”
END
Questions:
i) What is the main objective of the above program?
ii) Will the program run if the statement KILL
“detail.dat” is removed? Why?
iii) If the data file “detail.dat” contains only 8
records, then the program will run? Why?
iv) Why the file “temp.dat” is necessary in this
program?
c) Write down the output
of the following program.
CLS
FOR X = 2 TO 15 STEP 2
IF X >= 11 THEN EXIT FOR
PRINT X ^ 2 + 1
NEXT X
PRINT "Done"
END
d) Re-write the
following program correcting the bugs:
CLS
REM TO PRINT THE LONGEST STRING
DATA TOURISM, TRANSPORT, SERVICE, AGRICULTURE, TRADE
READ L$
FOR C = 1 TO 5
READ X$
IF LEN(X$) >LEN(L$) THEN X$ = L$
NEXT C
PRINT "LONGEST STRING IS: L$"
END
e) Re-write the
following program using FOR…NEXT
CLS
N = 1
X = 1
BACK:
PRINT N, N ^ 2
N = N + 2
X = X + 1
IF X <= 8 THEN GOTO BACK
END
f) Write a program to
print alternate characters (starting from the first character of the user given
string.
g) Write a program to
ask student’s name, class and marks secured in three subjects. Store the data
in a sequential data file ‘SCHOOL.DAT’ along with total marks. Make a provision
to ask the user to enter another record.
Answers SET H
1a) A variable is an
identifier or reference or name for the memory address that holds data and can
change its value during the execution of a program. The types of numeric data
are:
i) Integer data
ii) Long integer data
iii) Single precision data
iv) Double precision data
b) Questions:
i) What is the main objective of the above program?
Ans: The main objective
of the above program is to delete the records of students according to the
supplied name of the students.
ii) Will the program run if the statement KILL
“detail.dat” is removed? Why?
Ans: No, the program
will not run because if detail.dat file is not removed then the next statement
while renaming the file of temp.dat to detail.dat, it displays the error
message as “File already exists” because detail.dat file is already existed and
it cannot rename temp.dat file to detail.dat.
iii) If the data file “detail.dat” contains only 8
records, then the program will run? Why?
Ans: No, the program
will not run and it displays the error message as “Input past end of file”
iv) Why the file “temp.dat” is necessary in this
program?
Ans: The file temp.dat
is necessary in this program to store the non deleted records.
c) Output:
5
17
37
65
101
Done
d) Debugged Program
CLS
REM TO PRINT THE LONGEST STRING
DATA TOURISM, TRANSPORT, SERVICE, AGRICULTURE, TRADE
READ L$
FOR C = 2 TO 5
READ X$
IF LEN(X$) >LEN(L$) THEN L$ = X$
NEXT C
PRINT "LONGEST STRING IS:"; L$
END
e) program using
FOR…NEXT
CLS
N = 1
FOR X = 1 TO 8
PRINT N, N ^ 2
N = N + 2
NEXT X
END
f) Write a program to
print alternate characters (starting from the first character) of the user
given string.
DECLARE
SUB ALT(S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL ALT(S$)
END
SUB ALT(S$)
FOR I = 1 TO LEN(S$) STEP 2
PRINT MID$(S$, I, 1);
NEXT I
END SUB
g) Write a program to
ask student’s name, class and marks secured in three subjects. Store the data
in a sequential data file ‘SCHOOL.DAT’ along with total marks. Make a provision
to ask the user to enter another record.
OPEN “STUDENT.DATA” FOR OUTPUT AS #1
DO
CLS
INPUT “ENTER STUDENT’S NAME”; N$
INPUT “ENTER CLASS”; C
INPUT “ENTER MARKS SECURED IN THREE SUBJECTS”; M1. M2, M3
INPUT “ENTER ROLL NUMBER”; R
T = M1 + M2 + M3
WRITE #1, N$, C, M1, M2, M3, T
INPUT “DO YOU WANT TO CONTINUE”; CH$
LOOP WHILE UCASE$(CH$)=”Y”
CLOSE #1
END
