Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 16.12.2011
Сообщений: 4

Найти член последовательности удовлетворяющий условию и его номер, найти сумму

28.11.2012, 19:42. Показов 1018. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Прошу помощи в решении задачи. Вроде легкая, но совсем не пойму где допускаю ошибку.

Для числовой последовательности https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n} = https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n+1} - https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt{n} , где n=1,2,… Найти первый член (и его номер M) который удовлетворяет условию https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{n}< E,
где E – заданное число, например, E=0,001 и вычислить сумму (с первого члена до найденного).

Формулу для нахождения суммы я взяла такую: https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{({a}_{1} + {a}_{n})* n}{2}

А ошибка в том, что ответ не меняется в зависимости от значения Е, всегда выдает сумму = 0 и номер = 1.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
CLS
REM vvod
PRINT "Введите E";
INPUT "...", E
 
M = 0
n = 0
 
DO
 
n = n + 1
M = M + 1
F = sqrt(n + 1) - sqrt(n)
 
LOOP UNTIL F < E
 
IF n = 1 THEN
S = sqrt(2) - sqrt(1)
PRINT "Сумма=" ; S
PRINT "Номер=" ;  M
 
ELSE
S = (((sqrt(2)-sqrt(1)) + F) * n) /2
PRINT "Сумма=" ; S
PRINT "Номер=" ;  M
 
END IF
END
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.11.2012, 19:42
Ответы с готовыми решениями:

Найти член последовательности, удовлетворяющий условию
последовательность {ri}∞i=1 образованны по правилу ri=1/i. Дано вещественное число A:0&lt;A&lt;0.5. Найти такое ri , чтобы ri-1 &gt; A ≥ ri

Найти член последовательности удовлетворяющий заданному условию
Последовательность вещественных чисел образуется следующим образом: а0 = 1/1, а1=2/1,…, аi=(Числитель аi-1 + Числитель аi-2) /...

Найти член последовательности удовлетворяющий указанному условию
Сделать код с условием: Есть бесконечная дробь = (1)*(3/2)*(5/3)*(8/5)*(12/8)...(*ВАЖНО* Числитель будет знаменателем следующей...

1
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
07.06.2016, 15:32
Программа проверена

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
INPUT "E = "; e
 
DO
   n = n + 1
   a = SQR(n + 1) - SQR(n)
LOOP UNTIL a < e
 
PRINT "An ="; a
PRINT "N ="; n
PRINT "SUMMA ="; SQR(n + 1) - 1
END
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.06.2016, 15:32
Помогаю со студенческими работами здесь

Найти член последовательности удовлетворяющий заданному условию
Последовательность вещественных чисел образуется следующим образом: а0 = 1/1, а1=2/1,…, аi=(Числитель аi-1 + Числитель аi-2) /...

Найти первый член последовательности, удовлетворяющий заданному условию
Помогите решить пожалуйста (...буду очень благодарен Даны действительные числа a, b, ε (a &gt; b &gt; 0, ε &gt; 0)....

Найти первый член последовательности, удовлетворяющий заданному условию
Дана последовательность образованная дробями: 1/1, 2/1, 3/2, 5/3, ..., в которой числитель(знаменатель) следующего члена последовательности...

Найти наименьший номер члена последовательности удовлетворяющий условию
Найти наименьший номер члена последовательности П.5.18.Правил Запрещено размещать задания и решения в виде картинок и других файлов с...

Найти член последовательности, удовлетворяющий правилу
Добрый время суток, помогите исправить программу. Условие задачи ниже. #include &quot;stdafx.h&quot; #include &quot;stdio.h&quot; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru