SvenPon har tidigare lagt in utmaningar. Nu får ni en av mig.

Skriv en funktion som beräknar summan av n st på varandra följande heltal.

Exvis: 1 + 2 + 3 + ....... + (n-2) + (n-1) + n

Använd denna funktionskropp.

Public Function summa(n As Integer) As Long
'Din Kod
End Function

/Peterh

PS. Det bästa svaret kommer inom kort.....

Public Function summa(n As Integer) As Long
summa = (n + 1) / 2 * n
End Function

Såhär kan man göra, det kanske finns något bättre sätt, men jag orkar inte fundera på det nu...

<code>
Function summa(n As Integer) As Long
If n > 1 Then
summa = n + summa(n - 1)
Else
summa = 1
End If
End Function
</code>

/Johan

Härligt..... att se....

eller så här:

summa = (n^2 + n) / 2

/peterh

Aha, nu fårstår jag... Jag tolkade Eriks förslag som summa = (n + 1) / (2 * n) och tyckte att det inte stämde alls... =)