[Sevenfold]

Здраствуйте. Сразу к делу.

Типы данных для описания списка:

Код:

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

TData = Integer; (* Тип, описывающий элемент списка. *) TPElem = ^TElem;   TElem = record   Data: TData;   PNext: TPElem;   PPrev: TPElem; end;   (* Тип, описывающий список. *) TList = record   PFirst: TPElem;   PLast: TPElem; end;

Процедура пузырчатой сортировки:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure SortBubbleDesc(const aList: TList); var   P1, P2, P: TPElem;   Data: TData;   F: Boolean; begin   if aList.PFirst = aList.PLast then     Exit;      P := aList.PLast;   repeat     F := False;        P2 := aList.PFirst;     repeat       P1 := P2;       P2 := P1^.PNext;       if P1^.Data < P2^.Data then       begin         Data := P1^.Data;         P1^.Data := P2^.Data;         P2.Data := Data;         F := True;       end;     until P2 = P;        P := P^.PPrev;   until not F; end;

Задача:

Нужно сделать процедурку случайной перестановки элементов списка. Рассортировать кароче
Выручайте. Или хоть намекните как ато щас кирпичи полезут

[Bargest]

Случайной перестановки? да просто.

Код:

1 2 3 4

a:=random(N);// N - количество элементов b:=random(N); while b=a do    b:=random(N); // чтобы никогда не было a=b

Потом меняем местами значения элементов списка A и B.
Делаем этот код столько раз, сколько хочется.

[Sevenfold]

А если б будет ровняться а с первого захода? Так дело не пойдёт.

[Sevenfold]

Спасибо за помощь. Я уже нашол решение.

[Bargest]

Sevenfold,
если B=A с самого начала, то пойдет цикл While b=a. Если b<>a - то эти значения A и B нас устраивают и цикл игнорируется.