Kirish 2 I bob asosiy qism 5

Saralagan ro’yxat algoritmiga doir dastur.
unit ArrayLib;
procedure WriteArray(a: array of T);
begin
for var i:=0 to a.Length-1 do
write(a[i],' ');
writeln;
end;

procedure WriteArray(a: array of real);

begin
foreach x: real in a do
write(x:0:1,' ');
writeln;
end;
procedure CreateRandom(var a: array of integer; n: integer);
begin
a := new integer[n];
for var i:=0 to n-1 do
a[i] := random(100);
end;

procedure CreateRandom(var a: array of real; n: integer);

begin
a := new real[n];
for var i:=0 to n-1 do
a[i] := random*10;
end;
end.


Ma’lumotni tez saralash algoritmiga doir misol
uses ArrayLib;

procedure QuickSort(a: array of integer);

/// Razdelenie a[l]..a[r] na chasti a[l]..a[q] <= a[q+1]..a[r]
function Partition(l,r: integer): integer;
begin
var i := l - 1;
var j := r + 1;
var x := a[l];
while True do
begin
repeat
Inc(i);
until a[i]>=x;
repeat
Dec(j);
until a[j]<=x;
if iSwap(a[i],a[j])
else
begin
Result := j;
exit;
end;
end;
end;
/// Sortirovka chastey
procedure sort(l,r: integer);
begin
if l>=r then exit;
var j := Partition(l,r);
sort(l,j);
sort(j+1,r);
end;

begin
sort(0,a.Length-1)

end;

const n = 20;

var a: array of integer;

begin
CreateRandom(a,n);

writeln('Do sortirovki: ');
WriteArray(a);
QuickSort(a);
writeln('Posle sortirovki: ');
WriteArray(a);
end.
Tanlangan ro’yxatni saralash algoritmini dasturi
uses ArrayLib;
procedure SortByChoice(a: array of real);
begin
for var i:=0 to a.Length-2 do
begin
var min := a[i];
var ind := i;
for var j:=i+1 to a.Length-1 do
if a[j]begin
min := a[j];
ind := j;
end;
a[ind] := a[i];
a[i] := min;
end;
end;

function CreateRandomArr(n: integer): array of real;

begin
Result := new real[n];
for var i:=0 to Result.Length-1 do
Result[i] := Random(100);
end;

var a: array of real;

begin
a := CreateRandomArr(20);

writeln('Soderjimoe massiva: ');
WriteArray(a);
SortByChoice(a);
writeln('Posle sortirovki vыborom: ');
WriteArray(a);
end.