这个编程的答案什么??

来源：百度知道 编辑：UC知道 时间：2024/06/17 17:03:52
var i:integer;
s:real
Begin
i:=1;s:=0
for i:=1 to 10 do
if (i mod 2)>0 then s:=s+1/i
else s:=s-1/i
writeln(s:9:4)

为 0.6456

完整的程序为;
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

{ TODO -oUser -cConsole Main : Insert code here }
var
i:integer;
s:real;
Begin
i:=1;s:=0;
for i:=1 to 10 do
if (i mod 2)>0 then s:=s+1/i
else s:=s-1/i;
writeln(s:9:4);
readln(s);

end.

i=1
s=s+1/1=1
i=2
s=s-1/2=1/2
i=3
s=s+1/3=5/6
i=4
s=s-1/4=........

就这样做，知道吗，mod的作用是求余