Учебная работа № /8336. «Контрольная Теория вероятностей, вариант 4 31
Учебная работа № /8336. «Контрольная Теория вероятностей, вариант 4 31
Содержание:
Контрольная работа по дисциплине «Теория вероятностей»
(заочное отделение, специальность КСК)
ВАРИАНТ 4
1. Сколькими способами в бригаде, состоящей из 25 человек, можно распределить 3 путёвки: в дом отдыха, в санаторий и на турбазу?
2. В стопке игральных карт находятся 5 карт крестовой масти, 2 карты червовой масти и 3 карты масти пик. Найти вероятность того, что наугад вынутая карта будет черной масти.
3. В коробке 25 деталей, из которых 3 бракованных. Найти вероятность того, что 8 извлеченных наугад деталей будут без брака.
4. На книжной полке произвольным образом расположено 14 книг, среди которых 9 из серии «Детектив». Найти вероятность того, что среди 8 взятых наугад книг будет 3 детектива.
5. Монету бросают 7 раз. Найти вероятность того, что монета выпадет «гербом» вверх пять раз.
6. Дискретная случайная величина Х распределена по закону:
Х 3 6 9 12 15
р 0,1 0,4 0,3 р4 р5
Найти р4 и р5, если р5=р(Х=15) больше р4=р(Х=12) в 4 раза.
7. Куплено 700 лотерейных билетов, причем на каждый из 70 билетов выпал выигрыш в 50 рублей, 50 билетов – 100 руб.; 10 билетов – 500 руб., 5 билетов – 700 руб. Составить закон распределения выигрыша для владельца одного билета и найти средний выигрыш, выпавший на один билет.
Выдержка из похожей работы
г, Ахтубинск 2004 г
Задание 1
Проверка выполнимости теоремы Бернулли на примере надёжности электрической схемы,
Формулировка теоремы Бернулли: “Частота появления события в серии опытов сходится по вероятности к вероятности данного события”,
p1 = 0,9
p2 = 0,8
p3 = 0,9
p4 = 0,8
p5 = 0,9
p6 = 0,9
Проверка теоремы с помощью программы:
Текст программы:
Program bernuli;
Uses CRT;
Var op,i,j,m,n:integer;
a,pp:real;
p:array[1,,6] of real;
x:array[1,,6] of byte;
Begin
ClrScr;
Randomize;
p[1]:=0,9; p[2]:=0,8; p[3]:=0,9; p[4]:=0,8; p[5]:=0,9; p[6]:=0,9;
for op:=1 to 20 do begin
n:=op*100; m:=0;
write(‘ n=’,n:4);
for i:=1 to n do begin
for j:=1 to 6 do begin
x[j]:=0;
a:=random;
if a