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.
Chciałbym oficjalnie NAPLUĆ z tego miejsca na każdego któremu nie chcę się dziś iść na #wybory nie zależnie od tego na kogo by zagłosował. Oczywiście podwójnie chciałbym OPLUĆ tych którym się dziś nie chcę iść ale będą pisać o polityce na mirko regularnie.
DOSKONALA BRUNETKA ? Faceci jak ona wam sie podoba ? Kobiety co myslicie o takim stylu? Te paznokcie, usta, rzesy, makijaz, piersy itd. Ocencie jej wyglad
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.