Практикум по решению задач на ЭВМ. Тарова И.Н - 82 стр.

                                        Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


    f:=sqr(x)*sin(x);
   end;
  function f2(x:real):real;
   begin
    f2:=(2-sqr(x))*sin(x)+4*x*cos(x);
   end;
  begin
   clrscr;
   writeln ('vvedite granica a i b, i chislo razbienii n');
   readln(a,b,n);
   h:=(b-a)/n; s:=0;
    for i:=1 to n do
     begin
      x:=a+(i-1/2)*h;
      s:=s+f(x)*h;
     end;
    {вычисление коэффициентов программы M2}
    M2:=abs(f2(a));
    x:=a;
    repeat
     x:=x+h;
      if abs(f2(x))>M2 then
       M2:=abs(f2(x));
    until x>b;
    psi:=sqr(h)*(b-a)/24*M2;
    writeln('s=',s,' ', 'psi=',psi);
    repeat until keypressed;
    end.


11)



                            1
Вычислить интеграл                           по формуле трапеции.
                         Ι = ∫ x 2 sin xdx
                            0
  program integral;
  uses crt;
  var a,b,h,psi,M2,s,x:real; n,i:integer;
  function f(x:real):real;
   begin
   f:=sqr(x)*sin(x);


                                                82