作业帮 > 综合 > 作业

计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/17 14:47:40
计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal
计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal
var
s:real;
i,j,n:integer;
begin
s:=0;
j:=1;
for i:=1 to n do
begin
s:=s+j/i;
j:=j*-1;
end;
writeln(s:0:3);
end.