[Nataly]

здравствуйте..

подскажите пожалуйста как сделать сортировку простых чисел
например

есть:
7
5
3
2
1
4
8
9
нужно:
1
2
3
4 и.т.д

вот незнаю как..

[lmikle]

Например, методом пузырька.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   A : Array Of Integer; // Где-то описан массив   procedure BubleSort; var   I, J, Buf : Integer; begin   For I := Low(A) To High(A) - 1 Do     For J := I + 1 To High(A) Do       If A[i] > A[J] Then          Begin            Buf := A[i];            A[i] := A[J];            A[J] := Buf;          End; end;

[Nataly]

спасибо, за метод пузырька, но мне не совсем понятно как зделать сортировку если данные в TStringList находятся..?

[lmikle]

Ну, в общем так же. Только данные не в массиве, а в StringList и их, видимо, надо при сортировке конвертировать. А вообще, когда задаешь вопрос, надо более детально писать, что бы небыло недопонимания.

Low(A) = 0
High(A) = StringList.Count-1
A[i] = StrToInt(StringList[i])
A[J] = StrToInt(StringList[J])
Замена (то, что выполняется в условии) = StringList.Exchange(I,J);