паскаль...2 задачи...

[Оксаночка:)]

цикл :
1.Даны числовой ряд и некоторое число ε. Найти сумму тех членов ряда, модуль которых больше или равен ε.
Общий член ряда имеет вид: см.картинку
вот моя наработка
КОД :
var i:integer;
sum,temp,eps:real;
begin
writeln('vvedit eps');
readln(eps);
sum:=0;
i:=1;
temp:=1/((3*i-2)*(3*i+1));
while abs(temp)>=eps do
begin
sum:=sum+temp;
inc(i);
temp:=1/((3*i-2)*(3*i+1));
end;
writeln('Summa',sum:8:5);
end.

[Sazary]

Оксаночка, заключайте код в тег CODE ("#" на панели в окне редактирования).
Такой вопрос: а что не так? Вроде, все как надо.

[Оксаночка:)]

да там сума всё время =0

[Sazary]

да там сума всё время =0

Предположу, что вы вводите eps слишком большое.
Оно должно быть меньше единицы (0.01 или 0.001).
Например, при eps = 0.001, сумма равна 0.32258

[Оксаночка:)]

ну ладно попробую сдать....

[Sazary]

ну ладно попробую сдать....

Не вижу оптимизма.
А какая должна быть по-вашему сумма, если все слагаемые меньше единицы (и каждое следующее все меньше и меньше)?

[Оксаночка:)]

ну ладно...спасибо тебе...ЛЮДИ ЕСЛИ ЧТОТО НЕПРАВИЛЬНО ТО ПИШЫТЕ !!!