hi,
soll fuer die schule eine uebung machen die einige arrays miteinander vergleicht.
in der zweitletzten spalte schreibt er zufallszahlen und in der letzten soll er sie mit bubble sort sortieren aber irgendwie macht ers nicht
Code:
procedure TForm1.Button1Click(Sender: TObject);
var i,k,j,buffer,z,m: integer;
zahlen,zahlendown,zufallsort,zufall: Array[1..10] of integer;
begin
randomize;
for i := 1 to 10 do
begin
zahlen[i] := i;
sg.cells[1,i] := inttostr(zahlen[i]);
end;
for i := 1 to 10 do
begin
z := zahlen[i] + 1;
sg.cells[2,i] := inttostr(z);
end;
for i := 1 to 10 do
begin
zahlendown[i] := i;
m := zahlen[10] - zahlendown[i];
sg.cells[3,i] := inttostr(m);
end;
for i := 1 to 10 do
begin
zufall[i] := random(100)+1;
sg.cells[4,i] := inttostr(zufall[i]);
end;
{ B U B B L E S O R T Sortierverfahren beginnt hier}
for i:=10 downto 1 do
begin
for j:= 1 to i do
begin
if zufall[i]>zufall[j] then
k := 0;
inc(k);
begin
buffer:= zufall[i];
zufall[i]:= zufall[j];
zufall[j]:= buffer;
sg.cells[5,k] := inttostr(zufall[j]);
end;
end;
end;
end;