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

[бутафор]

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

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

 

[Vladimir_S]

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

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

 

[бутафор]

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

 

[бутафор]

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

 

[Vladimir_S]

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

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

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".

 

[бутафор]

Спасибо

 

[бутафор]

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

 

[Vladimir_S]

А можете её как-нибудь исправить, чтобы сразу генерировалось например 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.