Loop Function

[daya 0]

Hi,

I write Loop for summinf 1 to 10 as follow:

Local $s,$i
For  $s = 0 to 10 step 1
  $i = $i+$S
Next
MsgBox(0,"ANS",$i)

Its works OK.

But when I define Function for above For...To Loop as below.I get wrong answer.

Pl just pinpoint my mistake.

 

Func sum($k,$s)
For $i = $k to $s
 $i = $k + $i
Next

 MsgBox(0,"",$i)
EndFunc

sum(0,10)

[BrewManNH 1,101]

Because you reused the loop variable $i when you're doing the calculation, and not the variable $k which is what I'm assuming you were trying to do.

[daya 0]

Thanks MVPs

I rearrange code like this:

Func sum($k,$s)
For $i = $k to $s
 $k = $i + $k
Next

 MsgBox(0,"",$k)
EndFunc

sum(0,10)

It Gives me correct result but when I use this function having value other than Zero then it gives wrong value.

i.e.

sum(2,5) gives 16 istead of 13.

Pl. give me some explanatory hints.

Regards

[BrewManNH 1,101]

16 is the correct answer for that.

 

I'll break it down for you:

1. $k = 2, $i = 2 (2+2=4)
2. $k = 4, $i = 3 (4+3=7)
3. $k = 7, $i = 4 (7+4=11)
4. $k = 11, $i = 5 (11+5 =16)

$i starts at 2 and ends at 5, the results are correct.

[jchd 1,008]

You're summing the lower bound (2) twice. If indeed you want 2+3+4+5 you should get 14.

[daya 0]

Thanks BrewManNH

Looking to that way code is correct.

I want to add sum(2,5)

i.e.  2+3+4+5 = 14 , it should be 14     ...not 16 or 13.

Whereas

sum(0,10) means

0+1+2+3+4+5+6+7+8+9+10 = 55   is correct.

Why this differ.

Regards

[kylomas 411]

daya,

Is this what you aretrying to do?

func Sum($a, $b)
    local $tmp = 0
    for $1 = $a to $b
        $tmp += $1
    Next
    return $tmp
EndFunc

ConsoleWrite(Sum(2,5) & @LF)
ConsoleWrite(Sum(0,10) & @LF)

[daya 0]

Thanks  kylomas

Oh yes it is exactly what I am trying to do.

Can you suggest me sources for  practise examples for Loop, If.. and Functions.

Thanks

[kylomas 411]

daya,

There are several Wiki tutorials (Google search).  After that the Help file is your best resource followed by this forum.

Good Luck,

kylomas