[boxep]

Вводится точность e. Вычислить сумму ряда Вычисления продолжать до тех пор, пока очередное слагаемое не станет меньше e. Вывести рядом и сравнить с полученной суммой
Помогите составить код....

[Drozh]

Вот пример

Код:

sum := 0;

repeat
 slag := ; // вычисляешь следующее слагаемое
 sum := sum + slag; // общая сумма
until slag <= e;

[boxep]

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

Вот пример

Код:

sum := 0;

repeat
 slag := ; // вычисляешь следующее слагаемое
 sum := sum + slag; // общая сумма
until slag <= e;

чему равен slag? и как потом сравнуть?

[boxep]

Кажется сделал

var n:integer; e,dr,sum:extended;

begin
e:=StrToFloat(Edit1.Text);
sum:=0;
dr:=1;
n:=-1;
repeat
sum:=sum+dr;
inc(n,2);
dr:=1/n;
until dr<e;
showmessage(FloatToStr(sum));
end;

Почему то значение всегда равно 1, что не так?

[Drozh]

А что за ряд, то?

[boxep]

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

А что за ряд, то?

Ну вот такой задали