Forum: Object-Pascal / Delphi-Language
by rebellxsky,
7. Dez 2014
Ok ich hab es jetzt geschnallt. Dankeschön.
Aber zwei Fragen zur Verbesserung noch.
var sort : arrayof integer;
max, min, s : integer ;
procedure TForm1.FormCreate(Sender: TObject);
begin
max := High(sort);
min := low (sort);
s := 0 ;
Forum: Object-Pascal / Delphi-Language
by rebellxsky,
7. Dez 2014
Das habe ich mal versucht anzupassen:var sort : arrayof integer;
procedure TForm1.btnsortClick(Sender: TObject);
begin
For i:= 0 to 9-1 Do
Begin
min:= i;
For j:= i+1 To 9 Do
If (sort < sort) Then
begin
h :=sort ;
Forum: Object-Pascal / Delphi-Language
by rebellxsky,
7. Dez 2014
Also das mit dem sortieren klappt erstmal soweit. Denke ich. Siehe hier:
procedure TForm1.btnsortClick(Sender: TObject);
begin
For i:= 1 to 10-1 Do
Begin
min:= i;
For j:= i+1 To 10 Do
If (sort < sort) Then
begin
h :=sort ;
Forum: Object-Pascal / Delphi-Language
by rebellxsky,
7. Dez 2014
Erstmal möchte ich mich für die Antworten bedanken.
Trotzdem habe ich noch ein paar Fragen:
1. Um die Zahlen in das Array (sort) einzufügen habe ich das so gemacht:
zahl:= strtoint(edteingabe.caption);
for a:= min + 1 to bis do
begin
sort:= zahl;
end;
bis := High(sort);
min := low (sort);
Forum: Object-Pascal / Delphi-Language
by rebellxsky,
7. Dez 2014
ja genau.
jeder wert soll einzeln eingelesen werden und dann angehängt.
Aber dafür muss ja mit jedem betätigen des Buttons das Array um eins vergrößert und dann noch die zahl hinzugefügt werden.
Und an dieser Stelle komme ich nicht weiter.
Und dann sollen die zahlen noch sortiert werden...
Forum: Object-Pascal / Delphi-Language
by rebellxsky,
6. Dez 2014
Hi Leute,
ich muss in der Schule die Arbeitsweise des Sortierverfahrens mit direktem Auswahlort erklären.
Das Prinzip habe ich schon verstanden.
Mein Problem ist, dass ich nicht weiß, wie man dies in Delphi/Lazarus durchführt.
Ich würde denken, dies macht man mit zwei Array´s, ein unsortiertes und ein sortiertes.:?
Aber wie sucht man denn die kleinste Zahl im unsortierten Feld heraus???...