Sortieralgorithmus
-
Hallo
Hab versucht einen eigen Sortieralgorithmus zu schreiben läuft aber nicht
Ich möchte immer in einem Feld beanachbarte Zahlen vergleichen.Und tauschen falls die erste Zahl größer ist als die zweite. Ende falls in einem Durchgang kein Tausch mehr stattfindet.void __fastcall TForm1::Button2Click(TObject Sender)
{
ListBox1->Clear();
intzahlenfeld = new int[11];
zahlenfeld[1] = StrToInt(Form1->Edit1->Text);
zahlenfeld[2] = StrToInt(Form1->Edit2->Text);
zahlenfeld[3] = StrToInt(Form1->Edit3->Text);
zahlenfeld[4] = StrToInt(Form1->Edit4->Text);
zahlenfeld[5] = StrToInt(Form1->Edit5->Text);
zahlenfeld[6] = StrToInt(Form1->Edit6->Text);
zahlenfeld[7] = StrToInt(Form1->Edit7->Text);
zahlenfeld[8] = StrToInt(Form1->Edit8->Text);
zahlenfeld[9] = StrToInt(Form1->Edit9->Text);
zahlenfeld[10] = StrToInt(Form1->Edit10->Text);for
{
(if 11[y]> 11[y+1]);
( 11[y], 11[y+1]);}while 11[y]< 11[y+1];
{
ListBox1->Items->Add(IntToStr(zahlenfeld));
}
//---------------------------------------------------------------------------Danke schon mal im Voraus
-
