[Schecterro]

#studbaza , #informatyka, #politechnikakrakowska, #visualbasic
Cześć Mircy. Potrzebuje pomocy dot. Visual Basica. Wiecie może jak to dokończyć?


XP = CDbl(Cells(1, 1).Value)
XK = CDbl(Cells(1, 2).Value)
N = CInt(Cells(1, 3).Value)
Eps = CDbl(Cells(1, 4).Value)
DX = (XK - XP) / CDbl(N)
For J = 0 To N Step 1
X = XP + CDbl(J) * DX
F2 = 1#
W = 1#
I = 0
Do

I = I + 1
W = W * X / CDbl(I)
F2 = F2 + W

Loop Until Abs(W) < Eps
F1 = Exp(X)
E1 = Abs(F1 - F2)
E2 = E1 / Abs(F1) * 100
Cells(3 + J, 1).Value = J
Cells(3 + J, 2).Value = X
Cells(3 + J, 3).Value = F1
Cells(3 + J, 4).Value = F2
Cells(3 + J, 5).Value = E1
Cells(3 + J, 6).Value = E2
Cells(3 + J, 7).Value = I. !
w całym zadaniu chodzi, aby obliczyć ciąg liczb. Jest chyba jakiś błąd z linijką nr 6, bo nie chce mi uruchomić makra.