[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

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

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

[Drozh]

Напиши сюда ряд, посмоторим

[boxep]

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

Напиши сюда ряд, посмоторим

так вот он, получается сначала прибавляем 2, потом отнимаем 2, знаменатель дроби

[Drozh]

По коду у тебя выходит:
1 + 1 + 1/3 + 1/5 ...

[boxep]

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

По коду у тебя выходит:
1 + 1 + 1/3 + 1/5 ...

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

[Drozh]

т.е. 1 - 1 + 1/3 - 1/5 ....

Код:

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

begin
e:=StrToFloat(Edit1.Text);
sum:=0;
dr:=1;
n:=-1;
i := 1

repeat
sum:=sum+dr;
inc(n,2);
i := -i
dr:=i/n;
until dr<e;

showmessage(FloatToStr(sum));
end;

[boxep]

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

т.е. 1 - 1 + 1/3 - 1/5 ....

Код:

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

begin
e:=StrToFloat(Edit1.Text);
sum:=0;
dr:=1;
n:=-1;
i := 1

repeat
sum:=sum+dr;
inc(n,2);
i := -i
dr:=i/n;
until dr<e;

showmessage(FloatToStr(sum));
end;

Ой спасибо большое, а как потом сравнить с ?

[boxep]

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

Ой спасибо большое, а как потом сравнить с ?

p:=3.14
if p/4<sum then
showmessage(' p меньше')
else
showmessage('P больше')

так должно выглядеть сравнение?