Необходим этот код. Понять, на каком языке он написан, так и не смог. Либо он написан с ошибками, либо это вообще не какой-то популярный код. Пробовал Паскаль и Питон, глянул на Руби и Джаву, но там другой синтакс. Про С-подобные вообще молчу, точно не оно.
const Predicate=3000;//Integer.MaxValue;
Xfirst = 0;
var a:=1;
m:=1;
c:=1;
x1:=1;
Xprev:=0;
ReferenceArray:array of Cardinal;
CandidateArray:array of Cardinal;
procedure putSeq2Array(const ReferenceXfirst,ReferenceA:Cardinal;ReferenceC:Cardinal;ReferenceM:Cardinal;arr:array of Cardinal);
var i:Integer;
var myXNew:Integer;
begin
myXNew:=ReferenceXfirst;
for i:=0 to Length(arr)-1 do
begin
arr[i]:=myXNew;
myXNew:=(ReferenceA*myXNew+ReferenceC) mod ReferenceM;
end;
end;
function TryUse(const CandidateXfirst,CandidateA,CandidateC,CandidateM:Cardinal):Boolean;
var i,j:Integer;
begin
if ReferenceArray=nil then begin result:=false; exit; end;
SetLength(CandidateArray,Length(ReferenceArray));
putSeq2Array(CandidateXfirst,CandidateA,CandidateC,CandidateM,CandidateArray);
//CandidateArray и ReferenceArray могут начинаться с неодинаковых элементов
//попробуем найти первый одинаковый элемент, result:=false иначе
result:= false;
for i:=0 to Length(ReferenceArray)-1 do
if CandidateArray[i]=ReferenceArray[0] then
begin
for j:=i to Length(ReferenceArray)-1-i do
if CandidateArray[j]ReferenceArray[j-i] then begin result:=false; exit;end
else result:= true;
end;
//else begin result:=false; exit;end;
end;
procedure TryFind();
var Ci,Mi,Ai,Xprev_i:Integer;
begin
for Ci:=c to Predicate do
for Mi:=m to Predicate do
for Ai:=a to Predicate do
if (Ai*8+Ci) mod Mi = 10 then
begin
if (Ai*18+Ci) mod Mi = 28 then//if (4*Ai+Ci) mod Mi =3 then
begin
if (Ai*28+Ci) mod Mi = 14 then
begin
if (Ai*14+Ci) mod Mi =8 then//if (Ai*Xprev_i+Ci) mod Mi = 1 then writeln('of cause a='+Ai+' ,c='+Ci+' ,m= '+Mi+' ,XPrev='+XPrev_i);
if TryUse(14,Ai,Ci,Mi) then
writeln('a='+Ai+' ,c='+Ci+' ,m= '+Mi);
end;
end;
end;
end;
BEGIN
SetLength(ReferenceArray,51);
putSeq2Array(0,5,2,32,ReferenceArray);
TryFind();
END.
![*****
Ц
i -■i;’.'"»-'
14 * '*'%
‘i
s- -^ís,,
a ^
a
S' “SSi*
■"■Ufc.lft
Â!i***i
«
*’ •f40e,lrt,r«
ГКЛ !‘ IA ...
'em'IA* h* ü te«. «ОД
•flAl-wV*]
« Ж[ф].щ'
U N
oí 5чш ai ■ ей f* и ГГЫ i»äisJ
fljàeÊw t
.at-tJ*
вг***
113|Г-,котэ,прикольные картинки с кошками,код](https://img2.safereactor.cc/pics/post/full/котэ-код-7786398.jpeg "котэ,прикольные картинки с кошками,код")
Преподаватель:
-- напишите программу, которая выводит
01 02 03 04 05
16 17 18 19 06
15 24 25 20 07
14 23 22 21 08
13 12 11 10 09
студенты первого курса: придумывают вложенные циклы, дописывают ведущий ноль, предусматривают работу для разных размерностей и т д
Преподаватель:
-- а вот правильный ответ
print "01 02 03 04 05";
print "16 17 18 19 06";
print "15 24 25 20 07";
print "14 23 22 21 08";
print "13 12 11 10 09";