Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
need help with qbasic print areas
#1
could someone please walk me through how to make a table using qbasic please add me on msn rs2maniak500@hotmail.com or post here

heres what i have i just cant figure out how to put the output section into a table

REM *****calculating area and perimeter of squares*****
REM David Rosenberg
REM 3/5/09
COLOR 25,7
CLS

REM INPUT

LET sport1$ = football
LET length1 = 360
LET width1 = 190

LET sport2$ = baseball
LET length2 = 94
LET width 2 = 50



REM PROCESSING
LET perimeter1$ = 2*length1+2*width1
LET area$ = length1*width1
LET perimeter2$ = 2*length2+2*width2
LET area2$ = length2*width2




REM OUTPUT

PRINT "The length (feet) of a football field is: " length1
PRINT "The width (feet) of a football field is: "; width1
PRINT "The perimeter (feet) of a football field is: " perimeter1
PRINT "The area (square feet) of a football field is: ";area1
PRINT
PRINT "The length (feet) of a basketball court is "; length2
PRINT "The width (feet) of a basketball court is: "; width2
PRINT "The perimeter (feet) of a basketball court is: "; perimeter2
PRINT "The area (square feet) of a basketball court is: "; area2



END
Reply
#2
(03-09-2009, 01:18 AM)qbasicnewbie link Wrote: could someone please walk me through how to make a table using qbasic please add me on msn rs2maniak500@hotmail.com or post here

heres what i have i just cant figure out how to put the output section into a table

REM *****calculating area and perimeter of squares*****
REM David Rosenberg
REM 3/5/09
COLOR 25,7
CLS

REM INPUT

LET sport1$ = football
LET length1 = 360
LET width1 = 190

LET sport2$ = baseball
LET length2 = 94
LET width 2 = 50

REM PROCESSING
LET perimeter1$ = 2*length1+2*width1
LET area$ = length1*width1
LET perimeter2$ = 2*length2+2*width2
LET area2$ = length2*width2

REM OUTPUT

PRINT "The length (feet) of a football field is: " length1
PRINT "The width (feet) of a football field is: "; width1
PRINT "The perimeter (feet) of a football field is: " perimeter1
PRINT "The area (square feet) of a football field is: ";area1
PRINT
PRINT "The length (feet) of a basketball court is "; length2
PRINT "The width (feet) of a basketball court is: "; width2
PRINT "The perimeter (feet) of a basketball court is: "; perimeter2
PRINT "The area (square feet) of a basketball court is: "; area2

END
Hi David, here's a few comments.

1) You don't need to use LET anymore, although it will work.  LET was used on very old versions of Basic.

2) Your variables SPORT1$ and SPORT2$ are never used. Delete these lines.

3) Your variables PERIMITER1$, AREA1$, PERIMITER2$ and AREA2$ shoulld be numeric vaiables not string variables. You later refer to them as numeric varriables, which is correct.

4) You mention wanting to create a table. Why would you need a table?

5)  If you fix the variables, your program will work fine as is.

Regards..... Moneo

Reply
#3
Variable types:

STRING = $
INTEGER (whole numbers) = %
LONG (large integers) = &
SINGLE (decimal point numbers) = !
DOUBLE (large decimal point numbers) = #

Use the above variable suffixes or DIM AS the type needed.

DIM age AS INTEGER

Ted
Get my QB demonstrator here: http://dl.dropbox.com/u/8440706/Q-Basics.zip
Reply
#4
One more thing:  You used
LET area$ = length1*width1
Following your method, it should have been:
LET area1$ = length1*width1

But, since even that is wrong, because, as Moneo has already pointed out, you're mixing a string (area1$) with numbers (length1 and width1).  Correctly, you should have:
LET area1 = length1*width1
and, gettting with the times, it should be:
area1 - length1*width1


Ralph, using QuickBASIC 4.5 and Windows XP Home Edition and Service Pack 2, with HP LaserJet 4L printer.
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)