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


Дополнительные задания - часть 7


    end.

К заданию 3

Приведем лишь математическое решение задачи. Последующее составление программы достаточно простое.

Вычислить: P4(3) и P6(4).

По формуле Бернулли

.

Далее необходимо сравнить полученные результаты и сделать вывод.

 

К заданию 4 (пример 1)

 

{ Биномиальный закон распределения вероятностей }

Program Problem4_1;

   uses WinCrt;

   var

     p, pp : real;

     n, i  : integer;

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

{ Процедура возведения в степень }

   Procedure

Extent(a : real; n : integer; var e : real);

      var

        i : integer;

      begin

        e := 1;

        if n = 0 then e := 1

                     else for i := 1 to n do e := e*a

      end;

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

{ Рекуррентная процедура вычисления биномиального закона  }

{ распределения }

   Procedure Recurro_binomial(n, k : integer; p : real;  var pp : real);

      var

         i : integer;

      begin

        Extent(1 - p, n, pp);

        for i := 1 to k do pp := (pp*(n - i + 1)*p)/(i*(1 - p))

      end;

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

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

   begin

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

     write('Введите вероятность рождения мальчика ');  readln(p);

     writeln('Биномиальный закон распределения вероятностей');

     writeln;

     for i := 0 to n do

write(i:6, ' '); writeln; writeln;

     for i := 0 to n do

       begin

         Recurro_binomial(n, i, p, pp);  write(pp:1:4, ' ')

       end;

     writeln; writeln;

     Recurro_binomial(10, 6, p, pp);

     writeln('Вероятность того, что из 10 наугад выбранных');

     writeln('рождений будет 6 мальчиков, равна ', pp:1:6)

   end.

К заданию 7

{ Распределение Пуассона }

Program Problem7;

   uses WinCrt;

   var

      n, m : longint;

      p, a  : real;




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



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