Реферат: Иследование методов сортировки Метод пузырька и Метод простых вставок

end;

// сортировкаметодомпростыхвставок

procedure prostvst(n:integer; var a:mass);

var j,tmp:integer;

begin

for j:=2 to n do

begin

tmp:=a[j];

i:=j-1;

while (i>0) and (a[i]>tmp) do

begin

a[i+1]:=a[i];

i:=i-1;

end;

a[i+1]:=tmp;

end;

end;

//вызовфункцийpuzerek иprostvst

procedure TForm1.Button2Click(Sender: TObject);

begin

case Radiogroup1.ItemIndex of

0:puzerek(n,a);

1:prostvst(n,a);

end;

// Отчистка полей перед вводом массива

Label5.Caption:='';

Series2.Clear;

for i:=1 to n do

// Ввод массива в поля и отображение их на графе