AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Primzahlen von 0 bis n

Ein Thema von Hador · begonnen am 28. Sep 2006 · letzter Beitrag vom 29. Sep 2006
Antwort Antwort
Seite 2 von 4     12 34      
Benutzerbild von Hador
Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge
 
Turbo Delphi für Win32
 
#11

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:42
Also von 0 - 1.000.000 brauche ich ca. 65 Millisekunden.

EDIT: Bild angehängt.

EDIT2: Wie ermittelst du die denn? BruteForce?
Miniaturansicht angehängter Grafiken
prim_343.png  
Lars Kiesow
http://www.larskiesow.de

Computer gehorchen deinen Befehlen, nicht deinen Absichten.
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#12

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:44
Zitat von dino:
ich habe mit meinem Programm innerhalb von eineinhalb stunden alle Prinzahlen von 1 bis 1Millionen gekriegt. wie lange braucht ihr?
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 ...)
  Mit Zitat antworten Zitat
dino

Registriert seit: 15. Jul 2006
Ort: Bad Münstereifel
627 Beiträge
 
Delphi 5 Professional
 
#13

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:47
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;
  Mit Zitat antworten Zitat
dino

Registriert seit: 15. Jul 2006
Ort: Bad Münstereifel
627 Beiträge
 
Delphi 5 Professional
 
#14

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:48
was ist brute force?
habs einfac so emacht, wie es mir einfiel
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#15

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:53
Brute Force ist das (systematische) durchprobiern aller Möglichkeiten.

Btw.: Bei dem Code kann ich gut verstehen, dass du eineinhalb Stunden brauchst
  Mit Zitat antworten Zitat
Benutzerbild von Hador
Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge
 
Turbo Delphi für Win32
 
#16

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:56
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

EDIT: Arr der rote Kasten ist mal wieder im Urlaub
Lars Kiesow
http://www.larskiesow.de

Computer gehorchen deinen Befehlen, nicht deinen Absichten.
  Mit Zitat antworten Zitat
dino

Registriert seit: 15. Jul 2006
Ort: Bad Münstereifel
627 Beiträge
 
Delphi 5 Professional
 
#17

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 17:58
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
  Mit Zitat antworten Zitat
Benutzerbild von Hador
Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge
 
Turbo Delphi für Win32
 
#18

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 18:04
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 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.
Lars Kiesow
http://www.larskiesow.de

Computer gehorchen deinen Befehlen, nicht deinen Absichten.
  Mit Zitat antworten Zitat
dino

Registriert seit: 15. Jul 2006
Ort: Bad Münstereifel
627 Beiträge
 
Delphi 5 Professional
 
#19

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 18:08
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
  Mit Zitat antworten Zitat
Benutzerbild von Hador
Hador

Registriert seit: 11. Dez 2004
Ort: Recke
682 Beiträge
 
Turbo Delphi für Win32
 
#20

Re: Primzahlen von 0 bis n

  Alt 29. Sep 2006, 18:24
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 ^^
Lars Kiesow
http://www.larskiesow.de

Computer gehorchen deinen Befehlen, nicht deinen Absichten.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 4     12 34      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:44 Uhr.
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