QuickBasic Cafe Forum

You might want to try declaring you variable out front.
Intergers will only goto 32767. Try using
DIM G as single
DIM M as single
etc.
if not try
DIM G as DOUBLE
etc.
You must leave enough room for large numbers

good luck

Sorry If this is a little ratty, but is seems to work. Any bugs get back to me.
CLS
DIM denomination(1 TO 7)  AS SINGLE
DIM balance AS SINGLE
DIM y AS INTEGER
DIM ext AS SINGLE

DATA 10,5,1,0.25,0.10,0.05,0.01
FOR i = 1 TO 7
READ denomination(i)
NEXT i

PRINT "How much is the item?"
INPUT price ...

Nice work Puni. A lot better than my way. I'll post it anyway.


Text file=Drive:\north.txt
6 29 02 1 3 2 4 5 7 6 8
1 10 02 1 1 4 5 6 8 2 3
3 30 02 2 4 1 3 5 6 7 8
12 29 02 1 2 3 4 5 6 7 9
13 1 02 1 2 3 4 5 6 7 8
1 1 02 1 2 3 4 5 6 7 8


Qbasic File=Teams.bas
CLS
teams% = 0

PRINT "Enter File Name ...

  I think I can help you. However, I will need more information.
I also assume that this is a homework assignment. Therefore, I will help you and NOT do the project for you.
  Once we have that understanding we can proceed.

Qbasic is an interperated language. Every command is executed within the Qbasic envoirment(Press F5 to run). Quickbasic 4.5 is Qbasic with a complier. The complier gives creates executable code from your textfile. Excutable code has an extension of MyProgram.EXE and runs directly when called from ...