turbo pacal

[unbanned]

вот такая вот задача... чет нифига не получается, башка кипит... всё что есть на данный момент:

program z_5;

var
  e, i, d, m: integer;
  x, y, c, u: real;

begin
  y := 0;
  i := 1;
  d := 3;
  m := 1;
  readln(x, e);
  repeat
    if x > 0 then begin
      c := exp(ln(x) * i) / d;
      u := c;
      if m mod 2 = 0 then c := (-1) * c;
      u := c;
    end
    else begin
      c := exp(ln(abs(x)) * i) / d;
      u := c;
      if m mod 2 = 0 then c := (-1) * c;
    end;
    y := y + c;
    d := d * 5;
    i := i + 2;
    m := m + 1;
  until u >= e;
  writeln(y);
end.

плиз, хелп ми)))

[Mad_Cat]

var c,x,z,m,s:real;
begin
{.......}
c:=x;
z:=3;
m:=1;s:=0; 
while abs(c/z)>=e do
begin
s:=s+m*c/z;
m:=-m;c:=с*x*x; z:=z*5;
end;
{....}
end.

[unbanned]

спасибо))) оказалось всё проще

[Mad_Cat]

1 числитель x^1
2 числитель x^3
3 числитель x^5
закономерность езь? n числитель= (n-1) числитель*x*x;
если не видишь -выдели мое сообщение!

[unbanned]

закономерность то понятно... я не сразу понял как ты в степень возводил.

[unbanned]

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

var c,x,z,m,s:real;
begin
{.......}
c:=x;
z:=3;
m:=1;s:=0; 
while abs(c/z)>=e do
begin
s:=s+m*c/z;
m:=-m;c:=с*x*x; z:=z*5;
end;
{....}
end.

s:=s+m*abs(c/z); // если кому понадобиться вот тут модуль должен быть (т.к. х может быть отрицательным)