Hallo,
ich sitze gerade an folgender aufgabe:
- benutzer soll länge des arrays angeben können.
- dann werden aus den gewünschten zahlen zufallszahlen zwischen 1 und 100 (ganze zahlen) gebildet
bsp: länge 5 -> zahlen 8 24 56 78 92
die zufallszahlen sollen ausgegeben werden (in nem Editfeld
es soll das maximum (die größte zahl) ausgegeben werden (in nem Editfeld)
die zahlen sollen geordnet ausgegeben werden:
a) groß zu klein
b) klein zu groß
(alles in editfeldern)
bisher hab ich das hier erreicht:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
BtnEinlesen: TButton;
BtnErzeugen: TButton;
BtnAnzeigen1: TButton;
BtnMaximum1: TButton;
EdtAnzeige: TEdit;
EdtMaximum: TEdit;
EdtSortiert: TEdit;
BtnSortieren1: TButton;
BtnSortieren2: TButton;
EdtLaenge: TEdit;
procedure BtnEinlesenClick(Sender: TObject);
procedure BtnErzeugenClick(Sender: TObject);
procedure BtnAnzeigen1Click(Sender: TObject);
procedure BtnMaximum1Click(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
array1 : array of integer;
zahl : integer;
n: integer;
implementation
{$R *.DFM}
procedure TForm1.BtnEinlesenClick(Sender: TObject);
begin
n:=0 ;
zahl:= strtoint(EdtLaenge.text);
setlength(array1, zahl);
end;
procedure TForm1.BtnErzeugenClick(Sender: TObject);
begin
randomize ;
for n:=0 to (zahl-1) do
array1[n]:=random(100)+1;
end;
procedure TForm1.BtnAnzeigen1Click(Sender: TObject);
begin
for n:=0 to (zahl-1) do
EdtAnzeige.Text:=EdtAnzeige.Text+ ' ' +inttostr(array1[n]);
end;
procedure TForm1.BtnMaximum1Click(Sender: TObject);
begin
end;
procedure TForm1.BtnSortieren1Click(Sender: TObject);
end;
end.
wie kriege ich nun das Maximum/Sortieren hin?
Danke schonmal im Voraus für die Hilfe!