Сортировка массива пузырьком

[Chikiton]

Здравствуйте, задача отсортировать массив методом пузырька в формах делфи.
Возникает ошибка
вот код :

procedure TForm1.Button1Click(Sender: TObject);
var
j,i,k:integer;
a:array of integer;
begin
setlength(a,10);
for i := 1 to length(edit1.Text) do
begin
if (Edit1.Text[i] = ' ') then continue;
a[i]:= strtoint(Edit1.Text[i]);
end;
k:=0;
for i := 1 to (High(a[i])-1) do
    for j := 2 to High(a[i]) do
      if a[j] > a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
      end;

  for i := 1 to High(a[i]) do

edit2.text := inttostr(a[i])+' ';

end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

во-первых, динамические массивы (как у Вас) индексируются от нуля.

во-вторых, не нужно писать High(a[i]) - используйте High(a)

в-третьих,

for i := 1 to length(edit1.Text) do
begin if (Edit1.Text[i] = ' ') then continue;
   a[i]:= strtoint(Edit1.Text[i]);
end;

а что это за ужас?

во-четвёртых,
в цикле по J от 2 до High() чему будет равно J+1 в выделенной строчке?!

[p51x]

High(a)

[Chikiton]

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

во-первых, динамические массивы (как у Вас) индексируются от нуля.

во-вторых, не нужно писать High(a[i]) - используйте High(a)

в-третьих,а что это за ужас?

во-четвёртых,
в цикле по J от 2 до High() чему будет равно J+1 в выделенной строчке?!

про третье, это попытка перевода строчки из edit в массив целых чисел для дальнейших операций, подскажите как это сделать, если так неправильно

[Serge_Bliznykov]

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

ро третье, это попытка перевода строчки из edit в массив целых чисел для дальнейших операций

Вы, на мой взгляд, выбрали не совсем подходящий компонент (лучше уж TStringGrid или TMemo было взять),
но, если бы у меня стояла задача разобрать строчку с целыми числами,
то я бы использовал такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  TS : TStringList;
  i, n : integer;
  A : array of Integer;
begin

    TS := TStringList.Create;
    TS.Delimiter := ' ';
    TS.DelimitedText := Trim(Edit1.Text); // в Edit1.Text = ' 123   45      78 -3 0'
    n := TS.Count;
    SetLength(A, n);
    for i :=0 to TS.Count-1 do
      A[i] := StrToInt(TS[i]);
    FreeAndNil(TS);

    // это для отладки - вывести массив в Memo1
    //    Memo1.Lines.Clear;
    // for i:= 0 to n - 1 do Memo1.Lines.Append(IntToStr(A[i]));

[Chikiton]

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

Вы, на мой взгляд, выбрали не совсем подходящий компонент (лучше уж TStringGrid или TMemo было взять),
но, если бы у меня стояла задача разобрать строчку с целыми числами,
то я бы использовал такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  TS : TStringList;
  i, n : integer;
  A : array of Integer;
begin

    TS := TStringList.Create;
    TS.Delimiter := ' ';
    TS.DelimitedText := Trim(Edit1.Text); // в Edit1.Text = ' 123   45      78 -3 0'
    n := TS.Count;
    SetLength(A, n);
    for i :=0 to TS.Count-1 do
      A[i] := StrToInt(TS[i]);
    FreeAndNil(TS);

    // это для отладки - вывести массив в Memo1
    //    Memo1.Lines.Clear;
    // for i:= 0 to n - 1 do Memo1.Lines.Append(IntToStr(A[i]));

begin
 TS := TStringList.Create;
    TS.Delimiter := ' ';
    TS.DelimitedText := Trim(Edit1.Text);
    n := TS.Count;
    SetLength(A, n);
    for i :=0 to TS.Count-1 do
      A[i] := StrToInt(TS[i]);
k:=0;
for i := 0 to (High(a)-1) do
    for j := i to High(a) do
      if a[j] > a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k;
      end;

for i:= 0 to high(a)  do begin

 st :=st+IntToStr(a[i])+' ';
  end;

  edit2.Text:=st;
end;
end.

Сделал так , теперь работает, но не каждый раз , думаю дело в сортировке, что поменять?

[Serge_Bliznykov]

а если так сортировку записать?

for i := 0 to n-2 do
    for j := i+1 to n-1 do
      if a[i] > a[j] then begin
        k := a[i];
        a[i] := a[j];
        a[j] := k;
      end;

[Chikiton]

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

а если так сортировку записать?

for i := 0 to n-2 do
    for j := i+1 to n-1 do
      if a[i] > a[j] then begin
        k := a[i];
        a[i] := a[j];
        a[j] := k;
      end;

работает, спасибо!

[Chikiton]

Все бы хорошо, но попросили

TS := TStringList.Create;
    TS.Delimiter := ' ';
    TS.DelimitedText := Trim(Edit1.Text);
    n := TS.Count;
    SetLength(A, n);
    for i :=0 to TS.Count-1 do
      A[i] := StrToInt(TS[i]);

сделать без стринглиста, т.е написать перевод строчного массива в массив целых чисел, я пытаюсь у меня выдается ошибка, вот код перевода

edit2.Text := '';
  st := edit1.Text;
   while st[1] = ' ' do
        delete(st,1,1);
   while st[length(st)] = ' ' do
        delete(st,length(st),1);

  for i := 1 to length(st) do
    begin
      if (st[i] = ' ')and(st[i+1] = ' ')  then
         repeat
           delete(st,i,1)
         until st[i+1]<>' ';
    end;
  j := 0;
  for i := 1 to length(st) do
    if st[i] = ' ' then inc(j);

  k:=1;
  st1:='';
  setlength(a,j+2);
  st := st+' ';
  for i := 1 to j+1 do
    begin
      while st[k]<>' ' do
        begin
          st1 := st1 + st[k];
          inc(k);
        end;
      inc(k);
      a[i] := strtoint(st1);
      st1:='';
    end;

[northener]

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

for i := 1 to length(st) do begin if (st[i] = ' ')and(st[i+1] = ' ') then repeat delete(st,i,1) until st[i+1]<>' '; end

Удаление элементов массива (коим и является строка) нельзя производить в прямом цикле for..do!
Можно только в обратном цикле for..downto или в циклах while, repeat.