Курсовая работа: Двоичный циклический код Хэмминга

{s="("+IntToStr(i)+","+IntToStr(i-6)+")";

ListBox1->Items->Add(s);

Pbo=pow(1-P,i);

sprintf(B,"%.8f",Pbo);

ListBox2->Items->Add(B);

Poo=0;

for(k=1;k<=3;k++)

Poo+=C(i,k)*pow(P,k)*pow(1-P,i-k);

sprintf(B,"%.8f",Poo);

ListBox3->Items->Add(B);

Pno=1-Pbo-Poo;

sprintf(B,"%.8f",Pno);

ListBox4->Items->Add(B);

Pls=Pno/(1-Poo);

sprintf(B,"%.8f",Pls);

ListBox5->Items->Add(B);

lgPls=log10(Pls);

sprintf(B,"%.2f",lgPls);

ListBox6->Items->Add(B);

Series3->AddXY(i,lgPls,s,clYellow);

M[i+29]=(Pdop-Pls);

}

}

int h=0;

for (i=0;i<=60;i++)

if (M[i]>0) h++;

H.resize(h);

k=0;

for (i=0; i<=60;i++)