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

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

if (M[i]==*min_element(H.begin(),H.end()))

{if (i>=0&&i<=20)

{s="("+IntToStr(i+11)+","+IntToStr(i+10)+")-кодс d=2";

ListBox7->Items->Add(s);}

if (i>=21&&i<=25)

{s="("+IntToStr(i-10)+","+IntToStr(i-14)+")-кодс d=3";

ListBox7->Items->Add(s);}

if (i>=26&&i<=40)

{s="("+IntToStr(i-9)+","+IntToStr(i-14)+")-кодс d=3";

ListBox7->Items->Add(s);}

if (i>=41&&i<=45)

{s="("+IntToStr(i-30)+","+IntToStr(i-35)+")-кодс d=4";

ListBox7->Items->Add(s);}

if (i>=46&&i<=60)

{s="("+IntToStr(i-29)+","+IntToStr(i-35)+")-кодс d=4";

ListBox7->Items->Add(s);}

}

ListBox7->Items->Add("");

ListBox7->Items->Add("Минимальная разность");

sprintf(B,"%.12f",*min_element(H.begin(),H.end()));

ListBox7->Items->Add("Рдоп-Рлс");

ListBox7->Items->Add(B);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{ComboBox1->ItemIndex=1;

Series4->AddXY(0,log10(Pdop),"lg Pдоп",clBlack);

Series4->AddXY(31.3,log10(Pdop),"lg Pдоп",clBlack);