Hiiilllfe Sortieralgorithmus

[Jan Hummel]

Gauf Leute,

hört ma ich hab´n Problem folgendes:
Ich will Zahlen der Größe nach sortierten, die Zahlen sollen eingegeben werden. Denn VB Quelltext hab ich hier |
V

puffer=0
for a = 1 to 10
for i = 1 to 9
If x(i) > x(i+1) Then
puffer = x(i)
x(i) = x(i+1)
x(i+1) = puffer
End if
next i
next a


for i = 1 to pmax (oder 10)
print x(i)
next i

print x(1)=min
print x(10)=max

So. dass wars an Quelltext wenn mir das mal bitte jemand ummodeln könnte damit ich ein Beispiel für weitere Programme habe wäre das super nett. Wenn´s geht mit "selection" oder "bubble sort".(im Konsolenmodus)

Ich bedanke mich schonmal im vorraus machts gut.

[Misterplanlos]

Hi Jan, so dann gehts mal los!

<PRE>

Bubble Sort (PSEUDOCODE)
========================

bubble_sort(ARRAY[N-ELEMENTE],N_ELEMENTE)
{
int idx_aktuell=0; //Schleifenzähler
int idx_vergleich=idx_aktuell+1; //Schleifenzähler
typ tmp_value; //temporäre Variable

for( ELEMENT[idx_aktuell] to ELEMENT[N_ELEMENTE-1] )
{
for( ELEMENT[idx_vergleich] to ELEMENT[N_ELEMENTE] )
{
//verleichen
if( ELEMENT[idx-aktuell]< ELEMENT[idx_vergleich] )
{
//tauschen
tmp_value=ELEMENT[idx_aktuell]
ELEMENT[idx_akutell]=ELEMENT[idx_vergleich])
ELEMENT[idx_vergleich]=tmp_value;
}
}//Ende innere Schleife
}//Ende Aeußere Schleife
}//Ende bubble_sort()

<PRE>

Kleine Anmerkung: Um die umgedrehte Reihenfolge zu bekommen muss nur
aus dem kleiner einr größer gemacht werden!, hoffe ich konnte dir helfen