Вычислить число π пользуясь рядом Грегори - VBA

  1. Как вычислить п такого ряда. п/4=1-1/3+1/5-1/7±... 100 членов


textual

Код к задаче: «Вычислить число π пользуясь рядом Грегори - VBA»

Sub www()
    Dim p4 As Double, i As Long, a As Long, b As Long
    a = 1
    b = 1
    For i = 1 To 100
        p4 = p4 + a / b
        a = -a
        b = b + 2
    Next i
    MsgBox p4 * 4
End Sub

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

8   голосов, оценка 4.125 из 5



Похожие ответы
  1. Здравствуйте,помогите пожалуйста написать код к задаче: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше — положительное или отрицательное.

  1. есть загвоздка получить из текста к примеру "01" число 1 и присвоить ее переменной "Chislo" ? Help please!

  1. Здравствуйте! Прошу помощи. Не знаю, как правильно написать код. Код выдаёт мне в Эксель почему-то сразу 11 нулей. Пожалуйста, исправьте мои ошибки. Условия. Вычислить значение функции у=а/x+b при x=1,2,...10 (a, b вводятся с клавиатуры) в VBA.

  1. Имеем в ячейке значение "12345678901234". Делаем формат ячейки текстовым. В верхнем левом углу ячейки вылезает зеленый треугольничек, который уведомляет, что в ячейке на самом деле не текст, а число. Вопрос 1 Как с помощью vba проскипать эти ошибки? Вопрос 2 Почему после смены формата ячейки на general / number etc треугольнички не пропадают? Приходится руками выделять ячейки, нажимать F2 и Enter, чтобы они пропали.

  1. Здравствуйте! Не подскажите как решить такую задачу: Есть дата рождения, необходимо её преобразовать в число, интерпретируемое VBA как месяц и день рождения.

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

  1. Есть файл, который выгружает система. Т.к. книг с одинаковым содержимым много, то для удобства пользователя сделала загрузку содержимого через макрос. А дальше необходимо, что бы применялось условное форматирование в виде светофора и вниз таблицы добавлялись итоги. Сколько всего человек, сколько прошло тест и средние значения по результатам в%. Где-то закралась ошибка и несколько смущает зависание в процессе преобразования данных в число. Помогите пожалуйста! Данные в таблице Оценки Сам макрос вот: