丁满同志

摘要： 打算每天写一个小算法，也为以后查找起来更方便一些。（均为我自己运行能通过的代码，以便对delphi不太熟悉的人直接粘贴，即可运行起来，呵呵）插入排序：定义个函数：(*从第2个开始，每次与前面的X个已排序好的数字比较*)procedure TForm1.InsertSort;var i,j,k,n: Integer;begin for i := 2 to Length(A) do begin k := A[i]; j := i - 1; while ((j > 0) and (A[j] > k)) do begin A[j ... 阅读全文