title image


Smiley Re: Ordnen-Algorythmus
das ordnen der buchstaben geht automatischhier ein paar sort-algorythmenarray of integer einfach durch array of string ersetzen:{ Bubble-Sort }procedure Sort(var A: array of integer);var i,j,t:integer;begin for i:=High(A) downto Low(A) do for j:=Low(A) to High(A) - 1 do if A[J] > A[J + 1] then begin T := A[J]; A[J] := A[J + 1]; A[J + 1] := T; end;end;{ Selection-Sort }procedure Sort(var A: array of Integer);var i,j,t: Integer;begin for i:=Low(A) to High(A) - 1 do for j:=High(A) downto I + 1 do if A[I] > A[J] then begin T := A[I]; A[I] := A[J]; A[J] := T; end;end;{ Quick-Sort }procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);var Lo, Hi, Mid, T: Integer;begin Lo := iLo; Hi := iHi; Mid := A[(Lo + Hi) div 2]; repeat while A[Lo] while A[Hi] > Mid do Dec(Hi); if Lo begin T := A[Lo]; A[Lo] := A[Hi]; A[Hi] := T; Inc(Lo); Dec(Hi); end; until Lo > Hi; if Hi > iLo then QuickSort(A, iLo, Hi); if Lo end;end.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: