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

form2.visible:=true;

form1.Hide;

end;

end.

Текст модуля “Сравнение методов”

Form2: TForm2;

s:array of string;

p,q:integer;

implementation

uses Unit1;

{$R *.dfm}

//

procedure TForm2.Button1Click(Sender: TObject);

var a,a1:mass;

n1,n2,d,i:integer;

st,fn,freq:int64;

T1,T2:real;

begin

n1:=strtoint(edit1.Text);

n2:=strtoint(edit2.Text);

d:=strtoint(edit3.Text);

Progressbar1.Max:=n2;

SetLength(a,n2+1);

SetLength(a1,n2+1);

q:=round((n2-n1)/d)+1;

SetLength(s,q+1);

p:=1;

randomize;

while n1<=n2 do