I need some help on turing...

[yoimzuup]

Try the code below first. The problem that im having is that it wouldn't bounce back up and then back down when it touches the top, etc. Im wondering if someone could help me fix this problem. Help would be accpreciated.

var change : int := 1
var row : int
var column : int
put "Enter the row"
get row
put "Enter the column"
get column
loop
setscreen ("nocursor")
locate (row, column)
put "*"
row := row + change
delay (200)
cls
if row = 25 then
row := row - change
end if
end loop

[wtd]

Reformatted. Please use code tags.

code:

var change : int := 1 var row : int var column : int put "Enter the row" get row put "Enter the column" get column loop    setscreen ("nocursor")    locate (row, column)    put "*"    row := row + change    delay (200)    cls    if row = 25 then       row := row - change    end if end loop

The asterisk starts off and descends until it gets to row 25, at which point it continues going down, but it also goes up one. The net effect is that it never goes anywhere.

What you want to do is, when the asterisk gets to the bottom of the screen, alter the "change". Do the same when it gets to the top of the screen.

[yoimzuup]

I can make it go back up but can't make it go on forever. I want it to run forever but I don't know how. Please help me.

code:

var change : int := 1 var row : int var column : int put "Enter the row" get row put "Enter the column" get column loop     setscreen ("nocursor")     locate (row, column)     put "*"     row := row + change     delay (20)     cls     if row = 25 then         loop             locate (row, column)             put "*"             row := row - change             delay (20)             cls             if row = 1 then                 loop                     locate (row, column)                     put "*"                     row := row + change                     delay (20)                     cls                 end loop             end if         end loop     end if end loop

[wtd]

You're making it too hard.

Each time through your loop you clear the screen, draw the pixel, then subtract one from the row to make it go down.

So to make it go up without changing that subtraction, you would just change "change", right?

[yoimzuup]

Sorry, Im getting really confused right now. I tried fixing it many times and I still can't get it right. I was just introduced to turing so Im a newbie. Can someone please fix the code for me?

Thanks

[wtd]

I'm sorry. We sort of don't like to do people's homework for them. Short of that we'll do anything we can to help you, though.

And don't worry about being confused, you're a new programmer. Confusion is part of the process.

The key to beating confusion is knowing how to tackle problems. Plan out exactly what you need to do first. Attention to details is good.

[skier]

try this:

code:

var r : int var c : int put "enter the row" get r put "enter the column" get c loop     loop         locate (r, c)         put "*"         r := r + 1         delay (50)         cls         exit when r = 24     end loop     if r = 24 then         r := r - 1     end if     loop         locate (r, c)         put "*"         r := r - 1         delay (50)         cls         exit when r = 1     end loop     if r = 1 then         r := r + 1     end if end loop

if you have any questions, post

[wtd]

Skier, you're still working too hard.

Think about math. Think about equations. Factor out the common bits so you don't duplicate code unnecessarily.

[Mr. Glib]

wtd wrote:

Think about math. Think about equations. Factor out the common bits so you don't duplicate code unnecessarily.

wtd!?! Are you serious! You mean to say that programming actually involves math!?!

[wtd]

Mr. Glib wrote:

wtd wrote:

Think about math. Think about equations. Factor out the common bits so you don't duplicate code unnecessarily.

wtd!?! Are you serious! You mean to say that programming actually involves math!?!

Heh. Often really simple math, and mostly just the basic "math" thought process. Look at my regex tutorials for more examples of thinking like a mathematician in action.

[yoimzuup]

Thanks guys, I think I understand now

For the skier code, you can take of the

code:

if r = 25 then         r := r - 1     end if and     if r = 1 then         r := r + 1     end if

and it would still work

[zylum]

i believe this would be the easiest method:

code:

var r : int var c : int var dy := 1 put "enter the row" get r put "enter the column" get c loop     locate (r, c)     put "*"     r += dy     if r = 1 or r = maxrow - 1 then         dy *= -1     end if     delay (100)     cls end loop

[wtd]

zylum wrote:

i believe this would be the easiest method:

code:

var r : int var c : int var dy := 1 put "enter the row" get r put "enter the column" get c loop     locate (r, c)     put "*"     r += dy     if r = 1 or r = maxrow - 1 then         dy *= -1     end if     delay (100)     cls end loop

+10 bits.