Помогите определить язык программирования / программирование :: код :: пидоры помогите (реактор помоги) :: geek (Прикольные гаджеты. Научный, инженерный и айтишный юмор)

пидоры помогите программирование geek код песочница 

Помогите определить язык программирования

Необходим этот код. Понять, на каком языке он написан, так и не смог. Либо он написан с ошибками, либо это вообще не какой-то популярный код. Пробовал Паскаль и Питон, глянул на Руби и Джаву, но там другой синтакс. Про С-подобные вообще молчу, точно не оно.

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.
КУПОН
НА 1 помощь,пидоры помогите,реактор помоги,программирование,geek,Прикольные гаджеты. Научный, инженерный и  айтишный юмор,код,песочница
Подробнее
КУПОН НА 1 помощь
пидоры помогите,реактор помоги,программирование,geek,Прикольные гаджеты. Научный, инженерный и айтишный юмор,код,песочница
Еще на тему
Развернуть
Паскаль
или его брат делфи
На паскаль похоже, так что может делфи?
лол, а код то легко гуглится по названиям функций
При чем в названии статьи прямо блять написано, что это паскаль
Паскаль не компилируется.
Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
main.pas(13,6) Fatal: Syntax error, ":" expected but ":=" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
Не каждый код для одного компилятора паскаля скомпилируется другим. Это скорее всего для какой-то современной версии делфи, потому что старые тоже не умеют в присваивание var-ам сразу. Но это точно паскаль. Если хочешь именно запустить его фрипаскалем — поменяй присвоение переменным на соответствующие типы, а сами присвоения перетащи в тело программы (между begin/end).
слшыь, он так ща образование случайно получит
Учусь на программиста в вузе)) Но я по С++ всегда работал, паскаль для меня особо нормально не читается, поэтому и пришёл сюда.
>учусь
>работал
>пришел на риахтур с вопросами по программированию

ребят, придумайте бинго, которое можно сложить по этим статам


ну, чувак, у меня к тебе есть первый и главный доёб:
ты с какого хуя не можешь найти ошибку в коде?
Это тот самый чел в команде который нихуя не сделал но получил денег и свалил в закат?
C того, что я не программировал уже полтора года. У меня сейчас голова кипит, когда я программы пишу. Вот и обратился сюда, так как до этого три часа работал и выдохся. А хотелось разобраться побыстрее.
Код брал отсюда, ни слова про ЯП: https://trueimpostors.ucoz.ru/publ/vzlom_linejnogo_kongruehntnogo_metoda_lcg/1-1-0-140
Про паскаль подумал первым делом, я его ещё со школы помню, но вот, ошибку выдаёт.
Не каждый написанный код компилируется, внезапно.
zaid zaid 01.11.202218:17 ответить ссылка 13.7
Это FrePascal, но раздел var должен описывать имена и типы переменных, что обязательно для паскаля. А тут что-то не то. Может это просто совсем неудачный код?
turbojoy turbojoy 01.11.202218:33 ответить ссылка 2.6
Может быть, но тогда его надо прям переписывать. Я просто надеялся избежать этого, думал, кто-то сможет опознать.
Паскаль, но в начале какая-то фигня написана, да и в коде синтаксические ошибки.
sprspr sprspr 01.11.202219:17 ответить ссылка 0.0
Поправил код, держи: https://onlinegdb.com/svz4onHF8
sprspr sprspr 01.11.202219:34 ответить ссылка 0.3
Оп, благодарю)
Только зарегистрированные и активированные пользователи могут добавлять комментарии.
Похожие темы

Похожие посты
Выбираем первый язык программирования
Да
т
У вас есть друзья?

i
Да
Т
Хотите много зарабатывать?
jL
Да
ш
	Вы тупой?	
		
т.		
Т
Вы насмотрелись уроков ХАУДИ ХО?
/Г
Да
7
Python
	Вам		
г~	нравится		1
1	Windows?		
Нет

Fortran
А они вам нужны?
Они тоже	РНР	
тупые?		
Да
т
подробнее»

языки программирования программирование geek,Прикольные гаджеты. Научный, инженерный и айтишный юмор сложный выбор путь в IT it-юмор

Выбираем первый язык программирования Да т У вас есть друзья? i Да Т Хотите много зарабатывать? jL Да ш Вы тупой? т. Т Вы насмотрелись уроков ХАУДИ ХО? /Г Да 7 Python Вам г~ нравится 1 1 Windows? Нет Fortran А они вам нужны? Они тоже РНР тупые? Да т
ИСПОЛЬЗОВАТЬ ТОЛЬКО В СЛУЧАЕ КРАЙНЕЙ НЕОБХОДИМОСТИ КУПОН
НА 1 помощь public void actionPerformedCActionEvent e) {
try {
ReadFile file = new ReadFile(patb);
String[] aryLines = file.OpenFileQ;
JFrame frame2 = new JFrameC title "Table");
JPanel panel = new JPanelO;
// JScrollPane scrollPane = new JScrollPane(panel);
frame2.SetSize( width: 600, height: 300);
pa
подробнее»

java программирование geek,Прикольные гаджеты. Научный, инженерный и айтишный юмор пидоры помогите,реактор помоги языки программирования

public void actionPerformedCActionEvent e) { try { ReadFile file = new ReadFile(patb); String[] aryLines = file.OpenFileQ; JFrame frame2 = new JFrameC title "Table"); JPanel panel = new JPanelO; // JScrollPane scrollPane = new JScrollPane(panel); frame2.SetSize( width: 600, height: 300); pa