Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 24.02.2006 15:55:08 1275

Bubblesort

sortiert: Array[1..10] of Integer;
procedure tauschen(index1, index2: Integer);

vertauscht: Boolean;

  vertauscht := true;  // damit man in die Schleife kommt
  while vertauscht = true do
  begin
    vertauscht := false;  // keine Zahlen wurden vertauscht
    for i:=1 to anzahl-1 do
      if sortiert[i] > sortiert[i+1] then
      begin
        tauschen(i,i+1);
        vertauscht := true;
      end;
  end;

Shakersort

  vertauscht := true;  // damit man in die Schleife kommt
  while vertauscht = true do
  begin
    vertauscht := false;  // keine Zahlen wurden vertauscht
    for i:=1 to anzahl-1 do
      if sortiert[i] > sortiert[i+1] then
      begin
        tauschen(i,i+1);
        vertauscht := true;
      end;
    for i:=anzahl-2 downto 1 do
      if sortiert[i] > sortiert[i+1] then
      begin
        tauschen(i,i+1);
        vertauscht := true;
      end;
  end;

lokal