QBASIC File Handling Read Data from Data File Example

Write a program to display all the records of data file STUDENT.DAT

CLS
OPEN "STUDENT.DAT" FOR INPUT AS #1
PRINT "Name", "Class", "Roll No", "Address"
DO WHILE NOT EOF(1)

QBASIC File Handling Write Data into Data File Example

Write a program to create a sequential data file STUDENT.DAT then, store Name, Class, Roll number, and Address of the student

CLS
OPEN "STUDENT.DAT" FOR OUTPUT AS #1
INPUT "Enter Name : "; n$
INPUT "Enter Class : "; c

QBASIC Program to print the series 0, 2, 4, 6, 8 ...... up to 100

Using FOR...NEXT

CLS
FOR i = 0 TO 100 STEP 2
      PRINT i;
NEXT i

QBASIC Program to print the series 1, 3, 5, 7, 9 ...... 25

Using FOR...NEXT

CLS
FOR i = 1 TO 25 STEP 2
      PRINT i;
NEXT i

QBASIC Program to print the series 10, 8, 6, 4, 2

Using FOR...NEXT

CLS
FOR i = 10 TO 1 STEP -2
      PRINT i;

NEXT i

QBASIC Program to print the series 1000, 500, 250, 125, 62.5

Using FOR...NEXT

CLS
n = 1000
FOR i = 1 TO 5
      PRINT n;

QBASIC Program to print the series 1, 27, 125, 343, 729

Using FOR...NEXT

CLS
n = 1
FOR i = 1 TO 5
      PRINT n ^ 3;

QBASIC Program to print the series 1, 8, 27, 64, 125...up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
      PRINT i ^ 3;
NEXT i

QBASIC Program to print the series 1, 4, 9, 16, 25....up to 10th term.

Using FOR...NEXT

CLS
FOR i = 1 TO 10
     PRINT i ^ 2;
     NEXT i

QBASIC Program to print the series 5, 25, 125, 625, 3125 …. up to 7th terms.

Using FOR...NEXT

CLS
a = 5
FOR i = 1 TO 7
      PRINT a;
      a = a * 5