1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.bRechnenClick(Sender: TObject);
  var
     x,h,i:integer;
begin
 h:=0;
 val(eEingabe.Text,x,h);
   if h<>0
     then
       begin
         showmessage('Fehlerhafte Eingabe! Komma ist ein Beistrich!')
       end
     else
       begin
       i:=0;
        for i:=1 to x do
          begin					

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  primzahlen:array of cardinal; // ne art eindeminsionale tabelle mit ganzen zahlen
  zeit_filterung:real; // komma zahl
implementation

{$R *.DFM}

//verarbeitung
procedure filter_primzahl(zahlen:cardinal);  //eine selbst erstellte Procedure, die variable in den klammern wird der procedure übergeben
var i,j,primzahl_nr:cardinal; // 3 variable die positive ganze zahlen enthalten können
    f_start,f_ende,ff:int64;  // 3 variable die große ganze zahlen enthalten
begin
QueryPerformanceCounter(f_Start); // hält den startzeitpunkt der berechnung fest
i:=2;  // i wird 2 ^^
primzahl_nr:=1;  // primzahl_nr wird 1 ^^
repeat  //begin einer repeat.. until schleife
inc(i); // i wird immer um 1 erhöht
for j:=0 to primzahl_nr-1 do    //begin einer for..to..do schleife
    begin
    if (i mod primzahlen[j])=0 then break; // mod ermittelt den rest bei der divison 2er ganzer zahlen, sollte dieser 0 sein springt das programm aus der schleife heraus; da es keine Primzahl sein kann
    if j>=sqrt(primzahl_nr-1) then  // sollte j größer als die wurzel der primzahl_nr-1 werden, ist es eine primzahl
       begin                       //anweisungsblock für die if abfrage
       inc(primzahl_nr);           //primzahl_nr wird erhöht; juhu wieder eine zahl gefunden ;D
       primzahlen[primzahl_nr-1]:=i;  // die zahl wird in die tabelle eingetragen, das in [] entspricht der position in der tabelle
       break;                       // aus der schleife springen
       end;                        //anweisungsblock für die if abfrage
    end;
until primzahl_nr=zahlen;         // den repeat until block so lange ausführen bis primzahl_nr der geforderten anzahl von primzahlen entspricht
QueryPerformanceCounter(f_ende);  // hält den zeitpunkt fest wo die berechnugn abgeschlossen ist
QueryPerformanceFrequency(ff);   // ermittelt die systemgenauigkeit für die zeit
zeit_filterung:=((f_Ende - f_Start) / ff);  //zeit ermitteln
end;
//verarbeitung ende

procedure TForm1.Button1Click(Sender: TObject);
var anzahl,h:cardinal;
    start,ende,f:int64;
begin
//ausagbe
QueryPerformanceCounter(Start); //hält startzeitpunkt von eingabea+ausgabe+verarbeitung fest
memo1.lines.Clear;       //löscht das memo 1 feld
memo1.Lines.add('Primzahlen filtern');   //schreibt was rein
memo1.lines.add('');              //ne leerzeile
memo1.lines.add('Gestartet am: '+datetostr(now)); //schreibt das aktuelle datum rein
memo1.lines.add('');      //noch ne leerzeile
//ausgabe ende
//eingabe
anzahl:=strtoint(edit1.text);  //liest den wert aus edit1 aus
setlength(primzahlen,anzahl);  //setzt die "tabelle" auf die gewünschte länge
primzahlen[0]:=2;            //erste primzahl wird eingetragen, ist 2
filter_primzahl(anzahl);     // ruft selbst definierte procedure auf und übergibt die anzahl der primzahlen
//eingabe ende
//ausgabe
for h:=0 to anzahl-1 do     //for..to..do
    begin
    memo1.lines.add(inttostr(primzahlen[h])); // gibt alle primzahlen nacheinander aus
    end;
QueryPerformanceCounter(ende);   //speichert endzeitpunkt der berechnugn ab
QueryPerformanceFrequency(f);    //systemgenauigkeit
memo1.lines.Insert(4,inttostr(anzahl) +' Primzahlen; Filter Zeit: '+floattostr(zeit_filterung)+' sek');    //erstezt die 4 zeile des memos durch diesen text, alle anderen zeilen rutschen eins nach unten
memo1.lines.Insert(5,inttostr(anzahl) +' Primzahlen; Anzeigen-Filter Zeit: '+floattostr((Ende - Start) / f)+' sek'); //erstezt die 5 zeile des memos durch diesen text, alle anderen zeilen rutschen eins nach unte
memo1.lines.Insert(6,'');    //fügt ne leerzeile in 6 zeile ein
memo1.lines.add('[Ende]');    //schreibt ende ans ende^^
ShowMessage(inttostr(anzahl) +' Primzahlen; Filter Zeit: '+floattostr(zeit_filterung)+' sek');      //gibt eine meldung heraus
ShowMessage(inttostr(anzahl) +' Primzahlen; Anzeigen-Filter Zeit: '+floattostr((Ende - Start) / f)+' sek'); //gibt eine meldung heraus
memo1.Lines.SaveToFile(extractfilepath(application.exename)+'\prim.text');    //speichert den ganzen spass ins verzeichnis wo die exe is
//ausgabe ende
end;

end.