For28. Дано вещественное число $$X$$ ($$|X| < 1$$) и целое число $$N$$ ($$> 0$$). Найти значение выражения $$1 + X/2 — 1*X^2/(2*4) + 1*3*X^3/(2*4*6) -… + (-1)^{N-1}*1*3*…*(2*N-3)*X^N/(2*4*…*(2*N))$$. Полученное число является приближенным значением функции $$1 + X$$ .
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program For28; var X,Rez,pow,TempRez1,TempRez2:Real; N, i :Integer; begin Write('Введите X: '); Readln(X); Write('Введите N: '); Readln(N); Rez:=1; pow:=1; TempRez1:=1; TempRez2:=1; For i:=1 to N do begin TempRez1:=TempRez1*(2*i-3); TempRez2:=TempRez2*(2*i); pow:=pow*X*(-1); Rez:=Rez+TempRez1*Pow/temprez2; end; Writeln(Rez); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: