Primzahlensieb und Realisierung

coolbininet · 07.05.2005, 10:57

Hallo Leute!

Möchte gerne ein Primzahlensieb in VB schreiben. Mein Gedanke ist der, dass ich eine Möglichkeit (Zahlengenerator) baue, der immer nur Zahlen ausgibt, die nur durch sich selbst und durch 1 zu dividieren ist (es bleibt kein Rest bei der Division). Es muss sich um die Reihe der natürlichen Zahlen handeln und größer als 1 und 2 sein. Nach dieser kurzen Erklärung frage ich, kann mir jemand helfen ein Progrämmchen danach zu schreiben?

Lg

Coolbininet

jak · 07.05.2005, 11:23

Die "Standardmethode" um das Sieb des Erathostenes zu implementieren ist ein großes Array aus einsen, in dem man die Vielfachen auf 0 setzt (oder umgekehrt). Nachdem der Standardwert eines boolean AFAIK false ist, ist es sinnvolle die gestrichenen auf true zu setzen:

Code:

Dim sieb() As Boolean
Dim max As Integer 'wenn du größere Zahlen als 32.767 berechnen willst nimm halt double
max=1000 'Nur Primzahlen < 1000 berechnen
For i=1 to max
  Dim j As Integer
  j=2*i
  Do
   sieb(j)=false
   j=j+i
  Loop while (j<max/2)
next i
For i=1 to max
 if sieb(i) then
  'Zahl ist primzahl
 else
  'Zahl ist keine Primzahl
 end if
Next i

Sollte funktionieren, muß aber nicht (habe z.B. keine Ahnung wie VB Arrays behandelt)...

Jak

pong · 07.05.2005, 11:53

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

als Test einfach die 2er Division, Milla-Rabin und Fermat

Die Zahl nimmst einfach als dynamisches Array an, dann hast auch keine Probleme mit der Größenbeschränkung

pong

coolbininet · 07.05.2005, 12:21

Was ist ein dynamisches Array und wie behandle ich dass programmiertechnisch?

Grüsse Coolbininet

Blaues U-boot · 07.05.2005, 12:43

so hab schnell dieses programm geschrieben
berechnet die primzahlen bis 1M
viel spaß

pong · 07.05.2005, 13:43

Zitat:

Original geschrieben von coolbininet
Was ist ein dynamisches Array und wie behandle ich dass programmiertechnisch?

Grüsse Coolbininet

in C und Cobol wäre das kein Problem dies zu beantworten, aber vor VB graust es mir, somit bin ich dahingehend weiter in Berührung gekommen, als ich es musste

@Blaues U-boot darf ich bemerken, dass es mir vor deinem Code ekelt?

pong

Blaues U-boot · 08.05.2005, 16:42

doppelpost
(kleinere verbindungstroubles)

Blaues U-boot · 08.05.2005, 16:44

irgentwie ist die formatierung verschwunden

so wies aussieht grausts mich auch

hab jetzt gleich die exe mitgeliefert

07.05.2005, 10:57	#1
coolbininet Hero Registriert seit: 19.09.2001 Alter: 46 Beiträge: 859	Primzahlensieb und Realisierung Hallo Leute! Möchte gerne ein Primzahlensieb in VB schreiben. Mein Gedanke ist der, dass ich eine Möglichkeit (Zahlengenerator) baue, der immer nur Zahlen ausgibt, die nur durch sich selbst und durch 1 zu dividieren ist (es bleibt kein Rest bei der Division). Es muss sich um die Reihe der natürlichen Zahlen handeln und größer als 1 und 2 sein. Nach dieser kurzen Erklärung frage ich, kann mir jemand helfen ein Progrämmchen danach zu schreiben? Lg Coolbininet ____________________________________ Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst! Website RI Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden. \|Marktorientierter Sozialist\|Menschenfreund\|Teamfähig\|Analytiker\|Logi ker\| If you want to see the Sky, fuck a Duck and learn to fly! Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten! Möge die MACHT mit uns sein!

07.05.2005, 11:23	#2
jak Inventar Registriert seit: 13.06.2001 Beiträge: 1.830	Die "Standardmethode" um das Sieb des Erathostenes zu implementieren ist ein großes Array aus einsen, in dem man die Vielfachen auf 0 setzt (oder umgekehrt). Nachdem der Standardwert eines boolean AFAIK false ist, ist es sinnvolle die gestrichenen auf true zu setzen: Code: Dim sieb() As Boolean Dim max As Integer 'wenn du größere Zahlen als 32.767 berechnen willst nimm halt double max=1000 'Nur Primzahlen < 1000 berechnen For i=1 to max Dim j As Integer j=2*i Do sieb(j)=false j=j+i Loop while (j<max/2) next i For i=1 to max if sieb(i) then 'Zahl ist primzahl else 'Zahl ist keine Primzahl end if Next i Sollte funktionieren, muß aber nicht (habe z.B. keine Ahnung wie VB Arrays behandelt)... Jak ____________________________________ Join the DNRC \| Godwin\'s Law (thx@stona) Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing. \"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)

07.05.2005, 11:53	#3
pong Inventar Registriert seit: 25.12.2000 Alter: 41 Beiträge: 9.063 Mein Computer	http://de.wikipedia.org/wiki/Primzahltest als Test einfach die 2er Division, Milla-Rabin und Fermat Die Zahl nimmst einfach als dynamisches Array an, dann hast auch keine Probleme mit der Größenbeschränkung pong ____________________________________ \"Ein Gewitter reinigt die Luft\", sagte der Mann, nachdem ein Blitz seine Frau erschlug Nicht klicken! Erstposteralarm/Beschwerde/Kummerkasten Verplattet

07.05.2005, 12:21	#4
coolbininet Hero Registriert seit: 19.09.2001 Alter: 46 Beiträge: 859	Was ist ein dynamisches Array und wie behandle ich dass programmiertechnisch? Grüsse Coolbininet ____________________________________ Wenn du eine helfende Hand brauchst, tust du gut wenn, du sie an den eigenen Armen suchst! Website RI Nur der Kleingeist hält Ordnung das Genie überblick das Chaos! Genie und Wahnsinn liegen dicht nebeneinander, sie können und sollen nicht getrennt werden. \|Marktorientierter Sozialist\|Menschenfreund\|Teamfähig\|Analytiker\|Logi ker\| If you want to see the Sky, fuck a Duck and learn to fly! Mein Glück ist nicht von dieser Welt, insbesondere im Umgang mit Microsoft Produkten! Möge die MACHT mit uns sein!

07.05.2005, 12:43	#5
Blaues U-boot blupp, blupp Registriert seit: 27.04.2004 Ort: µ/4 Alter: 37 Beiträge: 2.552 Mein Computer	so hab schnell dieses programm geschrieben berechnet die primzahlen bis 1M viel spaß ____________________________________ mfg ein piepser aus dem ozean

08.05.2005, 16:42	#7
Blaues U-boot blupp, blupp Registriert seit: 27.04.2004 Ort: µ/4 Alter: 37 Beiträge: 2.552 Mein Computer	doppelpost (kleinere verbindungstroubles) ____________________________________ mfg ein piepser aus dem ozean

08.05.2005, 16:44	#8
Blaues U-boot blupp, blupp Registriert seit: 27.04.2004 Ort: µ/4 Alter: 37 Beiträge: 2.552 Mein Computer	irgentwie ist die formatierung verschwunden so wies aussieht grausts mich auch hab jetzt gleich die exe mitgeliefert ____________________________________ mfg ein piepser aus dem ozean

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln