1+1/2+1/3+......+1/n+1=?

你是求个函数吗？什么语言？
给你个DELPHI的吧，现在刚好在用。
procedure getResult(a: Integer)
var
i: Integer;
j : Double;
begin
if a = 0 then exit;
if a = 1 then Exit;
j := 1;
for i := 1 to a do
begin
j := j + 1/i
end;
j := J + 1;
ShowMessage('结果是：' + IntToStr(j));
end;

用哪种语言编程啊？？？你也太不会问问题

大哥你不会是要求极限吧，这可是个发散数列，极限是无穷大啊！（开玩笑）
C语言：
#include <stdio.h>
void main()
{
int i,n;
float sum=0.0;
printf("Enter n=");
scanf("%d",&n);
for(i=1;i<=n;i++)
sum+=(float)1/i;
printf("sum=%f",sum);
}

我给个pascal 的程序吧，
program ttrd;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s);
end.
{小数据可以这样求，精度要求比较大就可以用extended}