Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 18.10.2014
Сообщений: 7

Вычислить сумму 10 членов ряда

18.10.2014, 16:30. Показов 1631. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Никак не могу написать программу на Visual Basic, по причине того, что вообще ничего не понимаю, а задание скоро надо сдавать! Помогите пожалуйста!

Название: Безымянный1.png
Просмотров: 64

Размер: 2.5 Кб

вот что только смог написать:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
X = 1.99
S = " "
F = 1
For i = 2 To 10 Step 1
F = F * i
Y = (X ^ i) / F
S = S + Str(Y) + vbNewLine
Next i
Load Form2
Form2.Show
End Sub
программа должна состоять из двух форм. Как пример:
Внешний вид первой экранной формы:


Внешний вид второй экранной формы:
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.10.2014, 16:30
Ответы с готовыми решениями:

Вычислить сумму и количество членов ряда
Помогите написать программу на VB Вычислить с точностью до ε = 1*10^-4

Вычислить сумму S первых n членов функционального ряда
Здравствуйте, очень прошу помочь с решением задач в бейсике. Так получилось, что я перевелся в другой университет, а там проходят бейсик,...

Найти сумму 12 членов заданного ряда
Найти сумму 12 членов ряда S=R+2R+4R+... для R=0.25

1
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38196 / 21129 / 4309
Регистрация: 12.02.2012
Сообщений: 34,737
Записей в блоге: 14
18.10.2014, 21:31
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Sum(x As Double, n As Integer) As Double
    a# = x
    s# = 0
    For i% = 1 To n
        s# = s# + a#
        a# = a# * x / i%
    Next i%
    Sum# = s#
End Function
 
Sub Test()
 
    Debug.Print Sum(1, 10)
    Debug.Print Sum(1.99, 10)
 
End Sub
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.10.2014, 21:31
Помогаю со студенческими работами здесь

Вычислить произведение членов ряда
Помогите пжлст написать прогу в VB: Вычислить произведение членов ряда при а=10 х=100: Р=х/(а+2)*х/(а+4)*х/(а+6)*...х/(а+100)

Найти сумму членов ряда с заданной точностью
Ув. гуру! Помогите пожалуйста! Задание: Найти Сумму членов ряда с точностью до 1E-4 Не правильный ответ, написал программу: ...

Вычислить значение суммы членов бесконечного ряда
Вычислите значение суммы членов бесконечного ряда сhx=x+((x^3)/3!)+((x^5)/5!)...+(x^(2*n+1))/(2*n+1)!+... с точностью до члена ряда,...

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

Итерационные вычислительные процессы. Вычислить произведение членов ряда
Вычислить произведение членов ряда при x=1.82+\cos n P=x/2!*x/4!*x/6!*....


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru