Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,merke : integer;
begin
merke := 1;
memo1.Lines.Clear;
max := strtoint(edit1.Text);
setlength(zahlen, max);
for i := 1 to max do
begin
zahlen[i] := random(strtoint(edit2.Text));
if i > merke*10 then merke := merke+1;
memo1.Lines.Insert(merke-1,(memo1.Lines.Strings[merke-1] + ' ' + inttostr(Zahlen[i]) + ',')) ;
end;
showmessage(inttostr(memo1.Lines.Count));
end;
Hallo ich wollte ein Prgramm schreiben das eine bestimmte Anzahl an Zufallszahlen generiert und diese dann anschließend ein einem Memofeld ausgibt. Bei 10 Zahlen soll es in einer Zeile ausgegeben werden. Anschließend sollen die Zahlen nach dem Bubble Sort Verfahren sortiert(dazu bin ich aber noch ncht gekommen da der erste Teil ja schon Probleme macht). Allerdings macht das Programm jetzt genau so viele Zeilen wie es Zahlen generieren soll und füllt diese mit den ersten 10 Zahlen immer abnehmen so das es wie eine halbe Pyramide ausschaut