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

queryperformancefrequency(freq);

for i:=1 to n1 do

begin

a[i]:=random(2001)-1000;

a1[i]:=a[i];

end;

queryperformancecounter(st);

Unit1.puzerek(n1,a);

queryperformancecounter(fn);

T1:=(fn-st)/freq*1000;

queryperformancecounter(st);

Unit1.prostvst(n1,a1);

queryperformancecounter(fn);

T2:=(fn-st)/freq*1000;

s[p]:='Количество элементов '+inttostr(n1)+' время методом пузырька '+inttostr(round(T1))+' мс время методом простых вставок '+inttostr(round(T2))+' мс';

Series1.AddXY(n1,T1);

Series2.AddXY(n1,T2);

Progressbar1.Position:=n1;

p:=p+1;

n1:=n1+d;

end;

end;

// Процедура сохранения иследования массива в текстовый файл

procedure TForm2.Button2Click(Sender: TObject);

var name:string;

f:textfile;

begin

if savedialog1.Execute then name:=savedialog1.FileName;

if name='' then showmessage('Не выбран файл для сохранения') else