[Iska]

daniil_im, давайте методичку. Что-то меня смущают «каждые элементы», «таблица в окне сообщений» и «пять вариантов для цикла do» . Надо понять, что хотел сказать автор задания.

[daniil_im]

Iska, вот скрины этого задания

[daniil_im]

Iska, вот скрины задания

[Iska]

daniil_im, спасибо, ясно.

Не, не интересно. Сами, сами.

[megaloman]

daniil_im,

Как-то так. На моём десятилетнем ноуте не удалось получить время хотя бы секунду-считается мигом

Код:

Eps = 0.0001
Msg = ""

For i = 1 To 10
    Eps = Eps / 10

    DTime = Timer
    A = 1
    B = 4
    C = 5
    D = 6
    E = 1

    Pj = 1
    Pis = 4 / A - 2 / B - 1 / C - 1 / D

    N = 1
    Do While Abs(Pj) > Eps
        A = A + 8
        B = B + 8
        C = C + 8
        D = D + 8
        E = E / 16
    
        Pj = (4 / A - 2 / B - 1 / C - 1 / D) * E
        Pis = Pis + Pj
        N = N + 1
    Loop
    DTime = Timer - DTime
    
    Msg = Msg + "Пи=" + CStr(Pis) + "   Eps=" + CStr(Eps) + "   N=" + CStr(N) + "   Time=" + CStr(DTime) + "сек." + vbCrLf
Next
MsgBox Msg

Виды циклов

Код:

Do
    ......
Loop While Abs(Pj) > Eps


Do Until Abs(Pj) <= Eps
    .....
Loop


Do
    .....
Loop Until Abs(Pj) <= Eps


While Abs(Pj) > Eps
     ......
Wend

[mwz]

На моём десятилетнем ноуте не удалось получить время хотя бы секунду-считается мигом »

Ну дык задача небось писалась во времена Фортрана и вводилась в компьютер с помощью перфокарт.