Задачка в Basic

Тема в разделе "Visual Basic", создана пользователем rimon, 9 июн 2009.

  1. rimon

    rimon Гость

    Мозг не работает, не могу подставить свои значения и решить...((( ;)

    На выходе должны получаться 2 файла:
    Вот пример подобной задачи:
    [​IMG]

    file1.BAS

    Код (Text):
    cls
    Def FnA(x)=1/sqr(9+x^2)
    sub Trap (A,B,n,S)
    Local x,h,i
    x=A:S=FnA(A)+FnA(B)
    h=(B-A)/n
    for i=1 to n-1
    x=x+h: S=S+2*FnA(x)
    next i
    S=S*h/2
    end sub
    b=2
    x=b:Y=ln(x+sqr(x^2+9))-ln3
    eps=1E-5
    n=208
    call Trap(0,2,n,s1)
    Do
    n=2*n: call Trap(0,2,n,s2)
    if Abs(s2)<=1 then R=1 else R=s2
    Del=Abs((s2-s1)/R)
    s1=s2
    Loop until Del<eps
    ? using "n=###.#######  F=###.#######";n,s2
    end
    file2.BAS

    Код (Text):
    Def FnA(x)=1/sqr(9+x^2)
    sub simpson (A,B,n,d,S)
    local x,h,i
    x=A:S=FnA(A)+FnA(B)
    h=(B-A)/n
    for i=1 to n-1
    x=x+h: S=S+(3+d)*FnA(x)
    d=-d
    next i
    S=S*h/3
    end sub
    eps=1E-5
    n=208
    d=0
    call simpson (0,2,n,d,S)
    do
    n=n*2: call simpson (0,2,n,d,s2)
    if Abs(s2)<=1 then r=1 else R=s2
    del=Abs((s2-s1)/R)
    s1=s2
    loop until del<eps
    print using "S=###.####### ";S
    end
    Мне же нужно сделать тоже самое для следующих значений:
    [​IMG]
     
Загрузка...
Похожие Темы - Задачка Basic
  1. Hehabr
    Ответов:
    1
    Просмотров:
    488
  2. dmalsh
    Ответов:
    1
    Просмотров:
    1.009
  3. varenbko
    Ответов:
    0
    Просмотров:
    1.041
  4. Fillya
    Ответов:
    0
    Просмотров:
    1.093
  5. ferrum
    Ответов:
    1
    Просмотров:
    1.119

Поделиться этой страницей