.请使用递归算法求下列序列的前n项之和.1+1/2-1/3+1/4-1/5.输入n序列的前n项和（精确到小数点后六位）

Question

.请使用递归算法求下列序列的前n项之和.1 + 1/2 - 1/3 + 1/4 -1/5 .
输入n
序列的前n项和（精确到小数点后六位）

Answer 1

var n:integer;
function f(n:integer):real;
begin
if n=2 then begin f:=1/2;exit; end;
if n mod 2=0 then
f:=f(n-1)+1/n
else
f:=f(n-1)-1/n;
end;
begin
readln(n);
writeln(f(n)+1);
end.