запрограмувати обчислення суми ряду: S=1-x^(3)+x^(5)-x^(7)+...+x^(2*n+1). значення n та x...

Question

запрограмувати обчислення суми ряду: S=1-x^(3)+x^(5)-x^(7)+...+x^(2*n+1). значення n та x вводяться з консоля. В паскаль

Answer 1

program k;

var x:real;

n:integer

 

function f(y:real,j:integer):real;

begin

f:=1

for k:=1 to j do begin

f:=f*y;

end;

end;

 

begin

readln(x,n);

s:=1;

for i=1 to n do begin

s:=s+f(-1,i)*f(x,2*i+1)

end;

writeln(s);

end.