Цикл с заданным числом повторений

[Extrem_um]

Для заданного Х, числа слагаемых или n вычислить следующее:

S=2*(x+X^3\3+x^5\5+x^7\7+...+x^2n+1 \(2n+1)), x<1


Помогите пожалуйста, то я воще ничего не понимаю в програмировании((

[cheldonec]

procedure aaaaa;
var
i,n:integer;
a,s,x:real;
begin

if n=0 then
begin
s:=2*x;
вывод результата
end;
if n=1 then
begin
s:=2*(x+(exp((3)*ln(x))/3));
вывод резудьтата
end;
if n > 1 then
begin
s:=x;
for i:= 1 to n-1 do
begin
s:=s + (exp((2*i+1)*ln(x))/(2*i+1));
end;
s:=2*s;
вывод результата
end;

пояснения:
a^b = exp(ln(a^b)) = exp(b*ln(a))
причём по условию x<0
это на delphi (паскаль)
можно и по другому, просто первое в голову пришло

[puporev]

Приведенный выше код содержит массу ошибок и неверных суждений.
Нам нужно найти сумму ряда, выраженного формулой
S=2*(x+X^3/3+x^5/5+x^7/7+...+x^(2n+1)/(2n+1)), при x<1.
Мы должны рассмотреть два варианта, когда х>0 и x<0, поскольку логарифм отрицательных чисел считается не так, как положительных.
Кроме того n не может быть рано 0, т.к. это количество слагаемых, если их нет , то и S=0; Зачем отдельно считать при n=1? Почему i:=1 to n-1, и так далее.
Привожу нормальный пртестированный код.

uses crt;
var x,x1,S,s1:real;
    n,i:integer;
begin
clrscr;
write('Vvedite x<1 x=');
readln(x);
write('Vvedite n=');
readln(n);
if x>0 then
  begin
  s1:=0;
  for i:=1 to n do
  s1:=s1+exp((2*i+1)*ln(x))/(2*i+1);
  end
else if x<0 then
   begin
  s1:=0;x1:=abs(x);
  for i:=1 to n do
  s1:=s1-exp((2*i+1)*ln(x1))/(2*i+1);
  end;
S:=2*s1;
Writeln('S=',S:6:4);
readln
end.

[Extrem_um]

спасибо большое, завтра попробую сдать))