Используя рекурсию или цикл - VB

  1. Дано действительное число a, натуральное число n. Используя рекурсию или циклы вычислить значение выражения: 1/a+1/(a+1)+....+1/(a+n) Надо в visual basic сделать. Помогите плиз.


textual

Код к задаче: «Используя рекурсию или цикл - VB»

    Dim a As Double, n As Integer, i As Integer, s As Double
    a = CDbl(InputBox("Ââåäèòå Г*"))
    n = CInt(InputBox("Ââåäèòå n"))
    s = 0
    For i = 1 To n
        s = s + 1 / (a + i - 1)
    Next i
    MsgBox "ÑóììГ* = " + CStr(s)

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.571 из 5



Похожие ответы
  1. Добрые люди, помогите пожалуйста с задачей. Нужно реализовать с помощью цикла. Не понимаю

  1. Полгода назад я создавал тему с точно таким названием На этот раз задача сложнее ранее предлагавшейся Дано N цифр. Среди них могут быть и РАВНЫЕ. (Тогда задача была решена, если все цифры разные) Требуется распечатать все перестановки из этих цифр с использованием рекурсии. Пример. Дано 1122 Надо получить 1122 1212 1221 2112 2121 2211 Решение. разместим все цифры в массив A() (Наверное можно массив отсортировать? Нужно ли?) 1. Берем в качестве первой цифры A(1) 2. И задача сводится к перестановкам из N - 1 цифры Это теория. И на практике будут распечатана все N! перестановок... Как избавиться от лишних? - ЭТО САМАЯ ГЛАВНАЯ ПРОБЛЕМА! 3. Далее берется в качестве второй цифры A(2)?? А если A(1) = A(2) ? Ума не приложу как организовать рекурсию? Вероятно цикл нужен. А вот все цифры, кандидаты на первое Место должны выступать только ОДИН РАЗ. Есть смысл создать для них специальный массив B()? Ребята, подскажите. В противном случае - решу сам и не подскажу.

  1. Написать программу, которая вычисляет значения корней функции, используя комбинированный метод хорд и касательных. Очень прошу помочь, если можете.

  1. Здравствуйте! Ecть проблема. Так как я только, только закончил учить логичуские операторы, у меня появилась проблема. Я заболел грипом, и пропустил неделю учёбы, в это время нас учили For..Next, где нам задали каждому своё задание. Я посмотрел парочку видео, но в конце концов, так и не нашол решение для своей задачи, не могли бы вы посмотреть это задание, и может кинуть ссылочку на какой небудь ресурс или пост с похожей задачей, где я бы мог понять, как я могу зделать это задание: Дано 5 случайных чисел в интервале от [1 до 100]. Определить делители каждого числа. Результат вывести в таком формате: (Делимое число) : (Делители с запятой). Пример: 6: 1,2,3,6. 22: 1,2,11,22 7: 1,7 ну и тд и тп. P.S Извените за плохой русский.

  1. Есть проблема. Даны числа 1, 2, ... n Надо написать рекурсивную процедуру, которая распечатает все перестановки из этих чисел. Мне известна обычная (нерекурсивная) процедура В интернете нашел и иную экзотическую процедуру на Паскале. А рекурсивной не нашел. Стал делать сам. Для простоты возьмем 3 числа (1,2,3) (Числа задаются массивом A ()) Общая схема рекурсивно процедуры: 0. Вызов рекурсивной процедуры Call Recursia (A(), n) (n=3 - размер массива) 1. Печатаем число 1 2. Образуем массив A(1)=2, A(2)=3 3. Call Recursia (A(), n-1) 4. Печатаем число 2 5. Образуем массив A(1)=1, A(2)=3 6. Call Recursia (A(), n-1) 7. Печатаем число 3 8. Образуем массив A(1)=1, A(2)=2 9. Call Recursia (A(), n-1) Все это можно записать короче. Но программа не работает. Что она печатает. 1. Есть повторяющиеся элементы 2. Есть строки где на один элемент меньше 3. Есть дублирующиеся строки Мое мнение об ошибках. Основная стратегическая линия построения рекурсии верна Но. Самый уязвимый элемент, мне так кажется, это МАССИВ. Ведь он меняется и его надо восстанавливать. Однако Запасной (неизменяемый) массив результатов не дал. Вывод: Две недели решения этой задачи ничего не дали. Решил обратиться на форум. Если никто не решит, то все брошу и решу сам.

  1. есть некая структура,описывающая грабителя(имя,пол,возраст,сумма ущерба) Разработайте функцию, для поиска элемента с максимальным ущербом(100000) среди грабителей й возраста не меньше заданного (вводится с клавиатуры). Как используя эту структуру написать функцию.

  1. Уважаемые посетители форума, прошу Вас о помощи. Разложить с помощью ряда Тейлора Дано: x и n Найти: S (сумму всех элементов)

  1. Нужно разложить функцию в ряд. Функция на скрине

  1. Напишите программу, отображающую цветное кольцо. Используя ее в качестве подпрограммы, нарисуйте олимпийский флаг.Добавлено через 2 часа 49 минут

  1. Столкнулся со следующей проблемой: как изменить тип диаграммы в коде Visual Basic? Есть следующий код, он рабочий. Служит для передачи массива данных на лист Excel, и построения графика. Но дело в том что изначальное представление диаграммы - гистрограмма, а изменить ее у меня не выходит. Пробовал уже по разному обращаться к свойство ChartType но ничего не выходит, постоянно ругается что либо метод завершается не правильно (когда пытался сделать через активную диаграмму oChart.Activate) либо что просто класс не имеет такого свойства или метода (oChart.ChartType, oChart.SeriesCollection(1).ChartType) и т.д. ).