Bubblesort in ST

[timod79]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo habe ein kleine Problem bei eine Studienarbeit.Ich habe 10 Messwerte in einem array gesepeicher und soll diese nun sortieren.Leider komme ich hier
nicht weiter.Wer kann mir da in ST weiter helfen.
gruss
timod79

 

[Bewareofthis]

Servus,

zeig mal her was du bisher hast und wo dein Problem genau liegt, dann wird dir auch geholfen.

 

[Lipperlandstern]

Zuviel Werbung?
-> Hier kostenlos registrieren

Es gibt doch hier im Forum diverse Programmbeispiele zum Bubblesort in AWL. Kanst du den nicht umsetzen ??????

 

[Ralle]

Es gibt doch hier im Forum diverse Programmbeispiele zum Bubblesort in AWL. Kanst du den nicht umsetzen ??????

Besser wäre noch, sich im Internet mal einen BubbleSort in Pascal rauszusuchen. diesen zu modifizieren ist nicht so schwer, da SCL ja sehr "pascallastig" ist. Das Ergebnis dann hier reinstellen, mit den entsprechenden Problembeschreibungen und es wird sich eine Lösung finden.

 

[Onkel Dagobert]

ZDt05_01_S7SCL__Messw06

Man muß nicht einmal suchen. Bubblesort ist sogar in einem der mit SCL mitgelieferten Beispielprojekte enthalten.

Gruß, Onkel

 

[timod79]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hy hier ist mein Lösungsansatz :
for Arr 1 to 10;
if Arr>Arr[i+1];
X:=Arr[i+1];
Arr[i+1]:=Arr;
Arr:=X,
end_for

 

[Larry Laffer]

Hallo,
jetzt mußt du dir in dem Teil der die Vertauschung vornimmt nur noch ein Flag setzen und die For..To-Schleife so oft wiederholen, bis du das Flag nicht mehr gesetzt bekommst - dann erst ist alles korrekt sortiert.
Also so :

REPEAT
Sort_Change := false ;
for Arr[i] 1 to [B][COLOR=red]9[/COLOR][/B] [COLOR=red]by 1 do[/COLOR]
   if Arr[i]>Arr[i+1] [COLOR=red]then[/COLOR]
   X:=Arr[i+1];
   Arr[i+1]:=Arr[i];
   Arr[i]:=X;
   Sort_Change := true ;
end_for ;
 
until not Sort_Change 
end_Repeat ;

Gruß
LL