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

Label5.Caption:=Label5.Caption+' '+IntToStr(a[i]);

Series2.AddXY(i,a[i]);

end;

end;

// Процедурасохранениясортировки

procedure TForm1.Button3Click(Sender: TObject);

var name:string;

f:textfile;

begin

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

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

begin

assignfile(f,name);

rewrite(f);

writeln(f,label5.caption);

closefile(f);

end;

end;

// Возврашение на первую форму

procedure TForm1.N2Click(Sender: TObject);

begin

application.Createform(tform2, form2);

form2.visible:=true;

form1.Hide;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Visible:=True;

end;