funkcja Suma w delphi

Witam mam problem muszę rozwiązać takie zadanko w delphi tzn napisac program liczący S(n)=1-1/sqr(2)+1/sqr(3)-1/sqr(4)+...+((-1)do n+1potegi)/sqr(2)
argument jest typu longint a wynik typu double

Pokaż co już napisałeś...

Var n, y:longint;
c:double;
power:real ;
begin
wynik.Caption:='';
n:=StrToInt(ed_n.text);

N:=n;

Repeat
C:=c+ Power(-1,n+1)/sqr(n);
Dec(n);
Until n<1;
Wynik.caption:= FloatToStr(c);
End;

 Var   n, y:longint;
      c:double;
      power:real ;
begin
        wynik.Caption:='';
n:=StrToInt(ed_n.text);



N:=n;



Repeat
C:=c+ Power(-1,n+1)/sqr(n);
Dec(n);
Until n<1;
Wynik.caption:= FloatToStr(c);
End;

nie wiem co jest ale to nie działa nie chce się to włączyć,
i nie jestem pewien czy dobrej petli do tego uzyłem

1-1/2do2+1/3do2-1/4do2+...+(-1)do n+1/n do2 tak to ma wyglądac nie wiem czemu pierwiastek gdzies tam widzisz

kwadrat argumentu? a sqrt() to pierwiastek prawda?

ok, masz rację... jeśli chodzi o kwadrat - za szybko czytam - mój ewidentny błąd :(