Vergleichen und sortieren in Arrays mit Bubble-Sort

[Muddy]

Hallo Leute!
Ich würde gerne wissen, wie ich in 2 unterschiedlichen arrays die Zahlen vergleiche und sortiert wieder ausgebe, wenn überhupt möglich. Ist das irgendwie mit Bubble-Sort möglich?

[mkinzler]

Ein Sortieren erleichtert dir den Verrgleich zumindest

Zitat:

Ist das irgendwie mit Bubble-Sort möglich?

Ja

[Noedel]

Delphi-Quellcode:

  if array1[i]>array2[i] then showmessage('Der Wert des ersten Arrays ist größer')
  else
  if array1[i]=array2[i] then showmessage('Beide Werte sind gleich groß') 
  else 
  if array1[i]<array2[i] then showmessage('Der Wert des zweiten Arrays ist größer');

Das ist zumindest der Vergleich

[Muddy]

Mein Lösungsansatz lautet:

Delphi-Quellcode:

type
wert = array [1..10000] of integer;
wert2 = array [1..500] of integer;
var
zufallszahl: wert;
zufallszahl2: wert2;
maxzahl: integer;

procedure TForm1.Button2Click(Sender: TObject);
var i, j, hilf: integer;
begin
maxzahl := 10000;
Anfang := time;
  for i := 1 to maxzahl do
    begin
      for j := 1 to maxzahl - i do
        begin
          zaehler:=zaehler +1;
          if (zufallszahl[j] > zufallszahl [j+1]) then
            begin
              zuweisung := zuweisung +1;
              hilf := zufallszahl[j];
              zufallszahl[j]:=zufallszahl[j+1];
              zufallszahl[j+1]:= hilf;
            end;
       end;
      listbox2.Items.add(inttostr(zufallszahl[j]));
    end;
  Ende:=time;
  Edit1.Text := FloatToStrF((Ende - Anfang) * 24 * 3600, ffFixed, 10, 2);

So und dieses Programm will ich so erweitern, dass die Zahlen in dem 1. array die Werte mit den Anderen Werten im 2. array Sortiert werden also:

Delphi-Quellcode:

 
wert = array[1..10000] of integer;
wert2 = array[1..500] of integer;

Diese möchte ich sortieren wazu ich sie aber zunächst ergleichen müsste!

[DeddyH]

Zitat von Muddy:

So und dieses Programm will ich so erweitern, dass die Zahlen in dem 1. array die Werte mit den Anderen Werten im 2. array Sortiert werden

Ich weiß nicht, ob es nur mir so geht, aber das versteh ich nicht. Hast Du mal ein Beispiel mit kleinen Arrays (vor und nach der Sortierung)?

[mkinzler]

Wenn ein Array mehr Einträge als der andere hat, wirst du nie eine Gleichheit erreichen können.