Методы сортировки..... Опции

[perez]

Народ, помогите, лаба висит на носу.... Как выглядит сортировка методом просеивания....напишите плиз....можно использовать только ее

[volvo]

perez
1. В твоей программе -

Код

While (T < a[l,j]) and (l >= 0) Do
 Begin
   a[Succ(l),j] := a[l,j];
   Dec(l,j); { почему так? Должно быть просто Dec(l); }
End;

2. В моей программе: тебе же надо сортировать столбцы по отдельности, вот я и передаю в процедуру сортировки таблицу, и тот столбец, который надо сортировать на этом проходе. (CurrCol - Current Column - текущий столбец.)