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