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

Нахождение произведение n членов ряда

08.02.2014, 11:47. Показов 1296. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано натуральное число n. Вычислить произведение n членов ряда:(2/3)*
(4/5)*(6/7)*...*((2n)/(2n+1)). Помогите пожалуйста решить.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.02.2014, 11:47
Ответы с готовыми решениями:

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

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

Составить программу вычисления числового ряда для известного числа членов ряда N
Вечер добрый. Составить программу вычисления числового ряда для известного числа членов ряда N.Перед программированием следует выявить и...

4
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
08.02.2014, 12:05
(2n)!!/(2n+1)!!
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
08.02.2014, 13:27
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
DefStr J, S: DefLng F, I, L, N: DefBool B
'       © FelixMacintosh
 
Private Sub Form_Load()
    Dim s, n#, f
    s = InputBox("Введите число N", , 3)
    n = 1
    If IsNumeric(s) Then
        For f = 2 To s step 2
            n = n * f / (f + 1)
        Next
    End If
    MsgBox "результат = " & n
    End
End Sub
Добавлено через 4 минуты
...
1
 Аватар для Апострофф
9908 / 3924 / 742
Регистрация: 11.10.2011
Сообщений: 5,907
08.02.2014, 14:15
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
'DefStr J, S: DefLng F, I, L, N: DefBool B
'       © FelixMacintosh
 
Private Sub Form_Load()
    Dim p#, n% ', f
    n = InputBox("Ââåäèòå ÷èñëî N", , 3)
    p = 1
    If IsNumeric(n) Then
        For n = 1 To n 'Step 2
            p = p * 2 * n / (2 * n + 1)
        Next
    End If
    MsgBox "ðåçóëüòàò = " & p
    End
End Sub

Не по теме:

FelixMacintosh, накажу по пункту 5.22

1
08.02.2014, 15:01

Не по теме:

это тоже самое, результат будет тот же, так что ни кого я в заблуждение не увожу

наверное мне надо-было вообще ничего не подсказывать,
воспользоваться примером большинства и промолчать в следующий раз так и сделаю

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
08.02.2014, 15:01
Помогаю со студенческими работами здесь

Нахождение суммы членов ряда (Turbo Basic)
Помогите написать программу решения суммы членов ряда.Сверху суммы n,снизу i=0 при этом n=12

Вычислить произведение членов натурального ряда чисел
Помогите с решением! Вычислить произведение членов натурального ряда чисел от 1 до 12 ( факториал числа 12) : Р = 12!=1*2*3*...*12. ...

Составить программу вычисления числового ряда для известного числа членов ряда N.
Привет всем. Помогите пожалуйста составить блок схему или прописать в basic по задачи: Составить программу вычисления числового ряда для...

Найти сумму четных членов ряда, и произведение нечетных членов ряда
Почему не работает,кто объяснит? Ввести массив А(N) из членов ряда А(i) = i ^ (1 / 3) Число элементов ограничены по условию А(I)...

Найти сумму четных членов ряда и произведение нечетных членов ряда
Пожалуйста, помогите. Задача такая:ввести массив A(N) из члена ряда A(I)=I^(1/3).Число элементов ограничены по условию A(I)<=M,где...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru