0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 2

Найти сумму ряда

08.06.2015, 21:55. Показов 1015. Ответов 1
Метки нет (Все метки)

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

Visual Basic
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
Private Sub Command1_Click()
n = Text1.Text
 
 
a = Text2.Text
j = Text4.Text
s1 = 0
For i = 1 To n
s1 = s1 + n
Next
s2 = 1
For j = 1 To i
s2 = s2 * j
Next
s3 = 1
For s3 = 1 To i
s3 = s3 * i
Next
P = a * s1 * (s3 + s2 * 2 ^ (i - 2))
Print P
Text3.Text = P
Label3.Visible = True
End Sub
 
Private Sub Command2_Click()
End
End Sub

Препод сказал что решение не верно и слишком много команд "Next".

Заранее спасибо!

Добавлено через 17 минут
https://www.cyberforum.ru/cgi-bin/latex.cgi?q=\alpha *\sum_{i=1}^{n}\left(i!+\prod_{j=1}^{i }*{2}^{i-2}\right)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.06.2015, 21:55
Ответы с готовыми решениями:

Найти сумму ряда
помогите решить в Basice у = cos(x^1 )+ cos(x^2) + cos(x^3) +…+cos(x^30)

Найти сумму ряда
Добрый день! Прошу помочь с решением следующей задачи: Дано число X типа Single . Необходимо разработать фрагмент программы вычисления...

Найти сумму бесконечного ряда
Алгоритмизация и программирование задач циклической структуры. Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной...

1
 Аватар для Апострофф
9908 / 3928 / 742
Регистрация: 11.10.2011
Сообщений: 5,908
09.06.2015, 05:10
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
Function q(a As Double, n As Integer) As Double
Dim i As Integer, j As Integer, f As Double
f = 1
For i = 1 To n
  f = f * i
  q = q + a * (f + f * 2 ^ (i - 2))
Next i
End Function
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.06.2015, 05:10
Помогаю со студенческими работами здесь

Найти сумму числового ряда
Найти сумму числового ряда: if then els S = Здесь - знак суммы. Ответ должен быть равным 1. Не могу понять задачу,именно...

Найти сумму ряда с точностью
Разработать пользовательский интерфейс и составить программу в редакторе VB MS Excel.

Найти сумму бесконечного ряда
Знатоки бейсика, прошу вашей помощи.

Найти сумму ряда с заданной точностью
Здравствуйте, уважаемые посетители форума. Скажу прямо, я в программирование очень далек, и по этому не в состоянии написать даже самый...

Найти сумму ряда с заданной точностью!
1.Найти сумму ряда с заданной точностью Е=10^(-3) S=2/3+4/9+6/27+8/81..... Я не могу понять в чем ошибка::( Private Sub...


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

Или воспользуйтесь поиском по форуму:
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