For24. Дано вещественное число X и целое число N (> 0). Найти значение выражения 1 — X2/(2!) + X4/(4!) -…+ (-1)N*X2*N/((2*N)!) (N! = 1*2*…*N). Полученное число является приближенным значением функции cos в точке X.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | program For24; var X,Rez,factorial,pow:Real; N, i :Integer; begin Write('Введите X: '); Readln(X); Write('Введите N: '); Readln(N); Rez:=1; pow:=1; factorial:=1; For i:=1 to 2*N do begin factorial:=factorial*i; pow:=pow*X; if (i mod 2) = 0 then begin pow:=pow*(-1); Rez:=Rez+pow/factorial; end; end; Writeln(Rez); end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #include int main(void) { float x; printf("X:"); scanf ("%f", &x); int n; printf("N:"); scanf ("%i", &n); float x1=1,n1=1,rez=1.0; int i,k=0; for (i =2; i<=n; ++i){ ++k; n1 *=(float)k; ++k; n1 *=(float)k; x1 *= -1*x*x; rez += x1/n1; } printf("%f \n ",rez); return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); float x; cout<<"X:"; cin>>x; int n; cout<<"N:"; cin>>n; float x1 = 1, n1 = 1, rez = 1.0; int i, k = 0; for (i = 2; i <= n; ++i) { ++k; n1 *= (float)k; ++k; n1 *= (float)k; x1 *= -1 * x * x; rez += x1 / n1; } cout<< rez; } |
внутри еще один for цикл будет
то что вы написали неправильно!
# python
from cmath import cos
x=int(input(‘x= ‘))
n=int(input(‘n= ‘))
s=1
k=1
for i in range(1,n+1):
k*=2*i
s+=(pow(-1,i)*pow(x,(2*i)))/k
print(s)
print(cos(x))
#include
#include
using namespace std;
int main()
{
int A[20];
int i;
int copy = 0;
for (i = 0; i < 20; i++)
{
A[i] = rand() % 23 — 9;
cout << "" << A[i];
cout << " ";
}
for (i = 0; i < 20; i++)
{
if (A[i] < 0) {
copy = A[i];
A[i — 1] = copy;
return A[i];
cout << "" << A[i];
}
}
}
For24. Дано вещественное число X и целое число N (> 0). Найти значение выражения 1 – X2/(2!) + X4/(4!) – … + (–1)N·X2·N/((2·N)!) (N! = 1·2·…·N). Полученное число является приближенным значением функции cos в точке X.
Источник: https://learnpascal.ru/reshenie-zadach/for/for16-24.html