Сортировка

[Денисов Максим Сергеевич]

Привет уважаемые коллеги, кто нибудь сталкивался с сортировкой пузырьком, или что то подобное. Может быть кто то сталкивался, или есть готовый макрос. Суть в том чтобы из 4 переменных, значения которых меняются, находить в какой max значение. на ПР200

Получилась универсальная функция для определения макс или мин из чисел, меняйте только входные переменные и размер массива (кол-во переменных)

function MaxI: udint; //Максимальное число при помощи пузырьковой сортировки от меньшего к большему
var_input //объявление входных переменных
X1, X2, X3, X4: udint; //входные числа (и т.д. X5, X6... до требуемого кол-во чисел для сортировки)
end_var

var //объявление локальных переменных
i,j,n,k: udint;
x: array [1..4] of udint;
end_var
//PRG

n:=4; // задается кол-во чисел для сортировки

x[1]:=x1;
x[2]:=x2;
x[3]:=x3;
x[4]:=x4;

for i := 1 to n-1 do
for j := 1 to n-i do
if x[j]>x[j+1] then
k:=x[j];
x[j]:=x[j+1];
x[j+1]:=k;
end_if;
end_for;
end_for;

MaxI:=x[n]; //выводится последнее (максимальное) число массива
//MinI:=x[1]; //выводится первое (минимальное) число массива

end_function