Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
39
Добавлен:
27.04.2015
Размер:
784 б
Скачать


program Datchic;
uses WinCrt,Windos;

var
G0,A,G,C,i:longint;
Y:char;
const
M:longint=65536;
label 1;
begin
i:=0;
writeln(' программа - датчик случайных чисел ');
writeln(' G(i+1)=(A*G(i)+C) mod 65535');
1:
writeln('введите A,C и G(0) (числа до 65535)');
readln(A,C,G0);
i:=0; G:=G0;
repeat
if i=1000 then G0:=G;
G:=(A*G+C) mod M;
i:=i+1;

until (G=G0)or(i=65535);
writeln;
writeln('длина псевдослучайной последовательности чисел ',i);
writeln('продолжить ? Y - да');
Y:=readkey; if Y='y' then goto 1;
writeln('конец программы')
end.
Соседние файлы в папке лаб-р-защ-4