lamara-nsk.ru Это блог о сео, деньгах, заработке в сети, разработке своих проектов, программировании и "жизни программиста", бизнесе, блогосфере, фрилансе и многом другом.
Сортировка массива по убыванию в языке программирования Pascal
Для того чтобы отсортировать массив по убыванию в языке программирования Pascal, можно воспользоваться алгоритмом сортировки пузырьком. Данный алгоритм заключается в том, что мы проходим по массиву несколько раз, каждый раз сравнивая два соседних элемента и меняя их местами, если они стоят в неправильном порядке.
Вот как можно реализовать программу сортировки массива по убыванию на языке Pascal:
Объявляем массив и заполняем его случайными значениями:
const
n = 10;
var
arr: array[1..n] of integer;
i: integer;
begin
randomize;
for i := 1 to n do
arr[i] := random(100);
Реализуем алгоритм сортировки пузырьком:
procedure bubbleSort(var arr: array of integer);
var
i, j, temp: integer;
begin
for i := 1 to n - 1 do
for j := 1 to n - i do
if arr[j] < arr[j + 1] then
begin
temp := arr[j];
arr[j] := arr[j + 1];
arr[j + 1] := temp;
end;
end;
Вызываем процедуру сортировки и выводим отсортированный массив:
begin
bubbleSort(arr);
writeln('Отсортированный массив по убыванию:');
for i := 1 to n do
write(arr[i], ' ');
end.
Теперь у вас есть готовая программа на языке Pascal, которая сортирует массив по убыванию с помощью алгоритма сортировки пузырьком.
Блог на движке WordPress и тема для него создана DimoninG'ом в 2007 году. Все материалы авторские, их копирование запрещено законом об авторском праве.