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

[Hegel]

Увы нужно сделать программу без модуля math....

[maladoy]

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

Если 0<x<1

const eps=0.000001;
var n:integer;
    x,sum,temp:real;
function power1(a:real;b:integer):real;
var res:real;
    i:integer;
begin
 res:=1;
 for i:=1 to b do
  res:=res*a;
  power:=res;
end;
    
begin
readln(x);
sum:=1;n:=2;
repeat
temp:=n*power1(x,n-1);
sum:=sum+temp;
inc(n);
until temp<=eps;
writeln(sum);
end.

ОНА ЖЕ ПОСЛЕ ПЕРВОГО ПРОХОДА ЗАКОНЧИТ РАБОТУ

[Hegel]

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

Если 0<x<1

const eps=0.000001;
var n:integer;
    x,sum,temp:real;
function power1(a:real;b:integer):real;
var res:real;
    i:integer;
begin
 res:=1;
 for i:=1 to b do
  res:=res*a;
  power1:=res;
end;
    
begin
readln(x);
sum:=1;n:=2;
repeat
temp:=n*power1(x,n-1);
sum:=sum+temp;
inc(n);
until temp<=eps;
writeln(sum);
readln;
end.

Простите,насколько я понимаю х,n вводяться, в начале.
И х можнет быть любым числом,как передлать тогда условие?

[alex_fcsm]

Вводится x, a n не вводится(ряд же бесконечный)
Если х будет больше 1 то каждое следующее слагаемое будет стремится к бесконечности (а не как уж к 0,0001).
Ваша формула суммы предполагает что 0<x<1

[maladoy]

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

Простите,насколько я понимаю х,n вводяться, в начале.
И х можнет быть любым числом,как передлать тогда условие?

N НЕ ВВОДИТСЯ....

[Hegel]

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

Вводится x, a n не вводится(ряд же бесконечный)
Если х будет больше 1 то каждое следующее слагаемое будет стремится к бесконечности (а не как уж к 0,0001).
Ваша формула суммы предполагает что 0<x<1

Я так понимаю,что 0,0001 они имеют ввиду округление до 4 знаков после запятой.

[Hegel]

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

N НЕ ВВОДИТСЯ....

Спасибо, да в этом случае да.
Просто мне нужно еще сделать этуже лабароторную только через приложение,и описать ее как функцию... при том что будет указываться и n и х ....

[alex_fcsm]

Смысл ряда и есть посчитать сумму через слагаемые

[maladoy]

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

Я так понимаю,что 0,0001 они имеют ввиду округление до 4 знаков после запятой.

ТОГДА ЦИКЛ БУДЕТ БЕСКОНЕЧНЫМ!!!!!>>>>>>

[Hegel]

Все,с этим понял и разобрался.
Можно теперь вопрос как запихнуть это в программу и описать как функцию,допустим ввод через едит