---

Do While (Abs(a) >= 0.000001)
s = s + a 'Ñóììèðîâàíèå ÷ëåíîâ a ðÿäà
n = n + 2
a = x ^ (n + 1) 'Âû÷èñëåíèå ÷èñëèòåëÿ ÷ëåíà ðÿäà
p = -p * (n - 1) * n 'Âû÷èñëåíèå çíàìåíàòåëÿ ÷ëåíà ðÿäà
a = a / p 'Î÷åðåäíîé ÷ëåí a ðÿäà
k = k + 1
Loop
y = x * Cos(2 * x) 'Íåïîñðåäñòâåííîå âû÷èñëåíèå çàäàííîé ôóíêöèè
'ÂÛÂÎÄ ÐÅÇÓËÜÒÀÒÎÂ
Îòâåò = MsgBox("Çàäàííîå çíà÷åíèå àðãóìåíòà X=" & x _
& vbLf & "Âû÷èñëåííàÿ ñóììà ðÿäà S=" & s _
& vbLf & "Êîëè÷åñòâî ÷ëåíîâ ðÿäà K=" & k _
& vbLf & " Ôóíêöèÿ Sin(X)=" & y, _
vbRetryCancel, "Ðåçóëüòàò ðàáîòû ïðîöåäóðû")
Select Case Îòâåò
Case vbRetry: GoTo 10
Case vbCancel: GoTo 20
End Select
20 End Sub

---

---

---