Primzahlen bei Delphi finden - Hilfe

[Larsi]

Also erstmal stellst sich da bei mir die Frage: Sicher dass du eine Net Anwendung programmieren willst?
Dann die Lösung^^:

Delphi-Quellcode:

uses
  math;

Function IsPrim(zahl : Integer): boolean;
var
i: integer;
begin
  result := true;
  If zahl = 1 then
  begin
    result := false;
    exit;
  end;
  For i := 2 to Trunc(sqrt(zahl))+1 do
  begin
    If ((zahl mod i) = 0) then
    begin
      result := false;
      exit;
    end;
  end;
end;

Label1.Visible:=IsPrim(4);

Also es ist nicht die Lösung aber schon mal ein Ansatz wie du eine Primzahl erkennst! Das mit dem dass ale Zahlen die zwischen zwei liegen herausfinden würde ich mit einer for- Schleife angehen!
Also sowas wie for 4 to 50!