Thema Datum  Von Nutzer Rating
Antwort
26.02.2004 10:21:31 manuel
NotSolved
Blau Aw:Primzahl
 26.02.2004 12:33:51 Rasta
Solved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
26.02.2004 12:33:51		 Views:
1178		 Rating:
     
Antwort:
 Nein
Thema:
Aw:Primzahl
Hallo Manuel,

folgenden Quellcode kann ich Dir anbieten:

Dim i As Long, bis As Long
bis = Text7.Text
Dim Sieb() As Boolean
ReDim Sieb(bis + 1)
For i = 0 To bis + 1
Sieb(i) = True
Next i

Dim currentPrim, viel As Double
currentPrim = 2

While (currentPrim < (bis + 1) / 2)
viel = currentPrim + currentPrim 'Vielfache initialisieren
If Sieb(currentPrim) Then 'Ueberpruefen, ob mit einer Primzahl gesiebt wird, wenn ja:
For i = 2 To bis + 1
Sieb(viel) = False 'Vielfache heraussieben, das sind keine Primzahlen
viel = viel + currentPrim
If viel > bis + 1 Then Exit For
Next i
End If
currentPrim = currentPrim + 1
Wend
Dim ColCount As Double
ColCount = 0 'eine Spaltenzaehlvariable wird initialisiert.
Dim intervallAnfang As Integer
intervallAnfang = 2
For i = intervallAnfang To bis + 1 ' { //gemaess d. Eingabe bis z. Ende ausgeben
If Sieb(i) Then 'wenn es sich um eine Primzahl handelt.
ColCount = ColCount + 1 'danach wird die naechste Spalte vorgemerkt,
List7.AddItem i ' //Die Primzahl ausgegeben
End If
Next i

---------------------------------

Du musst dem Programm lediglich die Zahl übergeben(über textbox7) und das Programm listest Dir alle Primzahlen in einer Liste(List7) auf.

Viele Grüße

Rasta


manuel schrieb am 26.02.2004 10:21:31:

hallo zusammen,

hat jemand von euch ein funktionierendes programm welches mit ausrechnet ob eine eingegebene zahl ne primzahl ist?

gruss manuel!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.02.2004 10:21:31 manuel
NotSolved
Blau Aw:Primzahl
 26.02.2004 12:33:51 Rasta
Solved