Генерация случайных чисел (Pascal)

[Korlet]

Написать программу, находящую при генерации случайных чисел повторяющиеся значения и подсчитывающую количество шагов между ними. Для генерации чисел использовать линейный конгруэнтный метод.
Использовать метод Р. Ковэю.
---
вот что написал я:

program Generaciya;
uses crt;
var x0, a, c, m, n: integer;
    x: array of integer;
    
procedure Posledovatelnost;
var x0, a, c, m, n: integer;
    x: array of integer;
  begin
  writeln('Программа, находящая при генерации случайных чисел повторяющиеся значения и подсчитывающая количество шагов между ними.');
  writeln('Введите x0, большее или равное нулю:');
  readln(x0);
  writeln('Введите a, большее или равное нулю:');
  readln(a);
  writeln('Введите c, большее или равное нулю:');
  readln(c);
  writeln('Введите m, большее x0, a и c:');
  readln(m);
  writeln('Введите количество генерируемых чисел:');
  readln(n);
  n:=n+1;
  setlength(x, n);
  n:=n-1;
   for var i:=0 to n-1 do x[i+1]:=(a*x[i]+c) mod m;
   if x0 mod 4=2 then
   for var i:=0 to n-1 do x[i+1]:=x[i]*(x[i]+1) mod m;
   writeln('Сгенерированные числа:');
   for var i:=0 to n-1 do
   writeln(x[i]);
  end;
  
begin
 Posledovatelnost;
end.

Фигня получается.

[Utkin]

В каком плане фигня?

[Аватар]

for var

Наверно это фигня. Randomize и Random не подходят? Хотя, если for var, то наверняка не подходят

[type_Oleg]

Сообщение от Аватар

.. Хотя, если for var, то наверняка не подходят

Вдруг понадобилась переменная i, а просто добавить её в строку var вверху - шариат не позволяет.
Вот и сделал... типа, как в Си.

PS Кстати, только что заметил, что этих объявлений var - 2 одинаковых. Именно в данном случае, два не надо, одно можно удалить. Лучше удалить верхнее.

[Serge_Bliznykov]

Коллеги, не знаю, открою ли я для Вас Америку, но сообщаю, что есть такой мутант языка Паскаль, как PascalABC.NET
в нём программа из поста #1 компилируется и работает.

думаю, что "фигня" автор отнёс к тому, какие случайные числа генерятся.
Но тут, по сути вопроса я ничего сказать не могу, извините...

[Аватар]

PascalABC.NET

Атас, я даже погуглил перед тем как писать, а вдруг от жизни отстал. Гугл промолчал. Ну если так, то извиняюсь перед ТС. Но random надеюсь там есть. Или аналог

[Serge_Bliznykov]

да, конечно, там есть Random()
но проблема в том, что у автора темы суть в том, чтобы использовать свой личный алгоритм генерации ПСЧ:

Для генерации чисел использовать линейный конгруэнтный метод.
Использовать метод Р. Ковэю.

ну и потом исследовать полученную последовательность псевдослучайных чисел.

Если я правильно понял, что ему надо, конечно...

[Аватар]

Так пусть в x[0] начальное значение засунет, а то от нуля пляшет скорее всего в цикле. Да и за пределы массива выскочит - при i=n-1 попытка записи в x[n], а массив от 0 до n-1

[Utkin]

Я так думаю (так как шапочка телепата на реставрации), что товарищ не может подобрать коэффициенты, чтобы получить устойчивую длинную последовательность псевдослучайных чисел.

[Korlet]

Программа-то работает, просто я не могу её доделать. Не хватает подсчёта количества шагов между повт. значениями и использования метода Ковэю. Да и правда, всегда с нуля начинает...