问题 : 多项式求和
题目描述
多项式的描述如下:
1 - 1/2 + 1/3 - 1/4 + 1/5 - 1/6 + ...
现在请你求出该多项式的前n项的和。输入
输入数据包含一个正整数,对于每一个整数(不妨设为n,n<=1000),求该多项式的前n项的和。
输出
对于每个测试实例n,要求输出多项式前n项的和。每个测试实例的输出占一行,结果保留2位小数。
样例输入
2
样例输出
0.50
简单的模拟,不要弄混加减和变量类型
var n,i:longint;
sum:real;
begin
readln(n);
for i:=1 to n do
if i mod 2=1 then
sum:=sum+1/i
else
sum:=sum-1/i;
writeln(sum:0:2);
end.
sum:real;
begin
readln(n);
for i:=1 to n do
if i mod 2=1 then
sum:=sum+1/i
else
sum:=sum-1/i;
writeln(sum:0:2);
end.