Помощь - Поиск - Пользователи - Календарь
Полная версия: Упорядочивание элементов массива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Black Jack
Люди, помогите решить задачу, а то я с этими процедурами-функциями никак разобраться не могу.


Задача:
Дан массив натуральных чисел. Упорядочить его элементы по убыванию количества их простых делителей методом обмена.
volvo
Ну, если учесть, что "сортировка методом обмена" - простой "пузырек", то ... Смотри:
Как ты сортируешь массив по возрастанию значений элементов? Вот так, как показано по ссылке, правда?
FAQ: Методы сортировки

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

Для этого сначала опишем функцию, возвращающую количество простых делителей (реализацию сделаешь сам...)
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
Спасибо за помощь
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.