In einer Listbox nach Strings suchen

[killerkarl]

Moin also ich möchte gerne Primzahlen finden, für die gilt:

(p-1)/2 = Primzahl

Ich habe mir dazu eine Textdatei mit Primzahlen aus dem Netz gesogen..
Jetzt möchte ich vom höchsten Wert beginnend gucken ob dies zuftrifft, also praktisch

Delphi-Quellcode:

var i, j:Integer;
begin
for i:=Listbox1.Items.Count-1 downto 0
do begin
  for j:=0 to Listbox1.Items.Count-1
  do begin
    if FloatToStr((i-1)/2) = Listbox1.Items.Strings[j]
    then Listbox2.Items.Add(IntToStr(i)+' - ('+FloatToStr((i-1)/2)+')');
  end;
end;

Die möglichkeit, wie ich sie oben beschrieben habe ist sehr Zeitaufwendig..

Würde mich über Antwort freuen.

[Dust Signs]

1.) die Schleife muss downto laufen
2.) die Schleife muss bei 0 enden und bei listbox1.items.count -1 enden
3.) Ich versteh kein Wort von dem, was du schreibst. Primzahl hab ich irgendwo gelesen...

Dust Signs

[KLS]

Nun Strings vergleichen dauert eben...

Ich würde anders an die sache ran gehen. Zuerst aber die Frage in welchem Bereich liegen den die Zahlen?

[killerkarl]

Also es sind 315.948 Primzahlen
von 2 bis 4.499.969
das sind so ca.
99.823.138.704 Rechnungen...
Das dauert..

[KLS]

Also mein programm schafft es von 0-5.000.000 in 72s (laut Taskmgr). (P4 3GHz)

interesse am programm/ergebnissdatei?

Meine vorgehensweise:

ich berechne alle primzahlen von 0-5.000.000 und speichere diese in einem array.

dann berechne ich aus jeder dieser primzahlen den wert ((p-1)/2) besser ((p-1) shr 1) *g* und prüfe ob das ergebnis im primzahlenarray ist, fertig.

PS: das primzahlenprogramm ansich hatte ich bereits, ich hab es nur ergänzt.


Wenn ich irgendwas falsch verstanden habe, dann sag es mir bitte *g*

die ersten paar Zahlen unter 100

5
7
11
23
47
59
83

EDIT: es gibt "nur" 348.513 Primzahlen im bereich 0-5.000.000
Edit2: Ja ich werd mir abgewöhnen immer leerzeilen zu machen...

[killerkarl]

Cool
Wäre auf jeden Fall cool, wenn du mir mal das ganze Prog (projekt, unit und co) schicken kannst...
Ich wäre sowieso interessiert, wie man die Primzahlen ausrechnet..
[e-mail]
merci

[KLS]

Kein problem, aber der code ist schon reichlich optimiert... fehlt eigentlich nur noch das den jemand zu asm macht *g*

ich hab das in einer konsolenanwendung.

[Binärbaum]

Mit folgender Funktion müsste man Primzahlen ausrechnen können. Die Funktion gibt für jede übergebene Zahl (>2) True zurück, wenn es eine Primzahl ist, sonst False.

Delphi-Quellcode:

function IstPrim(n: Cardinal): Boolean;
var i,grenze: Integer;
begin
 Result:= True;
 if (n mod 2)=0 then 
 begin 
  Result:= False;
  Exit;
 end;
 i:= 3;
 grenze:= Trunc(sqrt(n)) +1;
 while ((i<=grenze) and Result) do
 begin
  Result:= (((n mod i)<>0) and (i<>n));
  i:= i+2;
 end;
end;

Ich habe die Funktion noch nicht getestet, aber sie müsste funktionieren. Evtl. kann man das dann noch etwas optimieren.

Hinweis: Der Parameter n muss größer als zwei sein, damit die Funktion funktioniert.

[killerkarl]

Cool Danke

[KLS]

Hoi, ich hab noch ein wenig optimiert, jetzt brauch ich nicht mehr 72s sondern nur 0,1616s. ;)

Noch mal interesse, oder reicht dir das was du hast?