Добавил:
Hist
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программы c++ (сортировка, хэширование) / 1 / Straight_Selection
.pas //Сортировка прямым выбором (обменная)
Const
n=10000;
Var
m: integer;
mass: array [1..n] of real;
Procedure InitMass;
Var
i:integer;
Begin
for i:=1 to n do mass[i]:=10*sin(0.3*i+0.24);
End;
Procedure St_Sel;
Var
i,j,k: integer;
x: real;
Begin
for i:=1 to (n-1) do begin
k:=i;
x:=mass[i];
for j:=i+1 to n do if mass[j]<x then begin
k:=j;
x:=mass[k];
end;
mass[k]:=mass[i];
mass[i]:=x;
end;
End;
BEGIN
InitMass;
for m:=1 to n do writeln(mass[m]:5:5);
WriteLn('***********************************************************');
St_Sel;
for m:=1 to n do writeln(mass[m]:5:5);
END.
Const
n=10000;
Var
m: integer;
mass: array [1..n] of real;
Procedure InitMass;
Var
i:integer;
Begin
for i:=1 to n do mass[i]:=10*sin(0.3*i+0.24);
End;
Procedure St_Sel;
Var
i,j,k: integer;
x: real;
Begin
for i:=1 to (n-1) do begin
k:=i;
x:=mass[i];
for j:=i+1 to n do if mass[j]<x then begin
k:=j;
x:=mass[k];
end;
mass[k]:=mass[i];
mass[i]:=x;
end;
End;
BEGIN
InitMass;
for m:=1 to n do writeln(mass[m]:5:5);
WriteLn('***********************************************************');
St_Sel;
for m:=1 to n do writeln(mass[m]:5:5);
END.
Соседние файлы в папке 1