По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности

@Supermannick · Регистрация: 03.11.2013

Помогите, пожалуйста, с решением. По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности (k=1,2,3..,n). Написал формулу попонятнее, как смог, это дробь
k+1
k-(k+2)^0,5

@Puporev · 30.03.2014, 09:37

В таком виде при к=2, деление на 0.

@Supermannick · 30.03.2014, 18:59 **[ТС]**

Puporev, вот так выглядит формула. при к=2, деление на 0? т.е. не решается?

@Puporev · 30.03.2014, 19:04

А сам посчитать не можешь? 2-корень из(2+2)=0

@Supermannick · 31.03.2014, 01:37 **[ТС]**

Puporev, посмотри, пожалуйста, почему ошибка тут?

Delphi

var
k,n: integer;
y,s: real;
 
begin
n:=StrToInt(Edit1.Text);
s:=0;
for k:=1 to n do
begin
y:=k/k-Sqrt(k+2);
s:=s+y
end;
Edit2.Text:=FtoatToStr(s);
end;
end.

@Cyborg Drone · 31.03.2014, 04:20

Надо FloatToStr, а не FtoatToStr

@Supermannick · 31.03.2014, 18:07 **[ТС]**

Cyborg Drone, ох. как я пропустил такое. Спасибо

Добавлено через 35 минут
Cyborg Drone, пожалуйста, посмотри формулу. 1) величина k здесь не имеет значения? 2) у меня получаются только отрицательные ответы. Всё ли верно написано?

@Cyborg Drone · 31.03.2014, 18:25

Ну, по заданию у Вас, вообще-то

Delphi

1	y:=(k+1)/(k-Sqrt(k+2));

Должно быть, опечатались. И ещё раз повторюсь: у Вас в программе не предусмотрена ситуация k=2. То есть, по сути, в программе алгоритмическая ошибка. Такая сумма по-любому бесконечность.

@Supermannick · 31.03.2014, 18:54 **[ТС]**

Cyborg Drone, а если формула будет как в скрине? то код так будет выглядеть?

Delphi

var
k,n: integer;
y,s: real;
 
begin
n:=StrToInt(Edit1.Text);
s:=0;
for k:=1 to n do
begin
y:=1/(2k-1)*(2k+1);
s:=s+y
end;
Edit2.Text:=FtoatToStr(s);
end;
end.

@Cyborg Drone · 31.03.2014, 19:04

У Вас неверно. Можно так:

Delphi

1	y:=1/((2k-1)(2*k+1));

но лучше так, при больших k целочисленного переполнения не случится:

Delphi

1	y:=1/(2k-1)/(2k+1);

Добавлено через 3 минуты
И код можно покороче, переменая Y не требуется:

Delphi

var k,n: integer;
    s: real;
begin
  n := StrToInt(Edit1.Text);
  s:=0;
  for k := 1 to n do s := s + 1 / (2 * k - 1) / (2 * k + 1);
  Edit2.Text:=FtoatToStr(s)
end;

@Supermannick · 31.03.2014, 19:31 **[ТС]**

Cyborg Drone, большое Вам спасибо

@Supermannick 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 69
		1
	По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности 29.03.2014, 23:40. Показов 3586. Ответов 10 Метки нет (Все метки) Помогите, пожалуйста, с решением. По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности (k=1,2,3..,n). Написал формулу попонятнее, как смог, это дробь k+1 k-(k+2)^0,5 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.03.2014, 09:37	2
	В таком виде при к=2, деление на 0. 0

@Supermannick 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 69
	30.03.2014, 18:59 [ТС]	3
	Puporev, вот так выглядит формула. при к=2, деление на 0? т.е. не решается? Изображения 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	30.03.2014, 19:04	4
	А сам посчитать не можешь? 2-корень из(2+2)=0 0

@Cyborg Drone Модератор 9531 / 4859 / 3229 Регистрация: 17.08.2012 Сообщений: 15,203
	31.03.2014, 04:20	6
	Надо FloatToStr, а не FtoatToStr 1

@Supermannick 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 69
	31.03.2014, 18:07 [ТС]	7
	Cyborg Drone, ох. как я пропустил такое. Спасибо Добавлено через 35 минут Cyborg Drone, пожалуйста, посмотри формулу. 1) величина k здесь не имеет значения? 2) у меня получаются только отрицательные ответы. Всё ли верно написано? 0

@Supermannick 0 / 0 / 0 Регистрация: 03.11.2013 Сообщений: 69
	31.03.2014, 19:31 [ТС]	11
	Cyborg Drone, большое Вам спасибо 0

Опции темы

По заданной формуле члена последовательности с номером k найти сумму первых n членов последовательности

Решение