|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2010, 10:15 | #1 |
Новичок
Джуниор
Регистрация: 20.05.2010
Сообщений: 1
|
дописать программу
вот задание
Задача 1) Найти число интервалов на которое разбивается выборка значений случайной величины. К= 1+3,22*ln(n) (округлить до целого) 2) Определить длину интервала h=(Xmax – Xmin)/К 3) Определить области середины выборки Xср=(Хмах – Xmin)/2 Xср- центр исходного интервала 4) Подсчитать частоту попадания случайной величины в каждый i- интервал. 5) определить относительную частоту или вероятность попадания случайной величины в i-й интервал . вот это я написал помогите дописать. var i,k,n:integer; x: array[0..1000] of real; f1,f2:text; xmin,xmax,xsr,h:real; begin assign(f1,'c:\data2.dat'); {} reset(f1); assign(f2,'c:\obr_dan.dat'); rewrite(f2); i:=0; {} while not eof(f1) do begin i:=i+1; readln(f1,x[i]); { writeln(f2,i,' ',x[i]);} end; n:=i; {1} k:=round(1+3.322*ln(n)); {2} Xmin:=x[1]; xmax:=x[1]; for i:=1 to n do begin if x[i]<xmin then xmin:=x[i]; if x[i]>xmax then xmax:=x[i]; end; h:=(xmax-xmin)/k; {3} Xsr:=(xmax-xmin)/2; writeln(f2,' xmin=',xmin,' xmax= ', xmax,' h=', h, ' xsr=',xsr); {4} close(f1); close(f2); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно дописать программу (C\C++) | Operator-cn | Помощь студентам | 0 | 09.03.2010 20:03 |
помогите дописать программу | Nevis | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.08.2009 12:22 |
помогите дописать программу | starry_night | Помощь студентам | 0 | 04.06.2008 19:24 |
Помогите дописать программу. | ShnapS | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 17.05.2008 19:50 |