программа по алгоритму Берлекэмпа - месси

[maks2011]

Помогите с программой по данному алгоритму
сканирование0001.jpg
за ранее большое спасибо.

[p51x]

и чо? где наработки или сколько платите?

[Mad_Cat]

на вики есть код на C#

[maks2011]

Сообщение от maks2011

Помогите с программой по данному алгоритму
Вложение 40359
за ранее большое спасибо.

Вот примерный код программы на паскале, помогите найти ошибку
procedure TForm1.Button1Click(Sender: TObject);
var
k,n,i,e,j,x,m1,l1,m2,l2:integer;
a,s,m,l:array[0..7] of integer;
w,z:array[-1..7] of integer;

begin
for i:=0 to ListBox1.Count-1 do
s[i]:=StrToInt(listBox1.Items[i]);
l[0]:=0;
m[0]:=1;

k:=0;
n:=0;
begin
for i:=0 to ListBox1.Count-1 do
k:=k+1;
n:=2*k;
end;
e:=0;
for i:=0 to n do begin
e:= e+(a[n-i]*s[i]);
e:=( e mod 2);
end;
Edit3.Text:=IntToStr(e);
if (e=-1) then begin
z[-1]:=-1;
w[-1]:=1;
for i:=0 to n do
for j:=-1 to n do
m[i+1]:=m[i]+w[j]*step(x,i-j);
l[i+1]:=i+1-l[i];
end else begin
for i:=0 to n do
m[i+1]:=m[i];
l[i+1]:=l[i];


end;
Edit1.Text:=IntToStr(l[i+1]);
Edit2.Text:=IntToStr(m[i+1]);
end;