Паскаль. Основы программирования


           

Найти модуль перехода от натурального




190. Вычислить
, используя правило Симпсона.

Найти модуль перехода от натурального логарифма к десятичному.

191. Вычислить по формуле Симпсона или методом Монте-Карло.

,


192. В следующих задачах при нахождении пределов интегрирования необходимо воспользоваться методами приближенного решения уравнений.

а) Найти площадь фигуры, ограниченной дугами парабол y = x3- 7 и

y = - 2x2+ 3x и осью ординат.

б) Найти площадь фигуры, ограниченной параболой y = x3 и прямой

 y = 7(x + 1).

в) Найти площадь фигуры, ограниченной параболой y=16 - x3 и полукубической параболой y =


193. Вычислить двойной интеграл по методу Монте-Карло:



если область (A) ограничена двумя параболами: y = x2   и y2  = x.

Ответы

 

К

заданию 1


Program derivative2;

   uses WinCrt;

   var

     x0, eps, dx, dy, dy3 : real;

   Function fx(x : real) : real;

      begin

        fx := x*x*x*x

      end;

{----------------------------------------------------------------------------------------}

{ Функция вычисления порядка - кол-во знаков после запятой }

   Function t(eps : real) : integer;

      var

        k : integer;

      begin

        k := -1;

        repeat

            eps := eps*10;

            k := k + 1

        until eps > 1;

        t := k

      end;

{----------------------------------------------------------------------------------------}

{ Функция вычисления второй производной }

   Function derivat2(x0, eps : real) : real;

      var

        dx, dy, dy3 : real;

      begin

        dx := 1;

        repeat

            dx := dx/2;

            dy := fx(x0 + dx) - 2*fx(x0) + fx(x0 - dx);

            dy3 := fx(5*x0/4 + 2*dx) - 2*fx(5*x0/4 + dx);

            dy3 := dy3 - fx(5*x0/4 - 2*dx) + 2*fx(5*x0/4 - dx)

        until abs(dy3/(6*dx)) < eps;

        derivat2 := dy/(dx*dx)

      end;

{----------------------------------------------------------------------------------------}

{ Основная программа }

   begin

     write('Введите точку, в которой находится ');


Содержание  Назад  Вперед