Разработка алгоритма. 
Характеристика псевдослучайных чисел

псевдослучайный число алгоритм Приступим к разработке алгоритма.

Алгоритм seredina [середина квадрата].

Шаг0 [инициализация] х:=х₀;

Шаг1 [цикл, вычисление последовательности M случайных чисел х [1.M]. ].

For j:=1 to M do [окончание шаг2 и stop].

Шаг2 [генерация нового случайного числа].

Y:=X² [Y имеет 4k разрядов].

Число Х получаем удалением по k разрядов с каждого конца Y.

X[j]: =X;

При k=2 и х₀=0.2134 в соответствии с первым оператором Шаг2 получим Y==0.04 5539 56. после применения второго оператора х₁=0.5539. если х₀<10⁴, то все числа, генерируемые при помощи данного алгоритма, будут тождественно равны нулю. Здесь нужно осуществлять описанное выше увеличение отрезка апериодичности.

Для реализации алгоритма потребуется написать процедуру, реализующую метод середины квадрата, которую назовем Rand, в которой при первом обращении задается целое число IX из [0.999 999] и между вызовами оно не должно меняться. На выходе имеем числа: Rand числа типа Single из (0,1), IX числа типа LongInt из (0,999 999), K числа типа LongInt из (0, К+1). Далее зададим переменные. Обнулим 7 и далее разряды числа Х, вычислим квадрат Х. Выберем 4…9 разряды числа Y. Определим новое целое случайное число IX из [0.999 999] и случайную величину из [0.1]. Вычислим число К из [0.K+1].

Рисунок 1. блок-схем программы.

Рисунок 2. блок-схема процедуры Rand.