Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#6

Re: datenvergleich: kleinste gemeinsamkeit

  Alt 4. Okt 2004, 16:38
Zitat von Meflin:
hab ein zusätzlichers array das so lang ist wie die anzahl der zu vergleichenden arrays und in dem für jedes array einen counter...
Oder noch sparsamer:
Der Vergleich 2er Arrays liefert eine Zahl mit Anzahl der Übereinstimmung (ich nenns mal Alpha).
Jetzt brauchst du dir nur noch das Minimum an Übereinstimmung und den Index des
dazugehörenden Arrays zu merken.
Delphi-Quellcode:
minimum_arrayindex := 0;
minimum_alpha := maxInt;

for i := 0 to anzahlarrays do
begin
   alpha := Vergleiche(masterarray, array[i]);
   if alpha < minimum_alpha then
   begin
      minimum_alpha := alpha;
      minimum_arrayindex := i;
   end ;
end;
Andreas
  Mit Zitat antworten Zitat