QBASIC PROGRAM - Debugging Programs - Computer Science [SLC / SEE] with answers
1.
DECLARE SUB correct( )
CLS
REM to calculate the area of
rectangle
CALL SUB correct
END
SUB Correct
INPUT “enter length”;L
INPUT “enter breadth”;B
A= LENGTH* BREADTH
PRINT “area of rectangle=”;Area
SUB END
DECLARE SUB correct( )
CLS
REM to calculate the area of
rectangle
CALL
correct
END
SUB Correct
INPUT “enter length”;L
INPUT “enter breadth”;B
A= L*B
PRINT “area of rectangle=”; A
END
SUB
2.
Rem
program to find the cube of the cube of a given number
DECLARE
FUNCTION CUBE(R)
ENTER
R
DISPLAY
CUBE(R)
END
FUNCTION
CUBE(R)
S=R^3
PRINT
S
COMPLETE
Rem
program to find the cube of the cube of a given number
DECLARE
FUNCTION CUBE(R)
INPUT R
PRINT CUBE(R)
END
FUNCTION
CUBE(R)
S=R^3
CUBE = S
END FUNCTION
3. [SLC
2065]
DECLARE
FUNCTION SUM(a,b)
REM Program to sum given two numbers
Input ”Enter first number”; x
Input “Enter second number; y
PRINT SUM(a,b)
END
REM Program to sum given two numbers
Input ”Enter first number”; x
Input “Enter second number; y
PRINT SUM(a,b)
END
FUNCTION
SUM(x,y)
SUM=a+b
END
SUM=a+b
END
[SLC 2065]
DECLARE
FUNCTION SUM(a,b)
REM Program to sum given two numbers
Input ”Enter first number”; x
Input “Enter second number”; y
PRINT SUM(x, y)
END
REM Program to sum given two numbers
Input ”Enter first number”; x
Input “Enter second number”; y
PRINT SUM(x, y)
END
FUNCTION
SUM(a, b)
SUM=a+b
END FUNCTION
SUM=a+b
END FUNCTION
4. [SLC
2072]
FUNCTION
SUM (m,n)
Rem to
print sum of two numbers
a= 6
b= 7
DISPLAY
SUM (a, b)
END
FUNCTION
SUM (m,n)
S = m
+n
S =
SUM
END
SUM
[SLC 2072]
DECLARE FUNCTION SUM (m,n)
Rem to
print sum of two numbers
a= 6
b= 7
PRINT SUM (a, b)
END
FUNCTION
SUM (m,n)
S = m
+n
SUM = S
END
FUNCTION
5. [SLC
2068]
CREATE
FUNCTION Square(A)
Rem to print square of a number
CLS
Get “a number”; A
CALL square(A)
END
Rem to print square of a number
CLS
Get “a number”; A
CALL square(A)
END
FUNCTION
square(A)
Ans=A^2
Square=Ans
END Square(A)
Ans=A^2
Square=Ans
END Square(A)
[SLC 2068]
DECLARE FUNCTION Square(A)
Rem to print square of a number
CLS
INPUT “a number”; A
PRINT square(A)
END
Rem to print square of a number
CLS
INPUT “a number”; A
PRINT square(A)
END
FUNCTION
square(A)
Ans=A^2
Square=Ans
END FUNCTION
Ans=A^2
Square=Ans
END FUNCTION
6.
DECLARE
FUNCTION AREA (X)
CLS
REM
TO FIND THE AREA OF CIRCLE
INPUT
“ENTER THE VALUE OF RADIUS”;R
CALL AREA (R)
END
FUNCTION
AREA (X)
AR=
(22/7)* R^2
AR=AREA
FUNCTION
END
DECLARE
FUNCTION AREA (X)
CLS
REM
TO FIND THE AREA OF CIRCLE
INPUT
“ENTER THE VALUE OF RADIUS”;R
PRINT
AREA (R)
END
FUNCTION
AREA (X)
AR=
(22/7)* X^2
AREA=AR
END FUNCTION
7.
[SLC 2064] [SLC 2067 S]
DECLARE
SUB Series()
CLS
EXECUTE Series
END
SUB Series()
REM program to generate 3 3 4 9 15 upto 20th terms.
A=3
B=3
FOR ctr= 10 to 1
DISPLAY A;B;
A=A+B
B=A+B
NEXT ctr
END Series()
DECLARE
SUB Series()
CLS
CALL Series
END
SUB Series()
REM program to generate 3 3 4 9 15 upto 20th terms.
A=3
B=3
FOR ctr= 10 to 1
STEP-1
PRINT A;B;
A=A+B
B=A+B
NEXT ctr
END SUB
8. [SLC 2066]
DECLARE SUB Fibonic ()
REM
*Fibonic series*
CALL
SUB Fibonic
END
SUB
Fibonic
A=1
B=1
FOR
x=1 to 10
DISPLAY
a;
a=a+b
b=a+b
END
Fibonic
[SLC 2066]
DECLARE SUB Fibonic ()
REM
*Fibonic series*
CALL Fibonic
END
SUB
Fibonic
A=1
B=1
FOR
x=1 to 10
PRINT a; b;
a=a+b
b=a+b
NEXT x
END
SUB
9. [SLC
2070]
DECLARE
SUB Series(.)
CLS
EXECUTE
Series
END
SUB
Series
REM to generate 2 2 4 6 10….. upto 10th
term
P=2
Q=2
FOR Ctr=1 TO 5
DISPLAY
P,Q,
P=P+Q
Q=P+Q
WEND
END Series()
[SLC 2070]
DECLARE SUB Series(.)
CLS
CALL Series
END
SUB
Series
REM to generate 2 2 4 6 10….. upto 10th
term
P=2
Q=2
FOR ctr=1
TO 5
PRINT P,Q,
P=P+Q
Q=P+Q
NEXT ctr
END SUB
10. [SEE
2073]
DECLARE SUB SUM (N)
INPUT
"Any Number"; N
PRINT
SUM (N)
END
SUB
SUM (N)
S
= 0
WHILE
N = 0
R
= R MOD 10
S
= S+R
N
= N/10
WEND
PRINT
"Sum of digits"; s
END
[SEE 2073]
DECLARE
SUB SUM (N)
INPUT
"Any Number"; N
CALL SUM (N)
END
SUB
SUM (N)
S
= 0
WHILE
N < > 0
R
= N MOD 10
S
= S+R
N
= N\10
WEND
PRINT
"Sum of digits"; s
END
SUB
11.
REM
To find the sum of even digits of multi digits number
DECLARE
FUNCTION SUM (N)
CLS
INPUT
“ENTER MULTI-DIGITS NUMBER ”; N
PRINT
“SUM = ” ; SUM(N)
END
FUNCTION
SUM(N)
WHILE
N=0
R=
N MOD 10
IF
R MOD 2 = 1 THEN S=S+R
N
= N / 10
WEND
SUM
(N) =S
END
FUNCTION
REM To find the sum of even
digits of multi digits number
DECLARE
FUNCTION SUM (N)
CLS
INPUT
“ENTER MULTI-DIGITS NUMBER ”; N
PRINT
“SUM = ” ; SUM(N)
END
FUNCTION
SUM(N)
WHILE
N < > 0
R=
N MOD 10
IF
R MOD 2 = 0 THEN S=S+R
N
= N \ 10
WEND
SUM =S
END
FUNCTION
12.
DECLARE
FUNCTION arm (n)
INPUT”
enter number”; n
FOR I =
1 TO n
a = I
b = arm
(a)
IF b =
I THEN
PRINT b
NEXT J
END
FUNCTION
arm (n)
S = 0
WHILE a
<> 0
r = n
MOD 10
s = s +
r ^ 3
n = n \
10
up
arm = a
END
FUNCTION
DECLARE
FUNCTION arm (n)
INPUT”
enter number”; n
FOR I =
1 TO n
a = I
b = arm
(a)
IF b =
I THEN
PRINT b
NEXT I
END
FUNCTION
arm (n)
S = 0
WHILE n < > 0
r = n
MOD 10
s = s +
r ^ 3
n = n \
10
WEND
arm = s
END
FUNCTION
13.
DECLARE
SUB ARM(NN)
CLS
INPUT
“ENTER A NUMBER”; N
CALL
ARM(N)
END
SUB
ARM(A)
A
= NN
WHILE
A < > 0
R
= A MOD 10
ACC
= ACC + R ^ 10
A
= A \ 3
WEND
IF
ACC = A THEN PRINT “ARMSTRONG” ELSE PRINT “NOT ARMSTRONG”
END
SUB
DECLARE
SUB ARM(A)
CLS
INPUT
“ENTER A NUMBER”; N
CALL
ARM(N)
END
SUB
ARM(A)
NN = A
WHILE
A < > 0
R
= A MOD 10
ACC
= ACC + R ^ 3
A
= A \ 10
WEND
IF
ACC = NN THEN PRINT
“ARMSTRONG” ELSE PRINT “NOT ARMSTRONG”
END
SUB
14.
DECLARE GREAT
SUB(a,b,c)
CLS
INPUT "ENTER 3
NUMBER";X,Y,Z
PASS GREAT (a,b,c)
END
SUB GREAT (a,b,c)
IF a>b and a>c
THEN
g=a
ELSEIF b>a and
b>c THEN
b=g
ELSE
g=c
END IF
PRINT g
SUB END
15.
DECLARE GREAT
SUB(a,b,c)
CLS
INPUT "ENTER 3
NUMBER"; X,Y,Z
CALL
GREAT (a,b,c)
END
SUB GREAT (a,b,c)
IF a>b and a>c
THEN
g=a
ELSEIF b>a and
b>c THEN
g=b
ELSE
g=c
END IF
PRINT g
END SUB
16. [SLC
2074]
REM TO find
the factorial of a given number.
DECLARE
FUNCTION FACTO (N$)
CLS
INPUT
"Enter a number", X
PRINT
"The Factorial is: ", FACTO (N)
END
FUNCTION
FACTO (N)
F = 1
WHILE N = 0
F = F*N
N = N - 1
WEND
F = FACTO
END
FUNCTION
REM TO find
the factorial of a given number.
DECLARE
FUNCTION FACTO (N)
CLS
INPUT
"Enter a number", X
PRINT
"The Factorial is: ", FACTO (X)
END
FUNCTION
FACTO (N)
F = 1
WHILE N < > 0
F = F*N
N = N - 1
WEND
FACTO = F
END
FUNCTION
17.
DECLARE SUB FACT
(N)
CLS
REM PRINT FACTORS OF INPUT NUMBER WITH SUB PROCEDURE
INPUT “ENTER NUMBER:”, A
CALL FACT(N)
END
SUB FACT (N)
FOR K=1 TO N
IF N MOD K =1 THEN
PRINT K
IF END
END FUNCTION
DECLARE SUB FACT (N)
CLS
REM PRINT FACTORS OF INPUT NUMBER WITH SUB PROCEDURE
INPUT “ENTER NUMBER:”, A
CALL FACT(A)
END
SUB FACT (N)
FOR K=1 TO N
IF N MOD K
=0 THEN
PRINT K
END
IF
END SUB
18.
DECLARE
FUNCTION factor(N)
CLS
GET “Enter
a number”; X
LET S =
factor(X)
PRINT
“Frequency of factor is” ; S
END
Function
FUNCTION
factor(N)
FOR
I = 1 to N
G
= N MOD I
IF
G = 0 THEN
F=F+1
NEXT
I
F
= Factor
END
FUNCTION
DECLARE
FUNCTION factor(N)
CLS
GET “Enter
a number”; X
LET S =
factor(X)
PRINT
“Frequency of factor is” ; S
END
FUNCTION
factor(N)
FOR
I = 1 to N
G
= N MOD I
IF
G = 0 THEN
F=F+1
END IF
NEXT
I
Factor = F
END
FUNCTION
19.
REM
to check whether the supplied no is odd or even
DECLARE SUB TEST(N)
CLS
INPUT”ENTER THE NUMBER;”;N$
CALL TEST(N)
END
SUB TEST(N)
Y=2
R=Y MOD N
IF R=1 THEN
PRINT”EVEN”
OR
PRINT”ODD”
END
END SUB
REM
to check whether the supplied no is odd or even
DECLARE SUB TEST(N)
CLS
INPUT”ENTER THE NUMBER;”;N
CALL TEST(N)
END
SUB TEST(N)
Y=2
R=N MOD Y
IF R=0 THEN
PRINT”EVEN”
ELSE
PRINT”ODD”
END
IF
END SUB
20.
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 > C THEN
A$
= L$
ELSEIF
B > A OR B > C THEN
L$
= B$
ELSE
L$
= C$
END
IF
LONGEST$(A$,
B$, C$) = L$
FUNCTION
END
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 AND A > C THEN
L$ =A$
ELSEIF
B > A AND B > C THEN
L$
= B$
ELSE
L$
= C$
END
IF
LONGEST$ = L$
END FUNCTION
21. 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
DECLARE SUB CHECK(N$,W$)
INPUT”ENTER A STRING:::”;N$
CALL
CHECK (N$,W$)
END
SUB CHECK(N$,W$)
FOR K= LEN(W$) TO 1 STEP-1
A$=MID$(N$,K, 1)
W$=W$+A$
NEXT K
IF W$=N$ THEN
PRINT “PALINDROME”
ELSE
PRINT” NOT PALINDROME”
END IF
END SUB
22.
[SLC 2069]
Rem program to reverse the string
or word
DECLARE SUB REV(W$)
CLS
INPUT “Enter a word”;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
[SLC 2069]
Rem program to reverse the string
or word
DECLARE SUB REV(W$)
CLS
INPUT “Enter a word”;W$
CALL REV(W$)
END
SUB REV(W$)
FOR I=LEN(W$) to 1 step -1
C$=MID$(W$,I,1)
S$=S$+C$
NEXT I
PRINT “Reverse string is:”; S$
END SUB
23. DECLARE FUNCTION REV$(ST$)
CLS
INPUT “Enter a string”; S$
LET R$=REV$(S$)
PRINT “The string in reverse is”; R$
END
LET R$=REV$(S$)
PRINT “The string in reverse is”; R$
END
FUNCTION REV$(ST$)
FOR I = LEN(ST$) TO 1 STEP-1
RV$=RV$+MID$(ST$,I,1)
NEXT I
REV$= RV$
END FUNCTION
NEXT I
REV$= RV$
END FUNCTION
24.
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
REM
test if user input character is alphabet or digit using sub procedure
DECLARE
SUB TEST(C$)
INPUT
“Supply a character”; T$
CALL
TEST(T$)
END
SUB
TEST(C$)
SELECT
CASE T$
CASE
“A” TO “Z” , “a” TO “z”
PRINT
“Alphabet”
CASE
“0” TO “9”
PRINT
“Digit”
END SELECT
END
SUB
25.
DECLARE
FUNCTION dec(N)
INPUT”ENTER
ANY BINARY NUMBER:’;n
PRINT”DECIMAL
EQUIVALENT”;dec(n)
END
FUNCTION
dec(N)
P=1
WHILE
N<>0
R= N
MOD 10
S=S+R*10^P
P=P+1
N=N/10
WEND
S=DEC
END FUNCTION
DECLARE
FUNCTION dec(N)
INPUT”ENTER
ANY BINARY NUMBER:’;n
PRINT”DECIMAL
EQUIVALENT”;dec(n)
END
FUNCTION
dec(N)
P=0
WHILE
N<>0
R= N
MOD 10
S=S+R*2^P
P=P+1
N=N\10
WEND
DEC=S
END FUNCTION
26. 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
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$
= D$ + STR$(R)
n
= n \ 10
WEND
Rev
= VAL(D$)
END
FUNCTION
27.
DECLARE
FUNCTION userlen (a$)
REM
length of sting without LEN function
CLS
INPUT
“Type any string value: ”; b$
PRINT
“Length of the string: “; userlen(a$)
END
FUNCTION
userlen (a$)
c=1
aa:
b$
= MID$(a$, p, 1)
IF
b$ = “THEN”
p=p+1
c=c+1
GOTO
aa
END
IF
userlen
= c
END FUNCTION
DECLARE
FUNCTION userlen (a$)
REM
length of sting without LEN function
CLS
INPUT
“Type any string value: ”; b$
PRINT
“Length of the string: “; userlen(b$)
END
FUNCTION
userlen (a$)
c=1
aa:
b$
= MID$(a$, c, 1)
IF b$ < > “”
p=p+1
c=c+1
GOTO
aa
END
IF
userlen = p
END FUNCTION
28.
REM
to print odd numbers from 32 to 12
DECLARE
SUB SHOW ( )
CLS
CALL
SHOW ( )
END
SUB
SHOW ( )
N
= 12
WHILE
N <= 32
IF
N MOD 2 = 0 THEN PRINT N;
N
= N-1
NEXT
N
END
SUB
REM
to print odd numbers from 32 to 12
DECLARE
SUB SHOW ( )
CLS
CALL SHOW
END
SUB
SHOW ( )
N = 32
WHILE
N >= 12
IF
N MOD 2 = 0 THEN PRINT N;
N
= N-1
WEND
END
SUB
29.
REM
to remove odd digits from a supplied numbers
DECLARE
FUNCTION remodd(n)
CLS
INPUT
“any number”; a
PRINT
“Even digits only”; remodd(n)
END
FUNCTION
remodd(n)
p
= 0
WHILE
n < > 0
R
= n MOD 10
IF
r MOD 2 = 1 THEN
s
= s + r ^ p
p
= p * 10
END
IF
N
= n \ 10
WEND
S
= remodd
END
FUNCTION
REM
to remove odd digits from a supplied numbers
DECLARE
FUNCTION remodd(n)
CLS
INPUT
“any number”; a
PRINT
“Even digits only”; remodd(a)
END
FUNCTION
remodd(n)
p = 1
WHILE
n < > 0
R
= n MOD 10
IF
r MOD 2 = 0 THEN
s = s + r * p
p
= p * 10
END
IF
N
= n \ 10
WEND
remodd
= s
END
FUNCTION
30.
DECLARE SUB
CHECK(N)
CLS
INPUT”ENTER A
NUMBER”;NUM
C=CHECK(N)
END
SUB CHECK(A)
FOR I=2 TO N/2
IF N MOD 1=0 THEN
C=C+2
END IF
WEND
IF C>0 THEN
PRINT”IT IS COMPOSITE”
ELSE
PRINT”IT IS PRIME”
END IF
END SUB
DECLARE
SUB CHECK(N)
CLS
INPUT”ENTER A
NUMBER”;NUM
CALL CHECK(NUM)
END
SUB CHECK(N)
FOR I=2 TO N/2
IF N MOD I=0 THEN
C=C+1
END IF
NEXT I
IF C>0 THEN
PRINT”IT IS COMPOSITE”
ELSE
PRINT”IT IS PRIME”
END IF
END SUB
31.
REM
to check the number is prime or not
DECLARE
SUB CHECK(N)
CLS
INPUT
N
CALL
CHECK(N)
END
SUB
CHECK(N)
I=3
DO
IF
N MOD I = 0 THEN
PRINT
“ NOT PRIME”
END
END
IF
I = I + 1
LOOP UNTIL I >N
– 1
PRINT
“PRIME”
END
SUB
32.
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
REM
to display those records whose name starts from “A”.
OPEN
“Employee.dat” FOR INPUT AS
#1
CLS
WHILE
NOT EOF (1)
INPUT #1, N$, P$, S#
C$=MID$(N$,
1, 1)
IF
C$=”A” THEN
PRINT N$, P$, S#
END IF
WEND
CLOSE
#1
END
33.
REM
to display records from 2nd position to 6th 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
REM to display records from 2nd position
to 6th position.
OPEN
“record.txt” FOR INPUT AS #2
DO WHILE NOT EOF(2)
INPUT #2, N$, Add$, DOB$
C=C+1
IF
C>=2 AND C<=6 THEN
PRINT
N$, Add$, DOB$
END
IF
LOOP
CLOSE
#2
END
34.
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
35.
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(1)
INPUT #1, N$, P$, D$, S
IF
P$ = “MANAGER” OR P$ =
“OFFICER” THEN
PRINT
N$, P$, D$, S
END
IF
LOOP
CLOSE
END
36. [SLC 2067]
REM to
display all the records from sequential data file ABC.DAT
OPEN “ABC.DAT” FOR OUTPUT AS # 1
OPEN “ABC.DAT” FOR OUTPUT AS # 1
DO WHILE
NOT EOF(“ABC.DAT”)
INPUT # 1,N$,A
PRINT N$,A
CLOSE 1
END
INPUT # 1,N$,A
PRINT N$,A
CLOSE 1
END
[SLC 2067]
REM to
display all the records from sequential data file ABC.DAT
OPEN “ABC.DAT” FOR INPUT AS # 1
OPEN “ABC.DAT” FOR INPUT AS # 1
DO WHILE
NOT EOF(1)
INPUT # 1,N$,A
PRINT N$, A
INPUT # 1,N$,A
PRINT N$, A
LOOP
CLOSE # 1
END
CLOSE # 1
END
37. [SLC
2068 S]
Rem
to display the contents of a data file.
OPEN “Marks.dat” FOR OUTPUT AS #1
CLS
WHILE EOF(1)
INPUT #1, Name$, Age, Add$
DISPLAY Name$, Age, Add$
WEND
CLOSE 1
END
OPEN “Marks.dat” FOR OUTPUT AS #1
CLS
WHILE EOF(1)
INPUT #1, Name$, Age, Add$
DISPLAY Name$, Age, Add$
WEND
CLOSE 1
END
[SLC 2068 S]
Rem
to display the contents of a data file.
OPEN “Marks.dat” FOR INPUT AS #1
CLS
WHILE NOT EOF(1)
INPUT #1, Name$, Age, Add$
PRINT Name$, Age, Add$
WEND
CLOSE #1
END
OPEN “Marks.dat” FOR INPUT AS #1
CLS
WHILE NOT EOF(1)
INPUT #1, Name$, Age, Add$
PRINT Name$, Age, Add$
WEND
CLOSE #1
END
38.
[SLC
2069]
REM
display Records of students From Data File
OPEN
“STDREC.DAT” FOR INP AS #1
PRINT
“ROLL”,”NAME”,”ADDRESS”,”CLASS”,”SECTION”
DO
WHILE NOT EOF
INPUT #1,RN,N$,AD$,CL,S$
PRINT RN,N$,AD$,CL,S$
NEXT
CLOSE
#1
END
[SLC 2069]
REM
display Records of students From Data File
OPEN
“STDREC.DAT” FOR INPUT AS #1
PRINT
“ROLL”, “NAME”, “ADDRESS”, “CLASS”, “SECTION”
DO
WHILE NOT EOF(1)
INPUT #1, RN, N$, AD$, CL, S$
PRINT RN, N$, AD$, CL, S$
LOOP
CLOSE
#1
END
39.
REM
Program to store data in a sequential data file.
DO
CLS
OPEN “Address.txt” FOR INPUT AS
#1
INPUT “Name”; N$
INPUT “Address”; A$
INPUT “Age”; A
INPUT “Phone”; P$
WRITE N$,A$,A,P$
INPUT “Do you want some more….”;
ans$
LOOP WHILE UCASE(ans$)=”Y”
CLOSE #1
END
REM
Program to store data in a sequential data file.
OPEN
“Address.txt” FOR OUTPUT AS #1
DO
CLS
INPUT “Name”; N$
INPUT “Address”; A$
INPUT “Age”; A
INPUT “Phone”; P$
WRITE
#1, N$, A$, A,
P$
INPUT “Do you want some more….”;
ans$
LOOP WHILE UCASE$(ans$)=”Y”
CLOSE #1
END
40.
[SLC 2066 S]
REM
To store Name, post and salary
OPEN “EMP.DOC”
FOR OUT AS #1
INPUT”
Enter name”;N
INPUT”
Enter post”;P$
INPUT
“Enter salary”;S
WRITE
#2, N$,P$, S
CLOSE
#1
END
[SLC 2066 S]
REM
To store Name, post and salary
OPEN “EMP.DOC”
FOR OUTPUT AS #1
INPUT”
Enter name”;N$
INPUT”
Enter post”;P$
INPUT
“Enter salary”;S
WRITE #1, N$, P$, S
CLOSE
#1
END
41.
REM
To add records in existing data file which contains some records
OPEN “Directory.txt” FOR INPUT AS
#2
DO
INPUT “ENTER Name “; N$
INPUT “ENTER Address “; A$
INPUT “ENTER Telephone”; T
ADD #2, N$, A$, T
INPUT “Do you want to add more
records (Y/N)” ; ANS
LOOP WHILE UCASE(ANS$) = Y
CLOSE
END
REM
To add records in existing data file which contains some records
OPEN “Directory.txt” FOR APPEND AS #2
DO
INPUT “ENTER Name “; N$
INPUT “ENTER Address “; A$
INPUT “ENTER Telephone”; T
WRITE #2, N$, A$, T
INPUT “Do you want to add more
records (Y/N)” ; ANS$
LOOP WHILE UCASE$(ANS$) = “Y”
CLOSE
END
42.
REM
to add records in “marks.dat” sequential data file
OPEN “A”, 2, “mark.dat”
DO
INPUT “Roll Number, Name, Class”;
R, N$, C
WRITE#1, R, N$, C
INPUT “Want to continue(Y?N)”; H$
LOOP UNTIL UCASE$(H$) < >
“Y”
TERMINATE
END
REM to
add records in “marks.dat” sequential data file
OPEN “A”, #2, “mark.dat”
DO
INPUT “Roll Number, Name, Class”;
R, N$, C
WRITE
#2, R, N$, C
INPUT “Want to continue(Y?N)”; H$
LOOP UNTIL UCASE$(H$) < >
“Y”
CLOSE
#2
END
43.
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$, S
WEND
KILL "EMP.DAT"
CLOSE #1,#2
NAME "TEMP.DAT" AS
"EMP.DAT"
END
REM
to update the salary by 10%
CLS
OPEN "EMP.DAT" FOR
INPUT AS #1
OPEN "TEMP.DAT" FOR
OUTPUT AS#2
WHILE NOT EOF(1)
INPUT
#1, NM$,
POST$, S
LET NS = S + 10/100*S
WRITE
#2, NM$,
POST$, S
WEND
KILL "EMP.DAT"
CLOSE #1,#2
NAME "TEMP.DAT" AS
"EMP.DAT"
END
44.
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
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 #1, RN,
N$, Age
WRITE
#2, RN, N$, Age
LOOP
CLOSE #1, #2
END
45. 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
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( 1)
INPUT #1, NM$, RN, AGE
WRITE #2, NM$, RN, AGE
WEND
CLOSE
#1, #2
END
***
No comments:
Post a Comment