Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Упорядочивание элементов массива

Автор: Black Jack 5.04.2006 23:19

Люди, помогите решить задачу, а то я с этими процедурами-функциями никак разобраться не могу.


Задача:
Дан массив натуральных чисел. Упорядочить его элементы по убыванию количества их простых делителей методом обмена.

Автор: volvo 5.04.2006 23:27

Ну, если учесть, что "сортировка методом обмена" - простой "пузырек", то ... Смотри:
Как ты сортируешь массив по возрастанию значений элементов? Вот так, как показано по ссылке, правда?
http://forum.pascal.net.ru/index.php?s=&showtopic=3065&view=findpost&p=27327

А теперь немного изменим программу, чтобы она делала то, что нужно тебе:

Цитата
Упорядочить его элементы по убыванию количества их простых делителей

Для этого сначала опишем функцию, возвращающую количество простых делителей (реализацию сделаешь сам...)
Function GetDivCount(X: Integer): Integer;
Begin
{ Сама функция }
End;

Type
arrType = Array[1 .. n] Of Integer;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
For i := 1 To n Do
For j := n DownTo i+1 Do
{ Сравнивать будем НЕ сами элементы, а количество простых делителей }
If GetDivCount(ar[Pred(j)]) < GetDivCount(ar[j]) Then Begin

{ А вот менять местами - именно элементы массива... }
T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T

End
End;

Вот и все...

Автор: Black Jack 6.04.2006 0:25

Спасибо за помощь