Guten Tag,
in Informatik haben wir die Hausuafgabe bekommen 50 Zahlen mit Sortieren mit Einfügen zu sortieren.
Ich denke, das ich es verstanden habe aber meine Lösung sortiert nicht richtig. Einige Zahlen sind weg, andere kommen mehrfach.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| const n = 50; var x : array [0..n] of integer;
procedure TForm1.Sort(Sender: TObject); var h,i,j : integer; begin for i:=2 to n do begin h:=x[i]; j:=i-1; while (j>0) and (h<x[j]) do begin x[j+1]:=x[j]; j:=j-1; end; x[j]:=h; end; for i:=1 to n do listbox1.items.Add(inttostr(x[i])); end; |
Ich habe bei Wikipedia und hier in der Suche schon nachgesehen. Ich finde meinen Fehler nicht. Könnte bitte jemand mal sehen, wo mein Fehler ist. Danke.
Anika