高手帮我解道题目(在线等谢谢)

您所在位置：社区首页 — PASCAL语言讨论区 — 高手帮我解道题目(在线等谢谢)

主题：高手帮我解道题目(在线等谢谢)

77705781 [专家分：0] 发布于 2008-09-15 20:24:00

求绝对值:|1/2-1|+|1/3-1/2|+|1/4-1/3|+|1/5-1/4|......|1/2007-1/2006|

沙发

ZXOO [专家分：30] 发布于 2008-09-18 14:06:00

program 1;
var
i,s,t:integer;
begin
s:=0;t:=1;
for i:=2 to 2007 do
begin
s:=s+abs((i-1)/i-t);
t:=(i-1)/i;
end;
writeln(s);
end.

板凳

angwuy [专家分：2280] 发布于 2008-09-20 07:40:00

注意数据，是实型，不是整型

begin
writeln(2006/2007:0:3);
end.

3 楼

pupu [专家分：50] 发布于 2008-10-14 20:03:00

program mbb;
var
  i:integer;
  s:real;
begin
  s:=0;
  for i:=2 to 2008 do
   s:=s+abs(1/i-1/(i-1));
  writeln(s);
end.

您尚未登录，请登录后再回复。点此登录或注册