Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: sortieralogrithmus komplex

  Alt 28. Okt 2010, 11:28
Da liegt wohl die übliche Vermengung von Berechnung und Darstellung vor.
Wenn es ein array mit Zufallszahlen gibt, sagenwir mal
zufall: Array [0..8] of integer; dann kann man mit einer einfachen Schleife
Delphi-Quellcode:
minidx:=0;
for i:=1 to 8 do
  if Zufall[i]<Zufall[minidx] then minidx:=i;
den Index des kleinsten Elementes bestimmen.

Bei der Ausgabe werden dann zunächst alle Elemente ohne das kleinste nacheinander ausgegeben, und zum Schluß dann das kleinste angehängt.

Delphi-Quellcode:
for i:=0 to 8 do
  if i<>minidx then Liste.add(inttostr(Zufall[i]));
  Liste.add(inttostr(Zufall[minidx]));
Ich denke, da kommt man mit einem Array locker aus.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat