Werte im array vergleichen

[BMX]

Hi,
kann mir jemand sagen wie ich die Werte eines Arrays miteinander vergleiche?
Habe bisher wenig nützliches gefunden. Ich stelle es mir so vor das ich den wert z.B. p[1] mit p[2] vergleiche und dann p[1] mit p[3] und so weiter. Dann p[2] mit p[3]......
Dann muss ich aber zu viel tippen. Kann man das denn nicht Algemeiner schreiben.

[mkinzler]

In einer Schleife. aber wäre vielleicht wäre ein Sortieralgorithmus in diesem Fall auch nicht fehl am Platz (QuickSort, BubbleSort, ShellSort, ...)

[DeddyH]

Nimm doch 2 verschachtelte Schleifen.

[BMX]

hmmm schleife wäre glaube ich besser. ich weiß nicht wie das mit ner schleife gehen soll. kannst du mir ein tipp geben? mit einer for schleife villeicht? könnt ihr mir ein bsp. geben?

[mkinzler]

Was soll durch den Vergleich ermittelt werden?

[DeddyH]

Jepp.

Delphi-Quellcode:

for i := Low(array) to High(array) do
  for j := Low(array) + 1 to High(array) do
    vergleichen(array[i],array[j]);

So in etwa.

[edit] Nicht ganz, nach kurzem Nachdenken:

Delphi-Quellcode:

for i := Low(array) to High(array) - 1 do
  for j := Low(array) + 1 to High(array) do
    vergleichen(array[i],array[j]);

[/edit]

[BMX]

durch den vergleich soll ermittelt werden ob werte im array gleich sind.

[BMX]

var p:array[1..500] of integer;
g,,s,l:integer;
begin
s:=0;
for l:=1 to 500 do
p[l]:=random(365)+1;
if ? ? then inc(s);....

wie mache ich diese verschachtelte schleifen hier?

[DeddyH]

Delphi-Quellcode:

 var p:array[1..500] of integer;
    g,s,l:integer;
begin
  s:=0;
  for l:=1 to 500 do
    p[l]:=random(365)+1; 
  for l := 1 to 499 do
    for g := l + 1 to 500 do
      if p[l] = p[g] then
        ShowMessage('2 Gleiche gefunden');
end;

Du wirst übrigens immer Gleiche finden

[Die Muhkuh]

Zitat von DeddyH:

Delphi-Quellcode:

for i := Low(array) to High(array) - 1 do
  for j := Low(array) + 1 to High(array) do
    vergleichen(array[i],array[j]);

Und wenn wir es so machen, sparen wir uns noch ein paar Vergleiche:

Delphi-Quellcode:

for i := Low(array) to High(array) - 1 do
  for j := i + 1 to High(array) do
    vergleichen(array[i],array[j]);