Hey Fabian,
ich mache gerade auch was in Delphi mit Primzahlen. Hab hier schon einen unoptimierten Code.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| repeat
iCount := iCount + 1;
bNoPrim := False;
for iNummeric := iCount - 1 DownTo 2 do
if Pos(',', FloatToStr(iCount / iNummeric)) = 0 then
begin
Writeln(IntToStr(iCount) + ' teilbar durch ' + IntToStr(iNummeric));
bNoPrim := True;
Break;
end;
if bNoPrim = False Then Writeln(IntToStr(iCount) + ' PRIM');
until iCount = 9223370000000000000; |
Unoptimiert deshalb weil er tausende unnützer rechen operatoren macht. Alle Zahlen die gerade sind brauch er ja gar nicht erst probieren.
Mein größeres Problem ist aber eher das ich Primzahlen mit über 4 Millionen stellen berechnen will, und das geht halt nicht mit Int64. Da hab ich nur 19.[/code]
