For24. Дано вещественное число $$X$$ и целое число $$N$$ ($$> 0$$). Найти значение выражения $$1 — X^2/(2!) + X^4/(4!) -…+ (-1)^N*X^{2*N}/((2*N)!) $$ $$(N! = 1*2*…*N)$$. Полученное число является приближенным значением функции cos в точке $$X$$.
Решение:
|
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. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: