
Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:4 курс / ЗащИнф / лаб-р-защ-4 / datchik
.pasprogram 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