VPF::Число Пи - Форум программистов

Sunvas

Дата 3.12.2006, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

САБЖ

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Voldemar2004

Дата 3.12.2006, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Код

Option Explicit

Private Sub Command1_Click()

Dim b As Double, d As Double
Dim i As Long
Dim c As Double, e As Double

    b = 1
    c = 3
    
            d = 0.2
            e = 9
        
    For i = 1 To 9000000
        
        b = b - 1 / c
        c = c + 4
            
            d = d + 1 / e
            e = e + 4

    Next i
        
    Text1.Text = 4 * (b + d)    
End Sub

В общем случае считать можно и так: число Пи вычисляется как сумма 2-ух рядов, умноженных на число 4.

По принципу: a = 1 - 1 / 3 - 1 / 7 - 1 / 11 - 1 / 15 - 1 / 19 - 1 / 23

b = 1 / 5 + 1 / 9 + 1 / 11 + 1 / 15 + 1 / 19 + 1 / 23 + 1 / 27

pi = 4 * (a + b)

Сейчас выложу исходник на языке Си. smile

Это сообщение отредактировал(а) Voldemar2004 - 3.12.2006, 18:17

--------------------

i_i
(';')
(V)

user posted image

Voldemar2004

Дата 3.12.2006, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Код

#include <iostream>
//---------------------------------------------------------------------------
int main()
{

double p;        /* Вычисляемое значение числа Пи */
double t;        /* Точность вычисления */

unsigned int n;  /* Номер члена ряда */

double el;       /* Значение члена ряда */

p = 0; n = 1; el = 1;

/* Точность вычисления: */
t = 0.001;

        while(el >= t)
        {
        el = (double) 1 / (2 * n - 1);

                !(n%2) ? p-=el : p+=el;

        ++n;
        }
        p*=4;

std::cout << "Число Пи " << p << " с точностью " << t;

std::cin.get();

return 0;
}
//---------------------------------------------------------------------------

Это сообщение отредактировал(а) Voldemar2004 - 3.12.2006, 18:36

--------------------

i_i
(';')
(V)

user posted image

mihanik

Дата 4.12.2006, 08:34 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

http://www.kamlit.ru/docs/aloritms/algolis...unt_fast/pi.php

--------------------

Программистами не рождаются, - это родовая травма...

Romikgy

Дата 4.12.2006, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

http://ru.wikipedia.org/wiki/%D0%9F%D0%B8

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »