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

Series2->AddXY(i,lgPls,s,clLime);

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

}

}

//d=4

if(ComboBox1->ItemIndex==2)

{for(i=11;i<=15;i++)

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

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+30]=(Pdop-Pls);

}