Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Sieb des Eratosthenes

    Delphi
    by marabu, 23. Dez 2005
  Hallo Foxgrove,
  
  die innere Schleife ist eigentlich nicht so sehr problematisch - man darf dabei nur nicht ständig in BASIC denken. Ich habe mich bemüht möglichst nah an deiner Vorgabe dran zu bleiben, aber das zweite Array war mir dann doch zu viel des Guten.
  
  
  function Sieve(iMax: integer): TIntegerDynArray;
  var
  i, iStep, iRoot: integer;
  begin
  iRoot := Round(Sqrt(iMax));