Метод Симпсона

Тема в разделе "Pascal and Delphi", создана пользователем MrVi, 21 мар 2012.

  1. MrVi

    MrVi Гость

    Здравствуйте!
    Помогите пожалуйста с задачей!

    Вычислите интеграл методом Симпсона с точностью 0,001
    Дан определенный интеграл от 1,6 до 2,4 tg^2(x)dx

    Код (Text):
    procedure TForm1.Button1Click(Sender: TObject);;

    const a=1,6;

    b=2,4;

    n=800;

    function f(x:real):real;

    begin

    f:=sqr(tg)(x);

    end;

    var

    x:real;

    s:real;

    h:real;

    begin
    x:=StrToFloat(Edit1.Text)

    clrscr;

    h:=(b-a)/n;

    s:=0;

    x:=a;

    repeat

    s:=s+h/3*(f(x)+4*f(x+h)+f(x+2*h));

    x:=x+2*h;

    until x>=(b-h);

    Label4.Caption:= FloatToStr(s)

    end.
     
  2. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    это что такое?
     
  3. MrVi

    MrVi Гость

    -master-
    да я делфи не понимаю,сначало в паскале писал,потом под делфи переделывал....
    забыл убрать
     
  4. MrVi

    MrVi Гость

    -master-
    в остальном ошибок не наблюдается?
     
  5. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    Я не знаю этот метод.
    Так вы запустите и проверте результаты, если правильно, то и все.

    Добавлено: Если ошибки, кидайте их сюда.
     
Загрузка...

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