請用泡沫排序法對[1...n]組數排序.問了很多遍都沒有正確答案.不過分我都照給了.哎。

Question

THk

Answer 1

升序:
var
  i,j,k:Integer;
begin
  for i:=1 to n-1 do
    for j:=i to n-1 do
      if a[j]>a[j+1] then
      begin
        k:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=k;
      end;
end;

Answer 2

升序:
var
  i,j,k,m:Integer;
begin
  m := n;
  for i:=1 to n-1 do
    begin
    dec(m);
    if m=1 then break; 
    for j:=1 to m-1 do
      if a[j]>a[j+1] then
      begin
        k:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=k;
      end;
   end;
end;