פורטל:מדעי המחשב/תמונה נבחרת/54

מתוך ויקיפדיה, האנציקלופדיה החופשית
קפיצה לניווט קפיצה לחיפוש

<syntaxhighlight lang="pascal">

insertionSort(array A) begin

   for i := 1 to length[A]-1 do
   begin
       value := A[i];
       j := i-1;
       while j ≥ 0 and A[j] > value do
       begin
           A[j + 1] := A[j];
           j := j-1;
       end;
       A[j+1] := value;
   end;

end; </syntaxhighlight>

פסאודו קוד של מיון הכנסה