Смоделировать непрерывный источник сообщений в соответствии с параметрами, Закон распределения случайной величины

[Мария34]

БЛин я такая дура... Простите тупила наконецто начало доходить.

Только вот я правильно ваш фрагмент кода вставила?

program Lab1;

const NMAS=1000;
type tMass=array[1..NMAS] of Extended;

Procedure Otcenki(const x: tMass;var Mx,Dx:Real);
Var
  i:integer;
Begin
  Mx:=0; Dx:=0;
  For i:=1 to NMAS do Mx:=Mx+x[i];
  Mx:=Mx/NMAS;
  For i:=1 to NMAS do Dx:=Dx+Sqr(x[i]-Mx);
  Dx:=Dx/(NMAS-1);
end;

Var
  Mx,Dx,a,b,r:real;
  x:tMass;
  i :word;
  MaxVal,MinVal : real;
  hist: array [0..14] of integer;
  n:integer;
Begin
  Write('a  b:   ');
  ReadLn(a,b);
  Randomize;
  For i:=1 to NMAS do
   begin
    r:=Random;
    x[i]:=a+r*(b-a);
   end;
for i :=0 to 14 do hist[i] := 0 ;
    for i:=1 to NMAS do 
     begin
       n := Trunc((x[i]-1.0)*15.0);
       Inc (hist[n])
     end;
   MaxVal := x[i];
   MinVal := x[i];
   for i:=2 to NMAS do
     begin
       if x[i] < MinVal  then  MinVal := x[i];
       if x[i] > MaxVal  then  MaxVal := x[i];
     end;
  Otcenki(x,Mx,Dx);
  Writeln ('Min element is: ', MinVal, ' Max element is: ', MaxVal);
  WriteLn(Mx,Dx,Sqrt(Dx));
  ReadLn;
End.

[Мария34]

У меня выдает ошибку

[digitalis]

Еще раз спрашиваю: какой Паскаль ? В какой среде? Кто такой fpc - я не знаю.

[Мария34]

У меня FreePascal.

[Мария34]

Я как поняла ошибку, что n := Trunc((x[i]-1.0)*15.0);//значения n, скорее всего они вылазят из диапазона [0..14].

[digitalis]

Ну вот, наши старания были не бесплодны. Тут небольшой мой косячок.
Нужно ввести еще переменную M_b

  MaxVal,MinVal,M_b : real;

теперь расчет гистограммы будет звучать так

for i :=0 to 14 do hist[i] := 0 ;
    M_b := 15.0/(b-a) ;
    for i:=1 to NMAS do 
     begin
       n := Trunc((x[i]-a)*M_b);
       Inc (hist[n])
     end;

Фри Плескаля у меня нет так что или:
а. выводим гистограмму звездочками.
б. формулиируем запрос в форум : В Free Pascal нужна процедура виэуализации массива гистограммы hist [0..14] of integer

[Мария34]

ммм... Думаете так не выйдет?
Я имею в виду визуализация на паскале во FreePascal.

Да теперь все работает, как теперь мне вывести гистограмму цифрами?

[digitalis]

Никогда не имел с ним дела поэтому не зная трепаться не буду - бывает, на одной версии ОК, на других - ни в дугу. Попробовать надо. Я вот прогу из #39 в ТР7 запустил - работает, если и в FP заработает - прекрасно.
Последний вопрос не понял - просто цифрами - значения? Или псевдографикой - звездочками - длину столбиков, как у меня в #13 ? Первое - это просто:

  for i :=0 to 14 do WriteLn(hist[i]) ;

[Мария34]

Сообщение от digitalis

Последний вопрос не понял - просто цифрами - значения?

Да, я все таки попробую, визуализировать гистограмму на фрипаскале.

То есть это

for i :=0 to 14 do WriteLn(hist[i]) ;

просто добавляется?

[Мария34]

Вот у меня нули выходят.