Answered step by step
Verified Expert Solution
Question
1 Approved Answer
The infinite series for the cosine of x is cos x = sigma^n_i=0 (-1)^i x^2i/(2i)! or, in expanded form, x = x^0/0! - x^2/2! +
The infinite series for the cosine of x is cos x = sigma^n_i=0 (-1)^i x^2i/(2i)! or, in expanded form, x = x^0/0! - x^2/2! + x^4/4! - x^6/6! + ellipsis Write a Sub procedure, cosine, that uses this formula to calculate the value of the cosine of x, given x and the number of terms, n. Use separate procedure, to calculate the factorial of x. Do not have the Sub procedure any input or output. That is, just do the calculation. Here is the calling program: Option Explicit Sub cosEvaluate () Dim n As Integer Double Dim x As Double, c As Double x = InputBox("Enter value of x:") n = InputBox ("Enter number of evaluations: ") Call cosine (x, n, c) MsgBox c End Sub
Step by Step Solution
There are 3 Steps involved in it
Step: 1
Get Instant Access to Expert-Tailored Solutions
See step-by-step solutions with expert insights and AI powered tools for academic success
Step: 2
Step: 3
Ace Your Homework with AI
Get the answers you need in no time with our AI-driven, step-by-step assistance
Get Started