Вычисление суммы всех членов последовательности, не меньших заданного числа e

@Ксюшенька007 · Регистрация: 14.09.2010

Author24 — интернет-сервис помощи студентам

Помогите решить с помощью процедуры или функции и с циклом.))

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

член последовательности k/(k+1)^2+3

@Puporev · 01.11.2010, 10:09

Pascal

uses crt;
function Summa(e:real):real;
var k:integer;
    s,t:real;
begin
k:=0;
s:=0;
t:=1/7;
while t>e do
 begin
  k:=k+1;
  t:=k/(sqr(k+1)+3);
  s:=s+t;
 end;
Summa:=s;
end;
var eps:real;
begin
clrscr;
repeat
write('Точность >0 eps=');
readln(eps);
until eps>0;
if eps>=1/7 then write('Сумма=',1/7:0:5)//если точность выше первого члена ряда
else write('Сумма=',Summa(eps):0:5);
readln
end.

@Ксюшенька007 · 01.11.2010, 10:27 **[ТС]**

Чё то я не пойму как эта задача работает(((

@taras atavin · 01.11.2010, 10:31

В цикле оно работает. Постепенно увеличивая k, накапливаем искомую сумму и никаких гвоздёв.

@Puporev · 01.11.2010, 10:38

Pascal

k:=0;//обнулим счетчик цикла
s:=0;//начальная сумма
t:=1/7;//первый член последовательности(1/1^2+3)
while t>e do//пока очередной член больше точности
 begin
  k:=k+1;//наращиваем счетчик
  t:=k/(sqr(k+1)+3);//считаем по формуле очередной член
  s:=s+t;//суммируем
 end;

@Ксюшенька007 · 01.11.2010, 10:39 **[ТС]**

он выдает в сумме слишком большое число.

@taras atavin · 01.11.2010, 10:41

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

первый член последовательности(1/1^2+3)

Комент глючный, код нормальный. Не 1/1^2+3, а 1/(2^2+3).

@Ксюшенька007 · 01.11.2010, 10:44 **[ТС]**

в сумме должно получаться 0 целых с чем то. а тут 3 целых.

@Puporev · 01.11.2010, 10:54

Ксюшенька007, Не нужно гадать, или считать в уме, для этого есть Exel.
Вот только для первых 30.

@Ксюшенька007 · 01.11.2010, 11:02 **[ТС]**

а еps для чего вообще нужно вводить. я немного не понимаю само задание.

@Puporev · 01.11.2010, 11:12

[quote=Ксюшенька007;1074875]я немного не понимаю само задание.[/quot]
С этого и нужно было начинать, а не тянуть на программу.

Добавлено через 2 минуты

Сообщение от Ксюшенька007

всех членов последовательности, не меньших заданного числа e.

Это что написано? Это значит что у нас бесконечно убывающая убывающая последовательность, и нам нужно вычислить сумму первых членов, которые больше заданного числа, например eps=0.0001 , считаем все члены пока они больше.

@Ксюшенька007 · 01.11.2010, 13:16 **[ТС]**

мы считаем их пока они больше чего????

@Puporev · 01.11.2010, 13:20

Написано же

Сообщение от Ксюшенька007

заданного числа e.

Да и я вам объяснил.

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

которые больше заданного числа, например eps=0.0001 , считаем все члены пока они больше.

e и eps это одно и тоже, горе Вы наше луковое....

@Ксюшенька007 · 01.11.2010, 13:26 **[ТС]**

ой ну вроде поняла)))).просто мне учитель что то другое вроде говорил. поэтому я запуталась)

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
		1
	Вычисление суммы всех членов последовательности, не меньших заданного числа e 01.11.2010, 09:54. Показов 5749. Ответов 13 Метки нет (Все метки) Помогите решить с помощью процедуры или функции и с циклом.)) программу вычисления суммы всех членов последовательности, не меньших заданного числа e. член последовательности k/(k+1)^2+3 0

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	01.11.2010, 10:27 [ТС]	3
	Чё то я не пойму как эта задача работает((( 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.11.2010, 10:31	4
	В цикле оно работает. Постепенно увеличивая k, накапливаем искомую сумму и никаких гвоздёв. 0

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	01.11.2010, 10:39 [ТС]	6
	он выдает в сумме слишком большое число. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.11.2010, 10:41	7
	Сообщение от Puporev первый член последовательности(1/1^2+3) Комент глючный, код нормальный. Не 1/1^2+3, а 1/(2^2+3). 0

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	01.11.2010, 10:44 [ТС]	8
	в сумме должно получаться 0 целых с чем то. а тут 3 целых. 0

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	01.11.2010, 11:02 [ТС]	10
	а еps для чего вообще нужно вводить. я немного не понимаю само задание. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.11.2010, 11:12	11
	[quote=Ксюшенька007;1074875]я немного не понимаю само задание.[/quot] С этого и нужно было начинать, а не тянуть на программу. Добавлено через 2 минуты Сообщение от Ксюшенька007 всех членов последовательности, не меньших заданного числа e. Это что написано? Это значит что у нас бесконечно убывающая убывающая последовательность, и нам нужно вычислить сумму первых членов, которые больше заданного числа, например eps=0.0001 , считаем все члены пока они больше. 1

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	01.11.2010, 13:16 [ТС]	12
	мы считаем их пока они больше чего???? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.11.2010, 13:20	13
	Написано же Сообщение от Ксюшенька007 заданного числа e. Да и я вам объяснил. Сообщение от Puporev которые больше заданного числа, например eps=0.0001 , считаем все члены пока они больше. e и eps это одно и тоже, горе Вы наше луковое.... 1

	01.11.2010, 13:26

Опции темы

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	01.11.2010, 13:26 [ТС]	14
	ой ну вроде поняла)))).просто мне учитель что то другое вроде говорил. поэтому я запуталась) 0

Вычисление суммы всех членов последовательности, не меньших заданного числа e

Решение