1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure Sortiere(var aNumbers : array of double);
 var AbsDiff,Summ : double;
     pAi,pAj : ^double;
     pInt32 :^Cardinal;
     i,j : integer;
begin
 pInt32 := @AbsDiff;
 inc(pInt32);//wegen double und little endian
 pAi := @aNumbers[High(aNumbers)-1];
 // High(aNumbers) wird nur einmal abgefragt statt jedesmal
 for i:= High(aNumbers)-1 downto 0 do
   begin
   pAj := @aNumbers[High(aNumbers)];
   for j:=High(aNumbers) downto 1 do
     begin
     AbsDiff := pAi^-pAj^;
     // Vorzeichen auf + setzen
     pInt32^:=pInt32^ AND $7FFFFFFF;
     Summ :=pAi^+pAj^;
     pAi^ := (Summ-AbsDiff)*0.5;
     pAj^ := (Summ+AbsDiff)*0.5;
     dec(pAj);
     end;
   dec(pAi);
   end;
end;					

1:
2:

for I := 1 to length(S) do
 inc(Haeuffigkeit[S[I]]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure sortarray(var a:array of word); assembler;
label loop1, endloop;
asm
  lea cx,a
  loop1:
    mov ax,[cx]
    add cx,2
    mov bx,[cx]
    cmp ax,bx
    jz endloop {beide gleich -> nix zu tun}
    jns endloop { a größer b -> nix zu tun}
    sub cx,2
    mov bx,[cx]
    add cx,2
    mov ax,[cx] 
    endloop:
    push offset a
    call sizeof
    cmp cx,ax
    jnz loop1
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure ordnen
var(i : integer, mystringlist : Tstringlist, werte : array[1..6] of integer);

begin
mystringlist:=Tstringlist.create;

for i := 1 to 6 do begin
   Mystringlist.add(inttostr(werte[i]));
end;

mystringlist.sort;

for i := 1 to 6 do begin
   werte[i]:=strtoint(mystringlist.strings[i-1]);
end;


Mystringlist.free;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Sort(var a:array of integer);
var t:integer;
i,j:integer;
begin
  t:=0;
  //Sortiere array
  for i:=0 to 8 do begin
    for j:=0 to 7 do begin
      if (a[j]>a[j+1]) then begin
        t:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=t;
      end;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Sort2(var a:array of integer);
var t:integer;
i,j:integer;
begin
  t:=0;
  //Sortiere array
  for i:=0 to 8 do begin
    for j:=0 to 7 do begin
      case (a[j]>a[j+1]) of
      True: begin
              t:=a[j];
              a[j]:=a[j+1];
              a[j+1]:=t;
            end;
      end;
    end;
  end;
end;