Pomoc w Visualu

Programowanie w środowisku Visual Basic
maciekpapilociarz
Posty: 1
Rejestracja: 22 sty 2013, 14:16

Pomoc w Visualu

Post autor: maciekpapilociarz » 22 sty 2013, 14:18

Witam serdecznie prosze o napisanie kodu programu w excelu w edytorze visual basic. Mam do napisania program liczacy szereg 1/sqrt(1+5x) gdzie -0.2<x<0.2 mam juz wzor ogolny szerego to jest:



a1=1

s1=1

a(n+1)=((-1)^n)*an*((2*n-1)/2n)*5*x

s(n+1)=sn+an



probowalem ale nie umiem sobie z tym poradzic tutaj jeszcze podam kod programu dla innego szerego stworzonego przez mojego kolege jesli to pomoze:

Option Explicit
Dim x, d, fx, fx1, rfx, sum, b As Double, i, licznik As Integer
'd-skok
'fx-wartość dokładna funkcji
'fx1-wartość przybliżona funkcji
'rfx-różnica między wartościa dokładną a przybliżoną
'sum-suma elementów wartości przybliżonej
'I-licznik pętli i elementów sumy
'licznik-numeruje następne wyniki
Function Silnia(n)
If n = 0 Then
Silnia = 1
Else
Silnia = n * Silnia(n - 1)
End If
End Function



Sub funkcja()
Range("A1:G5000").Clear
Cells(1, 1).Value = "l.p."
Cells(1, 2).Value = "x"
Cells(1, 3).Value = "wartość dokładna funkcji"
Cells(1, 4).Value = "suma szeregu"
Cells(1, 5).Value = "błąd względny procentowy"

d = InputBox("Podaj krok")
b = InputBox("Podaj wartość błędu")
licznik = 1
For x = -1 + d To 1 - d Step d
fx = WorksheetFunction.Asin(x)
i = 0
sum = 0
Do
fx1 = (Silnia(2 * i) * (x) ^ (2 * i + 1)) / ((4 ^ i) * ((Silnia(i)) ^ 2) * ((2 * i) + 1))
sum = sum + fx1
rfx = (fx - (sum))
If Abs(rfx) < b Then
Cells(licznik + 1, 1).Value = licznik
Cells(licznik + 1, 2).Value = x
Cells(licznik + 1, 3).Value = fx
Cells(licznik + 1, 4).Value = sum
Cells(licznik + 1, 5).Value = (sum / fx)
Exit Do
End If
i = i + 1
Loop
licznik = licznik + 1
Next



Prosze o pomoc to bardzo pilne:D




End Sub