Arrays vertauschen

[jonsen2.0.0.9]

hmmm...DANKE für eure tipps...

er hat die aufgabe ein wenig geändert -.-

jetzt sollen wir array[1..100] mit zufallszahlen von 1-1000 beschreiben.

und dann immer die nebeneinander liegenden tauschen.

hab zu folgender lösung eine frage.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ar:array[1..100] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

procedure fuellen();
Var i:integer;
begin
for i:=1 to 100 do
 ar[i]:=random(1000)+1;
end;

procedure tauschen() ;
Var i,j:integer;
 i2:integer;
 temp:integer;
begin
i:=0;
j:=0;
for i2:=1 to 99 do
 begin
 i:=i2;
 j:=i2+1;
 temp:=ar[i];
 ar[i]:=ar[j];
 ar[j]:=temp;
 end;
end; 

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
begin
 fuellen;
 tauschen;
for i:=0 to 99 do
 begin
 listbox1.Items.Delete(i);
 listbox1.items.Add(inttostr(ar[i]));
 end;
end;

end.

dies müssen wir mit den proceduren fuellen und tauschen machen.

diese programm müsste doch wirklich tauschen?

also funktioniern, so wie es soll.

nachdem ich die anderen zwei teilaufgaben gelöst hab werd ich euch wieder schreiben

DANKE nochmal

MFG
Jonsen