Solution of File's Question of QBASIC

1. Create a sequential data file "std.dat" to store Name and Mark obtained in English, Math and Science Subjects for a few students.

OPEN "std.dat" FOR OUTPUT AS #1
CLS
DO
INPUT "Enter Name";N$
INPUT "Enter Mark in English";E
INPUT "Enter Mark in Math";M
INPUT "Enter Mark in Science";S
WRITE #1,N$,E,M,S
INPUT "Do you want to enter another Record Y/N";c$
LOOP WHILE UCASE$(c$)="Y"
CLOSE #1
END

2. Write a program to create a data file "PERSON.DAT" to store person's Name, Address, Telephone number and district of N different students.

OPEN "PERSON.DAT" FOR OUTPUT AS #1
CLS
INPUT "Enter how many students";N
FOR I=1 TO N
INPUT "Enter Name";Na$
INPUT "Enter Address";A$
INPUT "Enter Telephone number";T$
INPUT "Enter district";D$
WRITE #1,Na$,A$,T$,D$
NEXT
CLOSE #1
END

3. Write a program to create a serial file having variable length records of name, department and telephone number. Telephone number should be in between 2000000 to 9999999.

OPEN "RECORD.DAT" FOR OUTPUT AS #1
CLS
DO
INPUT "Enter name";N$
INPUT "Enter department";D$
L1:
INPUT "Enter telephone number";T
IF T>2000000 AND T<9999999 THEN
WRITE #1,N$,D$,T
ELSE
GOTO L1
END IF

INPUT "Do you want to enter another data Y/N";c$
LOOP WHILE UCASE$(c$)="Y"
CLOSE #1
END

4. Write a program to create a data file STD.DAT which stores Roll number, Name, Class and age of 10 different students. Age of students must be in between 15 to 19.

OPEN "STD.DAT" FOR OUTPUT AS #1
CLS
FOR I=1 TO 10
INPUT "Enter Roll number";R
INPUT "Enter Name";N$
INPUT "Enter Class";C$
L1:
INPUT "Enter Age";A
IF A>15 AND A<19 THEN
WRITE #1,R,N$,C$,A
ELSE
GOTO L1
END IF
NEXT I
CLOSE #1
END

5. Write a program to create a data file named store.dat which stores the following data: Serial number, Book name, Author name and ISBN number. Add the data as user's choice.

OPEN "store.dat" FOR OUTPUT AS #1
CLS
DO
INPUT "Enter Serial number";SN
INPUT "Enter Name of Book";N$
INPUT "Enter Author name";A$
INPUT "Enter ISBN number";IN
WRITE #1,SN,N$,A$,IN
INPUT "Do you want to enter another data Y/N";c$
LOOP WHILE UCASE$(c$)="Y"
CLOSE #1
END

6. Write a program to create a data file named store.dat which stores the following data: Roll number, name and class of N number of students.

OPEN "store.dat" FOR OUTPUT AS #1
CLS
INPUT "Enter how many student";N
FOR I=1 TO N
INPUT "Enter Roll number";R
INPUT "Enter name";Na$
INPUT "Enter class";C$
WRITE #1,R,Na$,C$
NEXT I
CLOSE #1
END

7. Write a program to create a data file (MARK.DAT) and stores name, address and marks in any three subjects for five students.

OPEN "MARK.DAT" FOR OUTPUT AS #1
CLS
FOR I=1 TO 5
INPUT "Enter name";N$
INPUT "Enter address";A$
INPUT "Enter mark in subject 1";S1
INPUT "Enter mark in subject 2";S2
INPUT "Enter mark in Subject 3";S3
WRITE #1,N$,A$,S1,S2,S3
NEXT I
CLOSE #1
END

Comments

Unknown said…
Please can u solve fir write a program to store info like name class marks of 3 subject in a sequential data file store only those records for who have scored more than 40 in all subjects
January 16, 2017 at 4:20 AM
Post a Comment

Popular posts from this blog

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP...
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is palindrome or not. CLS INPUT "ENTER ANY NUMBER"; N A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END USING SUB PROCEDURE DECLARE SUB PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N CALL PALIN (N) END SUB PALIN (N) A = N S = 0 WHILE N < > 0 R = N MOD 10 S = S * 10 + R N = N \ 10 WEND IF A = S THEN PRINT A; "IS PALINDROME" ELSE PRINT A; "IS NOT PALINDROME" END IF END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10 ...
Read more

PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PRODUCT OF TWO / THREE NUMBERS

1. Enter any two numbers and display its sum. REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = A + B PRINT “SUM OF TWO NUMBERS”; S END USING SUB PROCEDURE DECLARE SUB SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B CALL SUM(A, B) END SUB SUM (A, B) S = A + B PRINT “SUM OF TWO NUMBERS”; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = SUM(A, B) PRINT “SUM OF TWO NUMBERS”; S END FUNCTION SUM (A, B) SU = A + B SUM = SU END FUNCTION 2. Enter any two numbers and display its difference. REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B D = A - B PRINT “DIFFERENCE OF TWO NUMBERS”; D END USING SUB PROCEDURE DECLARE SUB DIFF (A, B) CLS INPUT “ENTER FIRST NUM...
Read more