Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
klappt es jetzt mit dem letzten Code?
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
Versuch mal den hier:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
kopier mal deinen Quellcode nochmal hier rein, nicht, dass es auch ein copy-paste-Fehler ist. Benutze TD2006 freeVersion
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
hmm also bei mir kommt da die richtige Lösung. Geb dir mal den ScreenShot mit
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
Diesen Fehler kann ich nicht nachvollziehen, bei mir wird auch richtig sortiert, wenn die 1. Zahl eine 1 ist. Gib mir mal die Zahlenfolge, die du eingibst und wo es nicht funktionieren soll.
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
hatte noch einen Copy-Paste-Fehler bei mir gefunden. Teste mal ob das hier dein Problem gelöst hat:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
Das Beispiel funktioniert auf jeden Fall. Es vergleicht immer 2 Zahlen mit einander und zieht die größere von beiden immer weiter vor. D.h. er stellt fest, dass Beispielsweise die Zahl X größer als Y und Z sind, er weiß aber immer noch nicht, wie sich Y und Z zueinander verhalten.
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
Das mein Beitrag die Zahlen nicht nach der Größe sortiert, ist mir auch aufgefallen. Aber an dem hab ich auch nichts geändert. ich hab lediglich die variable Anzahl an Zahlen eingebaut. Wenn also der Algorithmus die Zahlen nicht nach der Größe ordnet, dann war das auch schon bei deinem Eingangsbeispiel der Fall.
Edit 1: Wie du aber vieleicht feststellst ist zumindest die 1. Zahl nun die...
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
bei welchem Quellcode hast du denn diese Probleme? sind ja jetzt mehrere Lösungen gegeben worden!
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
Hier ist eine alternative Lösung, die sich mehr an deinem Eingangsbeispiel orientiert. In Ergänzung zu mkinzler solltest du jetzt eigentlich das Prinzip verstehen, wie sowas gemacht wird. Wenn du Fragen hast, können diese sicherlich auch geklärt werden.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
Forum: Object-Pascal / Delphi-Language
Delphi
by BAMatze,
11. Mär 2009
In Ergänzung zu meinem Vorredner mkinzler, stehen die restlichen Quellcodeteile schon in dem Text, den du hast.
Mit Readln kannst du die Anzahl auf eine weitere Variable einlesen und erstellst dann das dynamische Array und die Forschleifen musst noch an die neue Anzahl anpassen und dann bist eigentlich schon fertig.