Вычисление бесконечной суммы в delphi

[maladoy]

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

Да,но ведь x может быть больше 1,и тогда ряд также будет существовать,как высчитать его значение?

--------------------------------------------------------------------------------

function power (Z: real; k : integer) : real;
begin
power2:=exp(ln(Z)*k)
end;

READLN(X);
READLN(N);
S:=1;


FOR I:=1 TO N DO
BEGIN

EPS:=(I+1)* POWER2(X,I);
S:=S+EPS;

END;

[Hegel]

Одна функция power можно из остального сделать другую функцию?

[Hegel]

Простите что задаю много глупых вопросов...

const eps=0.0001;
var n:integer;
    x,sum,temp:real;
function power (Z: real; k : integer) : real;
begin
power2:=exp(ln(Z)*k)
end;
READLN(X);
READLN(N);
S:=1;
FOR I:=1 TO N DO
BEGIN

EPS:=(I+1)* POWER2(X,I);
S:=S+EPS;
END;

begin
readln(x);
sum:=1;n:=2;
repeat
temp:=n*power1(x,n-1);
sum:=sum+temp;
inc(n);
until temp<=eps;
writeln('Vash rezultat=  ', FloatToStr(sum));
readln;
end.

Так сделать?

[maladoy]

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

Одна функция power можно из остального сделать другую функцию?

ТОКА ЗАЧЕМ????

[Hegel]

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

ТОКА ЗАЧЕМ????

Препод любит описывать все через функции....
Чтобы в результате было ,при нажати на кнопку использовние функций и все..

[maladoy]

PROGRAM SUMMA;
VAR
X,EPS,S:REAL;
I,n:INTEGER;

function power2 (Z: real; k : integer) : real;
begin
power2:=exp(ln(Z)*k);
end;
BEGIN
WRITELN('VVEDI X');
READLN(X);

IF (X>0) AND (X<1) THEN BEGIN
S:=1;
I:=1;
EPS:=0,001;
WHILE EPS>0,0001DO
BEGIN
EPS:=(I+1)* POWER2(X,I);
S:=S+EPS;
I:=I+1;
END;
END
ELSE BEGIN
WRITELN('VVEDI N);
READLN(N);

FOR I:=1 TO N DO

S:=S+(I+1)* POWER2(X,I);
END;
WRITELN('SUMMA=',S);
READLN;
END.

[Hegel]

power2=power исправил,что делать с
WHILE EPS>0,0001 DO

[Hegel]

power2=power исправил,что делать с
WHILE EPS>0,0001 DO

[maladoy]

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

power2=power исправил,что делать с
WHILE EPS>0,0001 DO

ПРОВЕРЯЙ!!!!

[Hegel]

Cпасибо за помощь,сейчас потестим.