Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Primzahlen-Programm

   
    by Sir Rufo, 1. Dez 2015
  I know :stupid:
  
  Ich wollte in dem Quelltext die Vorüberlegung quasi 1:1 reinbringen.
  
  Als Lerneffekt: Eigentlich programmiere ich so, wie man denkt/spricht/schreibt.
  
  Die gerundete Quadratwurzel als Maximum und mit dem kleinesten Wert beginnen ist dann Performance-Optimierung.
  
  Also nach dem Motto:
• Forum: Programmieren allgemein

  AW: Primzahlen-Programm

   
    by Sir Rufo, 1. Dez 2015
  Als erstes solltest du planen, dir eine eigene IsPrime Funktion zu schreiben.
  
  function IsPrime( Value : Int64 ) : Boolean;
  begin
  Result := ( Value mod 2 = 0 ); // Ein Fake
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  const
  CBoolStr: array of string = ;