hallo
habe wie folgt versucht, ein array aus randomzahlen (oder vordefiniert) so zu bearbeiten, dass in der ausgabe nur noch jede vorkommende zahl nur noch einmal auftaucht. (... wunschvorstellung)
leider ist es mir nicht gelungen, alle überflüssiigen zu entfernen.
meine idee war folgende:
1 - (aufsteigendes) sortieren des arrays
2 - danach von vorn bis hinten mit einem zähler durchlaufen und schauen, ob einträge doppelt sind
3 - diese einträge dann nach hinten verschieben (damit sich die größe nicht ändert, dachte ich, man könnte einfach diese mit den letzten einträgen tauschen)
dabei wird die anzahl der vertauschungen mitgezählt
4 - so viele einträge hinten abschneiden (setlength), wie der zähler angibt
5 - da das array jetzz wieder unsortiert ist, noch einmal sortieren.
soviel zur idee, bei der ausführung hakt es jedoch, weiß jedoch nicht woran....
qt siehe unten
Delphi-Quellcode:
var i,j,x:longint;
begin
i:=0;
j:=-1;
i:=0;
quicksort(test1,low(test1),high(test1));
while i< = length(test1) do
begin
if test1[i] = test1[i+1] //doppelt?
then
begin
{ans ende stellen durch tauschen}
x:=test1[i];
test1[i]:=test1[length(test1)-1]; //möglicherweise ist hier ein fehler???
test1[length(test1)-1]:=x;
j:=j+1;
end;
i:=i+1;
end;
setlength(test1,length(test1)-j);
quicksort(test1,low(test1),high(test1));
write(test1); //ausgabe
end;
vielen dank für eure tips