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:

var
  Form1: TForm1;
  i,teiler, eing_zahl,zeile: Integer;
  primzahl: Boolean;
  
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zeile:= 0;
eing_zahl:= StrToInt (Edit1.Text);


for i := 4 to eing_zahl do
begin
  primzahl := true;

  for teiler := 2 to Trunc(sqrt(i)) do
   if i mod teiler = 0 then primzahl:= false; 

   if primzahl = true then
   begin
   inc (zeile);
    StringGrid1.Cells[0,zeile] := IntToStr(i);
    StringGrid1.RowCount := StringGrid1.RowCount+1;
    end;

end;//for
end;                    

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:

var
  Form1: TForm1;
  i,teiler, eing_zahl,zeile: Integer;
  primzahl: Boolean;
  


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zeile:= 0;
eing_zahl:= StrToInt (Edit1.Text);

for i := 4 to eing_zahl do
begin
  primzahl := true;

 
   teiler:= 2;
   repeat
   if i mod teiler = 0 then primzahl := false;
   inc (teiler);
   until teiler = i-1;

   if primzahl = true then
   begin
   inc (zeile);
    StringGrid1.Cells[0,zeile] := IntToStr(i);
    StringGrid1.RowCount := StringGrid1.RowCount+1;
    end;

end;//for
end;                    

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:

var 
  Form1: TForm1; 
  
implementation 


{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var
  eing_zahl, zahl, i, limit: Integer; 
  zahlen: Array of Boolean; 
begin 

eing_zahl:= StrToInt (Edit1.Text); 

limit := Trunc(sqrt(eing_zahl))

setlength(zahlen, eing_zahl + 1);

zahlen[0] := false;
zahlen[1] := false; // 0 & 1 per Def. nicht prim
zahlen[2] := true; // 2 per Def. prim

for i := 3 to eing_zahl do 
  zahlen[i] := (i mod 2) = 1;

zahl := 2;

while zahl <= limit do
begin
   inc(zahl);

   if not zahlen[zahl] then // Wenn keine Primzahl überspringen
      continue;

   i := zahl * 2;
   while i <= eing_zahl do
   begin
     zahlen[i] := false; // Vielfache einer Primzahlen sind nicht prim
     i := i + zahl;
   end;
end; 

for i := 3 to eing_zahl do 
  if zahlen[i] then
    Memo1.Lines.Add(inttostr(i) + ' ist prim!');

end;                    

1:
2:
3:
4:

if((n * n) % 24 == 1) // wenn man die Schleife bei 5 beginnen läßt (2 und 3 sind ja eh bekannt!)
{

}                    

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:

void PrintPrims(ostream &os, unsigned int nMaxPrim)
{
  os << "2, 3";

  for(unsigned int n=5; n<=nMaxPrim; n+=2)
  {
    unsigned __int64 n2 = n; // avoid overflow
    if((n2 * n2) % 24 == 1) // pre-check for prim
    {
      unsigned int nMax = sqrt(n);
      bool bPrim = true;

      for(unsigned int m=3; m<=nMax; m+=2)
        if(n % m == 0)
        {
          bPrim = false;
          break;
        }

      if(bPrim)
        os << ", " << n;
    }
  }

  os << endl;
}