Verändertes Programm zum Algorithmus Bubblesort
procedure TForm1.Button1Click(Sender: TObject);
var
Wert: Array[1..100] of Integer;
Anzahl, i, j, Hilf : Integer;
begin
// Eingabe Anzahl der Eingabewerte
Anzahl := readInt(eBox1);
// Schleife für die Eingabe der Werte und Ausgabe der Werte
for i := 1 to Anzahl do
begin
Wert[i] := InputInt(' Gib die '+ IntToStr(i)+'-te Zahl ein ');
writeInt2(aBox1, i, Wert[i]);
end;
// äussere Schleife
for i := 1 to (Anzahl-1) do
begin
// Anzahl der am Ende des Durchlaufs sicheren Stellen
//innere Schleife
for j:= 1 to (anzahl-i) do // Vergleichen der unsicheren Stellen
begin
if Wert[j] > Wert[j+1] then
begin
// tausche den Wert der benachbarten Felder
Hilf := Wert[j];
Wert[j] := Wert[j+1];
Wert[j+1] := Hilf;
end;
end;
end;
 | | | | | | | | | | | |
|
User: Guest •
Owner: papoulia • Last modified:
|
|
| | | | | | | | | | | | |
|
