need help with procdures

[someguy123]

Quote:

var card : array 1 .. 52 of int
var cardcheck : array 1 .. 52 of boolean
var cardnum : array 1 .. 52 of int
var num : int
var counter : int := 1
var guess : string

for i : 1 .. 52
card (i):= Pic.FileNew ("cards/" + intstr (i) + ".jpg")
cardcheck (i) := true
end for

procedure Dealing
loop
randint (num, 1, 52)
Pic.Draw (card (num), 0, 0, picCopy)
exit when cardcheck (num) = true
end loop
cardcheck (num) := false
cardnum (counter) := (num)
counter := counter + 1
end Dealing

procedure Guess
locate (1,1) put "Higher or lower?"
get guess
end Guess

procedure Compare
if cardnum (counter) > cardnum (counter-1) and guess = "lower" then
put "You are right."
elsif cardnum (counter) < cardnum (counter-1) and guess = "higher" then
put "You are right."
else
put "Your are wrong."
end if
end Compare

Dealing
Guess
Dealing
Compare

during my compare procedure i dont get any value on any variable so it doesnt run correctly, andyone can give me any advice on how to fix it?

[CodeMonkey2000]

My guess is that cardnum (counter) never gets assigned a value.

[someguy123]

any idea how to fix that?

[CodeMonkey2000]

try cardnum (counter-1) > cardnum (counter-2)

[someguy123]

spearmonkey2000 @ Thu Feb 01, 2007 9:20 pm wrote:

try cardnum (counter-1) > cardnum (counter-2)

how would that make a difference..

[runhardndie]

Just choose 2 different numbers in your deal procedure. I reordered your program for you to look at..(see attached)

[CodeMonkey2000]

someguy123 @ Thu Feb 01, 2007 9:49 pm wrote:

spearmonkey2000 @ Thu Feb 01, 2007 9:20 pm wrote:

try cardnum (counter-1) > cardnum (counter-2)

how would that make a difference..

because look at where this statement is: counter := counter + 1 this is a off-by-one error.
If you want your way to work do:

Turing:

var num : int var counter : int := 0 var guess : string for i : 1 .. 52     card (i) := Pic.FileNew ("cards/" + intstr (i) + ".jpg")     cardcheck (i) := true end for procedure Dealing     loop         randint (num, 1, 52)         Pic.Draw (card (num), 0, 0, picCopy)         exit when cardcheck (num) = true     end loop     counter := counter + 1     cardcheck (num) := false     cardnum (counter) := (num) end Dealing procedure Guess     locate (1, 1)     put "Higher or lower?"     get guess end Guess procedure Compare     if cardnum (counter) > cardnum (counter - 1) and guess = "lower" then         put "You are right."     elsif cardnum (counter) < cardnum (counter - 1) and guess = "higher" then         put "You are right."     else         put "Your are wrong."     end if end Compare Dealing Guess Dealing Compare