Help with Qbasic homework

[Egotistical EvilN]

Description:"Design an algorythym that will read a series of integers. The first integer is special, as it indicates how many more integers will follow. Your algorythym is to calculate the sum and average of the integers, excluding the first integer, and display these values to the screen.


CLS
INPUT numberofvalues
count = 0
DO UNTIL numberofvalues = count
count 1 = count
LOOP

How can I make the amount of inputs I have be equal to numberofvalues, and then how do I add them together?

[toastman]

Description:"Design an algorythym that will read a series of integers. The first integer is special, as it indicates how many more integers will follow. Your algorythym is to calculate the sum and average of the integers, excluding the first integer, and display these values to the screen.


CLS
INPUT numberofvalues
count = 0
DO UNTIL numberofvalues = count
count 1 = count
LOOP

How can I make the amount of inputs I have be equal to numberofvalues, and then how do I add them together?

You really can't be serious.
I can't believe anyone would be teaching QBasic.

[henzenmann]

I can't believe anyone would be teaching QBasic.

It is still the best language to design algorythyms.

[OneThirty8]

Description:"Design an algorythym that will read a series of integers. The first integer is special, as it indicates how many more integers will follow. Your algorythym is to calculate the sum and average of the integers, excluding the first integer, and display these values to the screen.


CLS
INPUT numberofvalues
count = 0
DO UNTIL numberofvalues = count
count 1 = count
LOOP

How can I make the amount of inputs I have be equal to numberofvalues, and then how do I add them together?

Um... Well, I think you could do something like this (take into account that I have never actually used Qbasic but I'll try to write BASICy pseudocode--also, the BASIC I use probably differs substantially, and I haven't used it in ages... so this may not work at all.)

Code: Select all

dim nov$
dim numberofvalues%
dim newnumber$
dim count%
dim runningtotal%
dim finalaverage%

INPUT nov
numberofvalues = val(nov)

count = 0
runningtotal = 0

WHILE count < numberofvalues

INPUT newnumber

runningtotal += val(newnumber)

count++
WEND

finalaverage = runningtotal/numberofvalues

Just a simple loop.

[Egotistical EvilN]

Fixed it. Done with all my assignments now. Thanks!

[Code-Red]

God I'm old. We learned BASIC in school long ago. This took me back a little.

Whats the difference between regular and Q?

[henzenmann]

QBasic was included in later MS-DOS versions. It was a "lite"-version of Quickbasic, which in turn was the predecessor to Visual Basic. The biggest difference to "classic" basic interpreters was its nice IDE, and (as far as I remember) better support for structured programming and data types.

The fact that it has not been officially distributed in over ten years makes it seem strange that someone would actually teach/learn it these days