Basic Maths - GameCreators Forum

Author

Message

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 29th Jan 2006 15:22

Link

Hi I can't seem to figure out how the maths work in this simple for and next loop. I'm trying to number, the random numbers generated in the array, from 1 to 40. I'm have tried everything I can think of but to no avail, are there any good links, that could teach me or can anyone talk me through the fundamental basics of how a computer will output what I want it to.
I do feel a bit stupid asking this simple question, but I'm beginning to realize now that programming involves a lot of maths, which unfortunatley is not one of my strongest points!

Thanks Ant !

+ Code Snippet

dim ages(4,10)

for x=1 to 4
   for y=1 to 10
      ages(x,y)=rnd(100)
   next y
next x

for x=1 to 4
   for y=1 to 10
      num=(1*y)
      set cursor x*150,y*20
      print num,"= ",ages(x,y)
      wait 50
   next y
next x

wait key
end

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 29th Jan 2006 15:28

Link

At your print line, try this instead.

+ Code Snippet

print str$(num)," = ",str$(ages(x,y))

Back to top

Profile PM Email

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 29th Jan 2006 18:12

Link

Hey thanks for post, unfortunatley it doesn't work, or at least it didn't work on my version of Darkbasic Pro V5.9
What version are you running Image, and does it work on your's?

Back to top

Profile PM Email

harggood

21

Years of Service

User Offline

Joined: 9th Apr 2003

Location: the forest

Posted: 29th Jan 2006 18:44 Edited at: 29th Jan 2006 18:48

Link

Quote: "num=(1*y)"

num = x*y

Quote: "print num,"= ",ages(x,y)"

text$=str$(num) + " = " + str$(ages(x,y))
print text$

Maybe

Awfuldark Forest

Back to top

Profile PM Email Website

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 29th Jan 2006 19:51

Link

mmmmh well I'm glad I'm not the only one who is having a problem, good ideas guys, but so far none work,just to be a bit clearer on what I want it to do

[/code]
1 11 21 31
2 12 22 32
3 13 23 33
4 14 24 34
5 15 25 35
6 16 26 36
7 17 27 37
8 18 28 38
9 19 29 39
10 20 30 40
[code]

numbered like so with corresponding array, I really do want to figure this one out, hope you can help, and like I said earlier if anyone can point me in the right direction, to some good examples of basic math problem solving for programming or could explain the basics I would really appreciate it

Thank you.

Back to top

Profile PM Email

Don Malone

21

Years of Service

User Offline

Joined: 27th Apr 2003

Location: Birmingham, Alabama

Posted: 29th Jan 2006 20:18 Edited at: 29th Jan 2006 20:28

Link

Is that the output you want?

if so this code gives you that. It properly number your randoms. This is the line of importance

num=(y+(10*(x-1)))

+ Code Snippet

dim ages(4,10)

for x=1 to 4
   for y=1 to 10
      ages(x,y)=rnd(100)
   next y
next x

for x=1 to 4
   for y=1 to 10
      num=(y+(10*(x-1)))
      set cursor x*150,y*20
      print num,"= ",ages(x,y)
      wait 50
   next y
next x

wait key
end

[edited for clarity. Not that it helped.]

In Memory of My Dad.
I miss you very much.

Back to top

Profile PM Email

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 29th Jan 2006 20:38

Link

Hey thanks DBoy

I messed around with your equation, to print the numbers horizontally as follows.

+ Code Snippet


dim ages(4,10)

for x=1 to 4
   for y=1 to 10
      ages(x,y)=rnd(100)
   next y
next x

for x=1 to 4
   for y=1 to 10
      num=(x+(4*y)-4)
      set cursor x*150,y*20
      print num,"= ",ages(x,y)
      wait 50
   next y
next x

wait key
end

Thanks for your help, now if someone could tell me of a good website or link to learn basic math equations for programming I'd be set, Thanks for all your help guys, probably annoy you soon with some more !!!!!!!!!!

Back to top

Profile PM Email

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 29th Jan 2006 20:51

Link

although I tried to adjust your equation to do it horizontally its not assigning the right variable with the random array, I've got a feeling if you wanted to do that, it would get a lot more complicated, any suggestions?

+ Code Snippet

dim ages(4,10)

for x=1 to 4
   for y=1 to 10
      ages(x,y)=rnd(100)
   next y
next x

for x=1 to 4
   for y=1 to 10
      num=(x+(4*y)-4)
      set cursor x*150,y*20
      print num,"= ",ages(x,y)
      wait 50
   next y
next x

`print out what I would assume should be number 15, but it works
`third row along, fifth number down. Is there any way to assign the
`logical array to the corresponding number?
print ages(3,5)

wait key
end

Back to top

Profile PM Email

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 29th Jan 2006 21:25

Link

Just realized I would have to call it print ages(3,4) because the array has not changed the way it stores the random numbers

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 29th Jan 2006 22:08

Link

Quote: "1 11 21 31
2 12 22 32
3 13 23 33
4 14 24 34
5 15 25 35
6 16 26 36
7 17 27 37
8 18 28 38
9 19 29 39
10 20 30 40"

I may be missing the boat but if that's the output you want why do you get random numbers?

+ Code Snippet

dim Ages(10,2)

Base=11

for t=1 to 10
 Ages(t,0)=Base
 Ages(t,1)=Base+10
 Ages(t,2)=Base+20
 print str$(t)+" ";
 for z=0 to 2
  print str$(Ages(t,z))+" ";
 next z
 print ""
 inc Base
next t
wait key

Back to top

Profile PM Email

Don Malone

21

Years of Service

User Offline

Joined: 27th Apr 2003

Location: Birmingham, Alabama

Posted: 30th Jan 2006 03:39 Edited at: 30th Jan 2006 12:45

Link

what he is doing is counting the random numbers. the actual out put is more like

Quote: "
1-## 11-## 21-## 31-##
2-## 12-## 22-## 41-##

etc...
where ## = the random number.

@ant
the trick is not the line you adjusted
num=(x+(4*y)-4)
but the line you are using to print the results
set cursor y*150,x*20

by swapping the x and y you change the output. the question is how flexable does it have to be. If you want a flexable printout, the code will have to get much more complicated, I think, using more variables.
"

[edit] - code follows

+ Code Snippet

dim ages(4,10)

for x=1 to 4
   for y=1 to 10
      ages(x,y)=rnd(100)
   next y
next x

for x=1 to 4
   for y=1 to 10
      num=(y+(10*(x-1)))
      set cursor y*150,x *20
      print num,"= ",ages(x,y)
      wait 50
   next y
next x

wait key
end

In Memory of My Dad.
I miss you very much.

Back to top

Profile PM Email

Don Malone

21

Years of Service

User Offline

Joined: 27th Apr 2003

Location: Birmingham, Alabama

Posted: 30th Jan 2006 03:43 Edited at: 30th Jan 2006 12:44

Link

If you want more flexability in printout. You would be better served just using a straight array with say 40 elements and fill that with random numbers. Then you can control the printing much easier by placing the cursor and printing and then relocating the cursor with a simple mathmatical formula.

If you are trying to make the previous code more flexable, then you are headed for a coding headache.

In Memory of My Dad.
I miss you very much.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 30th Jan 2006 05:36

Link

Yeah a one dimensional array would be better. Also using the "text" command combines both "set cursor" and the "print" commands.

+ Code Snippet

randomize timer()

dim Ages(40)

x=0:y=0
for t=1 to 40
 Ages(t)=rnd(100)
 Tex$=str$(t)+" = "+str$(Ages(t))
 if t<10 then Tex$=" "+Tex$
 text x,y,Tex$
 inc y,15
 if y>=150
  inc x,100
  y=0
 endif
next t
wait key

Back to top

Profile PM Email

Ant

19

Years of Service

User Offline

Joined: 27th Nov 2004

Location:

Posted: 30th Jan 2006 23:24

Link

Thanks for all your advice guys, I'll have a play around with all the code you have, all generously suggested and see which one works out best.

Ant !!!!!!!!!

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Basic Maths