Random в Паскале
Часто мы не задумываемся над некоторыми вещами, о которых рассказывают преподаватели на лекциях и лабораторках. Например, если речь идет о генераторе случайных чисел, то нам достаточно что он есть и мы знаем как его запустить. Но, насколько эти числа случайны? Как они распределяются в заданном диапазоне? Повторяются ли? Эти вопросы обычно интересуют меньше всего, хотя важность их критична. Предлагаем вашему вниманию программу, которая демонстрирует распределение этих случайных числе в заданном диапазоне.
Uses CRT;
Const N = 19;
Var X: Array [0..N] of Integer;
I,J,L : Integer;
Begin
ClrScr;
Randomize;
For I := 0 To N Do
Begin
X[I] := 0;
End;
Repeat
Write('Enter L<1000 ');
ReadLn(L);
Until L < 1000;
For I := 1 To L Do
Begin
Inc(X[Random(N+1)]);
End;
For I := 0 To N Do
Begin
Write('I=',I:2,' ');
For J := 0 To X[I] Do Write('*');
WriteLn;
End;
ReadLn;
End.
| 03.01.13 ПАСКАЛЬ 4259 Нет ССЫЛКА |
Мне нравится
+22
|
