Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 05.10.2016
Сообщений: 40

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

29.10.2016, 15:07. Показов 1613. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
вывести значение слагаемого, при котором сумма ряда 2/3+4/5+6/7...превысит 1000. Знаю, что числитель возводим в степень и знаменатель увеличиваем на x+2, но как все это записать-не знаю.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.10.2016, 15:07
Ответы с готовыми решениями:

Вывести значение слагаемого, при котором сумма ряда превысит 1000
Вывести значение слагаемого, при котором сумма ряда 2/3+4/5+6/7.. превысит 1000. program wtf; var k, Sum: real; i: integer; ...

Вывести номер слагаемого, при котором сумма ряда превысит 1000
Помощь срочно Дано вещественное число t(0<t<1). Вывести номер слагаемого, при котором сумма ряда (2+t)/t + (3+t)/2t + (4+t)/3t + ......

Вывести слагаемое при котором сумма ряда превышает 1000
Буду благодарен .

2
882 / 404 / 173
Регистрация: 20.10.2016
Сообщений: 1,828
29.10.2016, 15:52
В степень? На мой взгляд, тут вот так:
https://www.cyberforum.ru/cgi-bin/latex.cgi?{2n}/{(2n+1)}

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
..
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;
1
Asm/C++/Delphi/Py/PHP/VBA
 Аватар для Jin X
6812 / 2052 / 238
Регистрация: 14.12.2014
Сообщений: 4,311
Записей в блоге: 12
29.10.2016, 19:32
Лучший ответ Сообщение было отмечено недопрограммис как решение

Решение

Не понимаю тоже причём тут степень...
Nanotentacle, правильнее будет while summ <= 1000 (хотя ровно 1000 вряд ли будет).
Чуть-чуть модифицирую код, т.к. результат всё же должен быть в виде слагаемого:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{$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.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.10.2016, 19:32
Помогаю со студенческими работами здесь

Определить число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K
Определить число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K, введенную с клавиатуры

Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы.
помоги сделать цыклы пожалуйста)) 6)Сколько чисел последовательности 2, 4, 6, 8, ... нужно взять, чтобы их сумма превысила 1000? Вывести...

Определить последовательность N при котором сумма не превысит величину K
Написать программу которая определяет число N при котором сумма не превысит величину K введённую с клавиатуры. То есть S&gt;K где...

Цикл: Вводите числа до тех пор пока произведение не превысит число 1000 или сумма чисел не превысит число 152
Прошу помочь, мне нужно в школу принести задачи, а в паскале я не очень разбираюсь 1. Вводите числа до тех пор пока произведение не...

Написать программу которая определяет число N при котором сумма не превысит величину K
Написать программу которая определяет число N при котором сумма не превысит величину K введённую с клавиатуры. То есть S&gt;K где...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru