Delphi-PRAXiS
Seite 2 von 4     12 34      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Primzahlen von 0 bis n (https://www.delphipraxis.net/78077-primzahlen-von-0-bis-n.html)

Hador 29. Sep 2006 17:42

Re: Primzahlen von 0 bis n
 
Liste der Anhänge anzeigen (Anzahl: 1)
Also von 0 - 1.000.000 brauche ich ca. 65 Millisekunden.

EDIT: Bild angehängt.

EDIT2: Wie ermittelst du die denn? BruteForce?

jfheins 29. Sep 2006 17:44

Re: Primzahlen von 0 bis n
 
Zitat:

Zitat von dino
ich habe mit meinem Programm innerhalb von eineinhalb stunden alle Prinzahlen von 1 bis 1Millionen gekriegt. wie lange braucht ihr?

:shock: Was hast du für einen Rechner?

Ich habe mit JAVA für Primzahlen bis 5 Mio. 0.281 sec gebraucht ... (Die Ausgabe dauerte ungleich länger ...)

dino 29. Sep 2006 17:47

Re: Primzahlen von 0 bis n
 
ich hab einen normalen Rechner, bloss nen eigenen code...
der wird wahrscheinlich irre lahm sein!

(mit inttostr und strtoint und listbox raus und rein noch und nöcher)

wollte mal nen Vergleich

Hier mein Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i,i1:integer;
prim:boolean;
begin
listbox1.Items.add('2');
for i:=3 to 1000000 do
begin
prim:=true;
i1:=0;
while strtoint(listbox1.items[i1])<sqrt(i) do
begin
if (i/strtoint(listbox1.Items[i1]))=(i div strtoint(listbox1.Items[i1])) then prim:=false;
inc(i1);
end;
if prim=true then listbox1.items.add(inttostr(i));
gauge1.progress:=i;
gauge2.progress:=i-((i div 10000)*10000);
end;
end;

dino 29. Sep 2006 17:48

Re: Primzahlen von 0 bis n
 
was ist brute force?
habs einfac so emacht, wie es mir einfiel

jfheins 29. Sep 2006 17:53

Re: Primzahlen von 0 bis n
 
Brute Force ist das (systematische) durchprobiern aller Möglichkeiten.

Btw.: Bei dem Code kann ich gut verstehen, dass du eineinhalb Stunden brauchst ;)

Hador 29. Sep 2006 17:56

Re: Primzahlen von 0 bis n
 
Zitat:

Zitat von dino
was ist brute force?

http://de.wikipedia.org/wiki/Bruteforce

Du nutzt zudem noch sehr viele sehr langsame funktionen (bspw. StrToInt oder auch sqrt)

Ferner solltest du dir echt angewöhnen, deinen Quelltext zu strukturieren. Ihn zu lesen ist grausam :wink:

EDIT: Arr der rote Kasten ist mal wieder im Urlaub

dino 29. Sep 2006 17:58

Re: Primzahlen von 0 bis n
 
joa nun da ich mir euer code ansehe...

den 1. kann ich noch nachvollziehen

den 2. nicht

Edit: oh ja Quellcde strukturieren!!! mercks mir mal irgendwann

Hador 29. Sep 2006 18:04

Re: Primzahlen von 0 bis n
 
Zitat:

Zitat von dino
joa nun da ich mir euer code ansehe...
den 1. kann ich noch nachvollziehen
den 2. nicht

Ich auch noch nicht. Hab mir das Asm-Tutorial aber schon rausgekramt (Jetzt habe ich ja 2 Wochen Ferien zum lernen ^^)

Zitat:

Zitat von dino
Edit: oh ja Quellcde strukturieren!!! mercks mir mal irgendwann

Irgendwann wird sonst der Tag kommen, an dem du deine eigenen kurzzeitig nicht bearbeiteten Projekte kaum noch durchblickst.

dino 29. Sep 2006 18:08

Re: Primzahlen von 0 bis n
 
:oops: hab letztens mit meinem JuFo Kollegen mein Ameisenprogramm wieder angeguckt und dran rumprogrammiert(ihr kennt das alte ja) und weiss was du meinst.

Nur: (ich werds nochmal fragen müssen) hab ich jetzt das Problem, dass werte verändert werden ohne verändert zu werden(wir haben alles durchgeguckt, der wert wird nicht per := angerührt), aber das ist eine andere Geschichte


Meld dich, wenn du damit klar kommst

Hador 29. Sep 2006 18:24

Re: Primzahlen von 0 bis n
 
Zitat:

Zitat von dino
Meld dich, wenn du damit klar kommst

Jo mach ich. Ich habe Amateurprofi ja schon angedroht, dass ich ihn ggf. ausfragen werde ^^


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:42 Uhr.
Seite 2 von 4     12 34      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz