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.