Турбо паскаль:программа находящая сумму ряда(необходимо найти ошибку в коде)

[Galchonok]

Задание 2. Составить программу для вычисления суммы ряда:

ряд от k=0 до n (-1 в степени k умноженное на (k+1) и все это разделить на k)

код:1)с оператором for
program summafor;
uses crt;
var n,x,i:integer; s:real;
begin
write ('Введите кол-во членов ряда ');
readln (n);
write ('Введите значение x ');
readln (x);
s:=0;
for k:=0 to n do
s:= s+ (exp(k*ln(-1))*(k+1))/k;
write ('s=',s:2:5);
readln
end.

2)с оператором repeat
program summarepeat;
uses crt;
var x,n,i:integer; s:real;
begin
write ('Введите кол-во членов ряда ');
readln (n);
write ('Введите значение x ');
readln (x);
s:=0; k:=0;
repeat
s:= s+ (exp(k*ln(-1))*(k+1))/k;
k:=0+1;
until k>n;
write ('s=',s:2:5);
readln
end.


3)с оператором while
program summawhile;
uses crt;
var n,x,i:integer; s:real;
begin
write ('Введите кол-во членов ряда ');
readln (n);
write (' Введите значение x ');
readln (x);
s:=0; k:=0;
while k<=n do
begin
s:= s+ (exp(k*ln(-1))*(k+1))/k;
k:=k+1;
writeln ('s=',s:2:5);
end;
readln
end.

[ROMA2PVT]

ln(-1)
http://forum.pascal.net.ru/index.php...=0&#entry38227

[Galchonok]

т.е. я логорифм должна на вот это поменять: minusOnePower := (1 - 2*Byte(Odd(n)));????

[Galchonok]

а вообще у меня правильно коды составлены????

[Serebro]

Сообщение от Galchonok

т.е. я логорифм должна на вот это поменять: minusOnePower := (1 - 2*Byte(Odd(n)));????

Не логарифм, а (-1)^k на (1 - 2*Byte(Odd(k))).

[Galchonok]

Ага, понятно! спасибо) а в остальном все правильно?