[Pascal][简单题]多项式求和

问题 : 多项式求和


题目描述

多项式的描述如下:

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.

你可能感兴趣的:(Pascal,刷题记录)