О САЙТЕ
Добро пожаловать!

Теперь вы можете поделиться своей работой!

Просто нажмите на значок
O2 Design Template

ФЭА / Информатика / Лабораторная работа №3 по информации Приближенное вычисление определенных интегралов.

(автор - student, добавлено - 16-06-2014, 16:00)

СКАЧАТЬ:  elmi11.zip [23,47 Kb] (cкачиваний: 68)

 

 

Лабораторная работа №3

 

Приближенное вычисление определенных интегралов.

 

Цель работы: научиться применять численные методы при вычислении интегралов.

 

 

Метод трапеций

 

program p;                                                                  

 var                                                                         

   a,b,n,h,S,x:real;                                                               

   Function  f (x:real):real;                                                

   begin                                                                     

   f:= 1+exp(x);                                                     

   end;                                                                     

begin  read(a,b,n);                                                         

        h:=(b-a)/n;                                                          

        s:=0;                                                                

       x:=a;                                                                

  Repeat                                                                    

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

     x:=x+h;                                                                 

   until x>b ;writeln('s=',s:8:3);                                  

end.                                                                        ­

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

В результате был получен следующий ответ: 8.142

 

 

 

 

 

 

 

 


Метод средних прямоугольников.

 

program y;                                                                 

var                                                                         

    a,b,n,h,S,r,x,c:real;                                                                                                                          

    Function  f (c:real):real;                                               

 begin                                                                    

    f:= 1+exp(c);                                                    

 end;                                                                     

 begin  read(a,b,n);                                                     

           h:=(b-a)/n;                                                             

           s:=0;                                                                   

           r:=0;                                                                   

           x:=a;                                                                   

      Repeat                                                                

     s:=s+f(x)*h;                                                           

     r:=r+f(x+h)*h;                                                         

     x:=x+h;                                                                 

until x>b ;

    writeln('s=',(s+r)/2:8:3);                                  

 end.                                                                     ­

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

В результате был получен следующий ответ: 8.142

 

 

Метод Ньютона-Лейбница.

 

 

  

 

ОТВЕТ:8

 

Погрешность составила 0,142. Ее можно сократить, увеличив число разбиений.

 

 


Ключевые слова -


ФНГ ФИМ ФЭА ФЭУ Яндекс.Метрика
Copyright 2021. Для правильного отображения сайта рекомендуем обновить Ваш браузер до последней версии!