Sortieren eines Memo's von Zufallszahlen

Bravenesss · Hält's aus hier Beiträge: 7

Hallo, ich habe mich entschieden ein kleines "Sortierprogramm" zu schreiben.
Darin wollte ich BestCase, AverageCase, und Worst Case einbinden.
Die Auswahl von denen wollte ich durch Radios gestalten... bloß durchläuft mein Programm irgendwie
das komplette Programm... alsob er das "If Radio" etc. ignorieren würde.. ich bitte um schnelle Hilfe.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo2: TMemo;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zahl: array of integer;
  k,i,n: integer;
  starttime,endtime:longint;



implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
i,p:integer;
//_______________________________________________________________________________

Procedure vertausche(var x,y: integer);
var hilf: integer;
begin
hilf:=x;
x:= y;
y:=hilf
end;
//_______________________________________________________________________________

  begin
  memo1.Clear;
  memo2.clear;
  n := strtoint(edit1.text);
    setlength(Zahl,n);
//___________________________________________________________________________________

    If RadioButton1.Checked = True then                   // Start von AverageCase

    for i:= 0 to n-1 do                                    //erstellen von
     begin                                                 //Randomzahlen und
        zahl[i] := 1+Random(n);                            // abspeichern in Memo1
        form1.Memo1.lines.add(InttoStr(zahl[i]));
     end;
        If RadioButton1.Checked = True then
        starttime:= GetTickCount;                          // Counter Startet
        for i:= 0 to n-1 do                                //Beginn vom Sortieren

        begin
        for p := (i+1)to n-1 do
        If RadioButton1.Checked = True then
                if   zahl[i] > zahl[p]
                then Vertausche (zahl[i],zahl[p]);
                Form1.Memo2.lines.add(inttostr(zahl[i]))  ;
                endtime:=GetTickCount;
                Label1.Caption:= InttoStr(endtime-starttime)+'ms';    //Ende und Ausgabe des
                                                        //Zählers und der Zahlen
                                                                     //in Memo2.
        end;

//____________________________________________________________________________________________


     If RadioButton2.Checked = True then                   // Start von BestCase

    for i:= 0 to n-1 do                                    //erstellen von
     begin                                                 //Randomzahlen und
        zahl[i] := 1+Random(n);                            // abspeichern in Memo1
        form1.Memo1.lines.add(InttoStr(zahl[i]));
     end;
        If RadioButton2.Checked = True then
        starttime:= GetTickCount;                          // Counter Startet
        for i:= 0 to n-1 do                                //Beginn vom Sortieren

        begin
        for p := (i+1)to n-1 do
        If RadioButton2.Checked = True then
                if   zahl[i] > zahl[p]
                then Vertausche (zahl[i],zahl[p]);
                Form1.Memo2.lines.add(inttostr(zahl[i]))  ;
                endtime:=GetTickCount;
                Label1.Caption:= InttoStr(endtime-starttime)+'ms';    //Ende und Ausgabe des

                                                        //Zählers und der Zahlen
                                                                     //in Memo2.
        end;
//________________________________________________________________________________________________

   If RadioButton3.Checked = True then                   // Start von Worst Case

    for i:= 0 to n-1 do                                    //erstellen von
     begin                                                 //Randomzahlen und
        zahl[i] := 1+Random(n);                            // abspeichern in Memo1
        form1.Memo1.lines.add(InttoStr(zahl[i]));
     end;
        If RadioButton3.Checked = True then
        starttime:= GetTickCount;                          // Counter Startet
        for i:= 0 to n-1 do                                //Beginn vom Sortieren

        begin
        for p := (i+1)to n-1 do
        If RadioButton3.Checked = True then
                if   zahl[i] > zahl[p]
                then Vertausche (zahl[i],zahl[p]);
                Form1.Memo2.lines.add(inttostr(zahl[i]))  ;
                endtime:=GetTickCount;
                Label1.Caption:= InttoStr(endtime-starttime)+'ms';    //Ende und Ausgabe des
                                                                      //Zählers und der Zahlen
                                                                     //in Memo2.
        end;



  end;


procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.clear;
end;


end.

Gausi · Verfasst: Do 20.12.12 19:00

Da fehlen ein paar begin und end. ;-)

_________________
We are, we were and will not be.

Bravenesss · Hält's aus hier Beiträge: 7

wo denn... finde da nichts... wäre echt nett wenn du sie mir ergänzen und ggf. erläutern könntest
damit ich nächstes mal nicht den selben Fehler mache.

Delphi-Laie · Verfasst: Do 20.12.12 19:16

Für den besten, den mittleren und den schlechtesten Fall benötigst Du i.d.R. verschiedene Startmengen. Nur wenige Sortieralgorithmen sind gegenüber der (Un)Ordnung der zu sortierenden Startmenge völlig unempfindlich ("nicht adaptiv").

Soll es ein Animationsprogramm werden oder "im Hintergrund werkeln" und nur die Ergebnisse (Fertigmeldungen o.ä.) anzeigen?

Bring erstmal soviel Basisfunktionalität in Dein Programm, daß die Startmengen und die Sortieralgorithmen stabil implementiert sind, so daß jeder Sortieralgorithmus auf jede Startmenge losgelassen werden kann. Eine erkleckliche bis reichhaltige Auswahl an Startmengen und Sortieralgorithmen findest Du - (un)bescheidene Eigenwerbung - in meinem Sortierkino (in mehreren Versionen auch in diesem Forum zu finden).

Dann kannst Du Dich weiter mit den Fällen (besten, schlechtesten, mittleren) beschäftigen.

jfheins · Beiträge: 918 Erhaltene Danke: 158 Win 10 VS 2013, VS2015

Bravenesss hat folgendes geschrieben :

wo denn... finde da nichts... wäre echt nett wenn du sie mir ergänzen und ggf. erläutern könntest
damit ich nächstes mal nicht den selben Fehler mache.

Quasi bei jedem if-Befehl. Zumindest steht die Einrückung in krassem Gegensatz zum Code.
So z.B. stimmt die Einrückung, aber vermutlich nicht die Logik:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

  //___________________________________________________________________________________

  if RadioButton1.Checked  then                   // Start von AverageCase
    for i:= 0 to n-1 do                                    //erstellen von
    begin                                                 //Randomzahlen und
      zahl[i] := 1+Random(n);                            // abspeichern in Memo1
      form1.Memo1.lines.add(InttoStr(zahl[i]));
    end;

  if RadioButton1.Checked then
    starttime:= GetTickCount;                          // Counter Startet

  for i:= 0 to n-1 do                                //Beginn vom Sortieren
  begin
    for p := (i+1)to n-1 do
      if RadioButton1.Checked then
        if zahl[i] > zahl[p] then
          Vertausche (zahl[i],zahl[p]);
        
    Form1.Memo2.lines.add(inttostr(zahl[i]))  ;
    endtime:=GetTickCount;
    Label1.Caption:= InttoStr(endtime-starttime)+'ms';    //Ende und Ausgabe
  end;
  //____________________________________________________________________________________________

Für weitere Informationen verweise ich einfach mal auf folgenden Link: de.wikibooks.org/wik...scal:_Schachtelungen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme