How do you write a program in QBASIC to print the names of any 5 laptop companies?

Answer 1

EXAMPLE 1 - LANGUAGE: QBASIC

'*** printing string literals...

CLS

PRINT "Laptop manufacturers:-"

PRINT

PRINT "Toshiba"

PRINT "Sony"

PRINT "Apple"

PRINT "Dell"

PRINT "Samsung"

END

EXAMPLE 2 - LANGUAGE: QBASIC

'*** printing string values from an array name variable...

DIM companyName$(5)

companyName$(1) = "Toshiba"

companyName$(2) = "Sony"

companyName$(3) = "Apple"

companyName$(4) = "Dell"

companyName$(5) = "Samsung"

CLS

PRINT "Laptop manufacturers:-"

PRINT

FOR eachCompanyNo% = 1 TO 5

PRINT companyName$(eachCompanyNo%)

NEXT

END

EXAMPLE 3 - LANGUAGE: QBASIC

'*** READing/and, PRINTing from DATA statements list...

CLS

PRINT "Laptop manufacturers:-"

PRINT

READ eachCompanyName$

DO WHILE eachCompanyName$<>"EOF"

PRINT eachCompanyName$

READ eachCompanyName$

LOOP

END

DATA "Toshiba","Sony","Apple","Dell","Samsung"

DATA "EOF"

*NOTE*: There are many more ways that it's possible to do this, too. Including...

-Storing data in an external text based file(.txt/.dat/.csv); then, opening/reading in/printing values from that external data file/closing the file.

-using fixed length strings/together with dot notation

-etc.

I will leave it up to you to go and discover how to use such further possibilities; and, more...

CONCLUSION

As you can see from the above code examples/suggestions; QBASIC, is a very highly versatile programming language; which, quite often, gives programmers multiple different ways to write their underlying 'source code'...though, each differently written program will produce exactly the same surface 'output'.