БЕСПЛАТНОЕ РЕШЕНИЕ ЗАДАЧ

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.

Оставить комментарий

Вы должны быть авторизованы , чтобы оставить или оценить комментарий.

Онлайн всего: 9
Гостей: 9
Пользователей: 0

STUDLAB Сообщить про опечатку на сайте