Практическая работа на ЭВМ. 1. Составить программу для вычисления всех средних (4.5).

1. Составить программу для вычисления всех средних (4.5).

2. Произвести расчеты на ЭВМ, результаты поместить в таблицу:

№ опыта	x1	x2	x3	x4	x5
	2,5	3,1	4,2	1,7	1,9
	0,4	1,4	3,3	4,7	6,3
	1,1	1,3	2,4	5,6	7,9

Ответы:

№ опыта	x1	x2	x3	x4	x5
	2,5	3,1	4,2	1,7	1,9	2,68	2,97	2,41	2,83
	0,4	1,4	3,3	4,7	6,3	3,22	4,28	1,29	3,87
	1,1	1,3	2,4	5,6	7,9	3,66	5,16	2,08	4,53

program statist; {Программа 4.1}

var k, i, n: integer; sr, s: real;

x: array[1..100] of real;

begin

write('ВВедите k и n'); readln(k, n);

for i:=1 to n do readln(x[i]);

s:=0; for i:=1 to n do s:=s+exp(k*ln(x[i]));

sr:=exp((1/k)*ln(s/n));

writeln(sr);

end.

3. На телефонной станции производились наблюдения за числом неправильных соединений в минуту. Наблюдения в течение часа дали следующие результаты:

3, 1, 3, 4, 2, 1, 1, 3, 2, 7, 2, 0,

2, 4, 0, 3, 0, 2, 0, 1, 3, 3, 1, 2,

2, 0, 2, 1, 4, 3, 4, 2, 0, 2, 3, 1,

3, 1, 4, 2, 2, 1, 2, 5, 1, 1, 0, 1,

1, 2, 1, 0, 3, 4, 1, 2, 2, 1, 1, 5.

Составить программу для нахождения математического ожидания (4.6) и среднего квадратичного отклонения (4.9).

program telephone; {Программа 4.2}

const a: array[1..60] of integer =(3,1,3,4,2,1,1,3,2,7,2,0, 2,4,0,3,0,2,0,1,3,3,1,2,2,0,2,1,4,3,4,2,0,2,3,1,3,1,4,2,2, 1,2,5,1,1,0,1,1,2,1,0,3,4,1,2,2,1,1,5);

var i, n, k: integer; e, mx, dx, q, x, w: real;

Begin

mx:=0;dx:=0;

for i:=1 to 60 do mx:=mx+a[i]; mx:=mx/60;

for i:=1 to 60 do dx:=dx+sqr(a[i]-mx);

w:=sqrt(dx/59); q:=w/sqrt(60); e:=mx/q;

writeln('среднее =',mx:5:2);

writeln('отклонение =',w:5:2);

writeln('точность оценки =',q:5:2);

writeln('показатель достоверности =',e:5:2);

End.

Ответ:

среднее =2.00

отклонение = 1.46

точность оценки= 0.19

показатель достоверности= 10.60

4. Был проведен опрос 100 родителей о количестве детей в их семьях. Результаты опроса приведены в таблице:

число детей
число семей

Напишите программу, которая подсчитывает:

· среднее количество детей в семье. Если составлен вариационный ряд (выборка, расположенная в порядке возрастания), то следует использовать следующую формулу:

(4.12)

Для текущей задачи n=100 (семей); R=11

· среднее квадратичное отклонение:

(4.13)

· вывести на экран дисплея данные в виде графика.

ось OY - число детей; ось OX - число родителей

5. Ниже приведены результаты измерения роста (см) случайно отобранных 100 студентов:

Рост	154-158	158-162	162-166	166-170	170-174	174-178	178-182
Число студентов

Составить программу для нахождения выборочного среднего (математическое ожидание), среднего квадратичного отклонения, точности оценки и показателя достоверности.

Указание. Найти середины интервалов и принять их в качестве значений.

156; 160; 164; 168; 172; 176; 180

program statist2; {Программа 4.3}

const

x:array[1..7] of integer=(156,160,164,168,172,176,180);

p:array [1..7] of integer=(10,14,26,28,12,8,2);

var mx, dx, w:real; i: integer;

begin

mx:=0; dx:=0;

for i:=1 to 7 do mx:=mx+x[i]*p[i];

mx:=mx/100;

for i:=1 to 7 do dx:=dx+sqr(x[i]-mx);

w:=sqrt(dx/6);

writeln('среднее=', mx:5:2);

writeln('среднее квадратичное отклонение=',w:5:2);

readln;

end.

Ответ:

среднее= 166

среднее квадратичное отклонение= 8.91

Дата добавления: 2015-10-31