Вывести значение слагаемого, при котором сумма заданного ряда превысит 1000

@недопрограммис · Регистрация: 05.10.2016

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

вывести значение слагаемого, при котором сумма ряда 2/3+4/5+6/7...превысит 1000. Знаю, что числитель возводим в степень и знаменатель увеличиваем на x+2, но как все это записать-не знаю.

@Nanotentacle · 29.10.2016, 15:52

В степень? На мой взгляд, тут вот так:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{2n}/{(2n+1)}$

А решается все

Delphi

..
var summ:real;
n:integer;
begin
n := 1;
summ := 0;
while summ < 1000 do
begin
summ := summ + (2*n)/(2*n+1);
inc(n);
end;
dec(n);
//сумма находится в summ, номер члена ряда - n.
end;

@Jin X · 29.10.2016, 19:32

Не понимаю тоже причём тут степень...
Nanotentacle, правильнее будет while summ <= 1000 (хотя ровно 1000 вряд ли будет).
Чуть-чуть модифицирую код, т.к. результат всё же должен быть в виде слагаемого:

Delphi

{$APPTYPE CONSOLE}
uses SysUtils;
var
  add: real;
  sum: real = 0;
  n: integer = 0;
begin
  repeat
    inc(n);
    add := (2*n)/(2*n+1);
    sum := sum + add;
  until sum > 1000;
  writeln('Слагаемое = ', FloatToStr(add));
  writeln('Номер слагаемого = ', n);
  writeln('Сумма = ', FloatToStr(sum))
end.

@недопрограммис 0 / 0 / 0 Регистрация: 05.10.2016 Сообщений: 40
		1
	Вывести значение слагаемого, при котором сумма заданного ряда превысит 1000 29.10.2016, 15:07. Показов 1503. Ответов 2 Метки нет (Все метки) вывести значение слагаемого, при котором сумма ряда 2/3+4/5+6/7...превысит 1000. Знаю, что числитель возводим в степень и знаменатель увеличиваем на x+2, но как все это записать-не знаю. 0

	29.10.2016, 19:32

Вывести значение слагаемого, при котором сумма заданного ряда превысит 1000

Решение