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


Предельная теорема Муавра-Лапласа - часть 2


     write('Введите вероятность быть бракованным для одного ');

     write('изделия '); readln(p);

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

     write('найти '); readln(m);

     Local_Laplace(n, m, p, pp);

     writeln('Вероятность появления ', m, ' бракованных');

     writeln('изделий среди ', n, ' изделий  равна ', pp:1:6)

   end.

 

Пример 2. Появление бракованного изделия в партии оценивается вероятностью 0.5. Взято 100 изделий. Какова должна быть частота бракованных изделий, чтобы вероятность такой частоты была бы равна 0.0782?

 

{ Использование локальной формулы Лапласа для вычисл. вероятн. }

Program Problem2;

   uses WinCrt;

   var

      n, m  : longint;

      p, Pm : real;

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

{ Функция Гаусса }

   Function G(x : real) : real;

      begin

        G := exp(-sqr(x)/2)/sqrt(2*Pi)

      end;

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

{ Процедура определения частоты. 1-й способ. }

   Procedure

Frequency1(n : longint; p, Pm : real;

                                         var

m : longint);

      var

        x, pp : real;

      begin

        m := -1;

        repeat

          m  := m + 1;

          x  := (m - n*p)/sqrt(n*p*(1 - p));

          pp := G(x)/sqrt(n*p*(1 - p))

        until pp >= Pm

      end;

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

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

   begin

     write('Введите общее число изделий в партии '); readln(n);

     write('Введите вероятность быть бракованным для одного ');

     write('изделия '); readln(p);

     write('Введите вероятность получения частоты ');  readln(Pm);

     Frequency1(n, p, Pm, m);

     writeln('Частота бракованных изделий равна ', m)

   end.

 

Пример 3. По данным длительной проверки качества выпускаемых запчастей брак составляет 13%. Определить вероятность того, что в непроверенной партии из 200 запчастей пригодных будет а) 174; б) от 150 до 180.




- Начало -  - Назад -  - Вперед -



Книжный магазин