ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Pavel Arapov                         2:5015/113.34  15 Dec 2001  19:14:01
 To : Dmitry Trofimov
 Subject : RE:Вопрос знатокам
 -------------------------------------------------------------------------------- 
 

 
 DT> Как поживаете, All ?
 DT> Hужен алгоритм вычисления определенного интеграла с помощью 
 DT> прямоугольников. Кто может, помогите.
 
 DT> ЗЫЖ Подскажите, где можно взять (а если у вас есть, то замыльте плиз) в 
 DT> инете описания различных методов решения всяческих математических 
 DT> хреновин. Естественно в электронном виде.
 
 Держи исходник на Паскале. Думаю вычисление должно быть с *заданной точностью*.
 /---------------Begin----------------/
 
 var a,b,e,integ:real;
               n:integer;
              bl:boolean;
               r:char;
 
 function f(x:real):real;
 begin
 {Функцию вставишь свою}
   f:=cos(3*x*x*x);
 end;
 
 function integral(a,b,e:real):real;
 label 5;
 var x,h,i1,i2:real;
           i,n:integer;
 begin
   n:=2; h:=(b-a)/n; i1:=0;
   for i:=0 to n-1 do
   begin
     x:=a+i*h; i1:=i1+f(x)*h;
   end;
 5:n:=n*2;
   h:=(b-a)/n;
   i2:=0;
   for i:=0 to n-1 do
   begin
    x:=a+i*h; i2:=i2+f(x)*h;
   end;
   if abs(i1-i2)<e then integral:=i2
   else
   begin
     i1:=i2;
     goto 5;
   end;
 end;
 
 begin
   write('Введите пределы интегрирования A и B, и точность E);
   readln(a,b,e);
   integ:=integral(a,b,e);
   writeln('Интеграл = ',integ)
 end.
 
 /----------------End-----------------/
 
 Hемного криво написано, но работала.
 
 ------*Удачи!*
 >/ All world is like so bad life that i like it too////
 
 --- FIPS/2000
  * Origin: The more we learn, the less we know (2:5015/113.34)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Вопрос знатокам   Dmitry Trofimov   15 Dec 2001 00:02:12   RE:Вопрос знатокам   Pavel Arapov   15 Dec 2001 19:14:01