heey
ich muss ein programm schreiben das eine bestimmte anzahl an zufallszahlen erzeugt (in einem bestimmten bereich)
diese erzeugten zufallszahlen sollen zuerst unsortiert und dann sortiert ausgegeben werden
die sortierte ausgabe soll mit dem dreieckstausch programmiert werden....
ich hab echt keine ahnung wie das gehen soll
das habe ich bis jetzt, es kommt keine fehlermeldung
jedoch stimmt das ergebnis nicht
vielleicht hab ich nur ne kleinigkeit falsch bzw. vielleicht is auch der ansatz komplett falsch, ich weiß es nicht.. hab schon viel versucht
es werden zuerst die ungeordneten zahlen ausgegeben und dann in der nächsten zeile wo die sortierten zahlen kommen sollten stehen irgendwelche zahlen ungeordnet!
ich hoffe mir kann jemand weiterhelfen
For Y = 1 To Anzahl
Zahlarray(Y) = Rnd.Next(Niedrigste, Hoechste + 1)
txtAus.Text = txtAus.Text & Zahlarray(Y).ToString.PadLeft(5)
Next
txtAus.Text = txtAus.Text & vbCrLf & " Sortiert: "
For Y = 1 To Anzahl
For X = 1 To Anzahl
For Z = 1 To Anzahl
If Y > X Then
Feld = Y
Zahlarray(Y) = X
Zahlarray(X) = Feld
End If
Feld = ""
If Y < Z Then
Feld = Y
Zahlarray(Y) = Z
Zahlarray(Z) = Feld
End If
Feld = ""
Next
Next
Next
For Y = 1 To Anzahl
txtAus.Text = txtAus.Text & Zahlarray(Y).ToString.PadLeft(5)
Next
ich muss ein programm schreiben das eine bestimmte anzahl an zufallszahlen erzeugt (in einem bestimmten bereich)
diese erzeugten zufallszahlen sollen zuerst unsortiert und dann sortiert ausgegeben werden
die sortierte ausgabe soll mit dem dreieckstausch programmiert werden....
ich hab echt keine ahnung wie das gehen soll
das habe ich bis jetzt, es kommt keine fehlermeldung
jedoch stimmt das ergebnis nicht
vielleicht hab ich nur ne kleinigkeit falsch bzw. vielleicht is auch der ansatz komplett falsch, ich weiß es nicht.. hab schon viel versucht
es werden zuerst die ungeordneten zahlen ausgegeben und dann in der nächsten zeile wo die sortierten zahlen kommen sollten stehen irgendwelche zahlen ungeordnet!
ich hoffe mir kann jemand weiterhelfen
For Y = 1 To Anzahl
Zahlarray(Y) = Rnd.Next(Niedrigste, Hoechste + 1)
txtAus.Text = txtAus.Text & Zahlarray(Y).ToString.PadLeft(5)
Next
txtAus.Text = txtAus.Text & vbCrLf & " Sortiert: "
For Y = 1 To Anzahl
For X = 1 To Anzahl
For Z = 1 To Anzahl
If Y > X Then
Feld = Y
Zahlarray(Y) = X
Zahlarray(X) = Feld
End If
Feld = ""
If Y < Z Then
Feld = Y
Zahlarray(Y) = Z
Zahlarray(Z) = Feld
End If
Feld = ""
Next
Next
Next
For Y = 1 To Anzahl
txtAus.Text = txtAus.Text & Zahlarray(Y).ToString.PadLeft(5)
Next
