Stránka 1 z 1

Funkce ve Visual Basic v Excelu (vyřešeno)  Vyřešeno

Napsal: 13 lis 2006 22:19
od Unholy
může mi někdo prosím pomoci s úkolem do školy? možná to tu trochu nepatří, ale potřebuju napsat fci která počítá geometrické řady o vzorci " s=1+q+q^2+q^3+...+q^n-1 " s pomocí cyklu FOR.. Cpou se do toho samo ty kvocienty "q" a člen "n"...

napadlo mě něco jako:

Kód: Vybrat vše

Function soucet_s(q As Double, n As Double) As Double
Dim i As Double
For i = 0 To n - 1
soucet_s = q ^ i
Next i
End Function


jen právě nevím jak tam dostat ten cyklus ať to opakuje dokud není to n-1..
prosím pomoc, děkuju

Napsal: 14 lis 2006 07:49
od Luboš
Ve Visual Basic for Application (např. v Excelu) by to mohlo být např.:

Function soucet_s(q As Double, n As Double) As Double
Dim i As Double
i = 0
Do Until (i = n - 1)
soucet = q ^ i
i = i + 1
Loop
End Function


Vyzkoušej, zda je to ono.

Napsal: 14 lis 2006 11:36
od orlik
ja myslim ze staci tento kod se zminovanym for .. next

s = soucet_s(5, 3)


Function soucet_s(q As Double, n As Integer) As Double
Dim i As Integer
For i = 0 To n - 1
soucet_s = soucet_s + q ^ i
Next i
End Function

děkuju

Napsal: 14 lis 2006 12:54
od Unholy
Děkuju za pomoc, řešení zaslané orlikem se zadá být v pořádku :) Navíc sem to potřeboval řešit tím cyklem FOR :) Jste machři :))