Генерация случайных величин

бутафор · 30.05.2011, 16:51

Помогите, пожалуйста, решить задачу.
Разработать программу генерации случайных величин по равномерному закону от a до b, рассчитать математическое ожидание.(паскаль или делфи).
Заранее спасибо

Vladimir_S · 30.05.2011, 21:01

Цитата:

Сообщение от бутафор

Помогите, пожалуйста, решить задачу.
Разработать программу генерации случайных величин по равномерному закону от a до b, рассчитать математическое ожидание.(паскаль или делфи).
Заранее спасибо

Если по равномерному закону, то математическое ожидание есть (a+b)/2. Или Вам надо его определить на основе проб? И потом - штатным генератором случайных чисел можно пользоваться? Или самому его писать?

бутафор · 30.05.2011, 21:35

Вообще хз( я 1 в 1 переписал задание как давали, мат ожидание наверное на основе проб, генератор думаю можно штатный.

бутафор · 31.05.2011, 23:22

Не сможет никто помочь?

Vladimir_S · 01.06.2011, 10:00

Цитата:

Сообщение от бутафор

Не сможет никто помочь?

Ну почему же - пожалуйста (Паскаль):

Код:

Uses CRT;
VAR
 a,b,m,x,Sum:Real;
 N:LongInt;
 Ch:Char;
BEGIN
 ClrScr;
 Randomize;
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 Sum:=0;
 N:=0;
 Repeat
  x:=a+Random*(b-a);
  Sum:=Sum+x;
  N:=N+1;
  Writeln(x:10:3,Sum/N:20:3);
  Ch:=ReadKey;
 Until Ch=#27;
END.

Выводится сгенерированная случайная величина и математическое ожидание. После нужно нажать любую клавишу, кроме "Esc". Выполнение программы прерывается нажатием "Esc".

бутафор · 04.06.2011, 18:35

Спасибо

бутафор · 21.06.2011, 20:30

А можете её как-нибудь исправить, чтобы сразу генерировалось например 100 чисел, и только в конце вычислялось мат. ожидание?

Vladimir_S · 21.06.2011, 21:07

Цитата:

Сообщение от бутафор

А можете её как-нибудь исправить, чтобы сразу генерировалось например 100 чисел, и только в конце вычислялось мат. ожидание?

Да пожалуйста:

Код:

Uses CRT;
VAR
 a,b,m,Sum,x:Real;
 i:Integer;
BEGIN
 ClrScr;
 Randomize;
 Write('a= ');
 Readln(a);
 Write('b= ');
 Readln(b);
 Writeln;
 Sum:=0;
 For i:=1 to 100 do
  begin
   x:=a+Random*(b-a);
   Sum:=Sum+x;
   Write(x:8:3);
  end;
 Writeln;
 m:=Sum/100;
 Writeln('m= ',m:0:3);
 Readln
END.

30.05.2011, 16:51	#1 (permalink)
бутафор Новичок Регистрация: 30.05.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Генерация случайных величин Помогите, пожалуйста, решить задачу. Разработать программу генерации случайных величин по равномерному закону от a до b, рассчитать математическое ожидание.(паскаль или делфи). Заранее спасибо

30.05.2011, 16:51
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Похожие топики были созданы ранее, они могут вам хорошо помочь формирование гистограммы выборки случайных величин. С++

30.05.2011, 21:35	#3 (permalink)
бутафор Новичок Регистрация: 30.05.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вообще хз( я 1 в 1 переписал задание как давали, мат ожидание наверное на основе проб, генератор думаю можно штатный.

31.05.2011, 23:22	#4 (permalink)
бутафор Новичок Регистрация: 30.05.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Не сможет никто помочь?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

04.06.2011, 18:35	#6 (permalink)
бутафор Новичок Регистрация: 30.05.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо

21.06.2011, 20:30	#7 (permalink)
бутафор Новичок Регистрация: 30.05.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А можете её как-нибудь исправить, чтобы сразу генерировалось например 100 чисел, и только в конце вычислялось мат. ожидание?