Primzahlen programmieren
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
6 Beiträge
•
Seite 1 von 1
6 Beiträge
Seite 1 von 1
Hallo Leute,
bin neu hier, falls ich das Thema im falschen Ordner geöffnet habe tut mir das leid.
Meine Aufgabe ist es,
Primzahlen von 1 bis 1000 durch Divisionsrest zu ermitteln mit der Verwendung von WHILE- als auch DO-Schleifen. Ich weiß nicht, wie ich das mit Algorithmen programmieren muss.
Lieben Dank!
bin neu hier, falls ich das Thema im falschen Ordner geöffnet habe tut mir das leid.
Meine Aufgabe ist es,
Primzahlen von 1 bis 1000 durch Divisionsrest zu ermitteln mit der Verwendung von WHILE- als auch DO-Schleifen. Ich weiß nicht, wie ich das mit Algorithmen programmieren muss.
Lieben Dank!
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Beitrag
von PeterPaletti (Specialist / 336 / 29 /
96
)
»
Mit dem Sieb des Eratosthenes dürfte es folgendermaßen funktionieren
Code: Alles auswählen.
TYPES: BEGIN OF ty_zahl,
zahl TYPE i,
END OF ty_zahl,
tt_zahl TYPE STANDARD TABLE OF ty_zahl.
DATA: gt_zahl TYPE tt_zahl,
gs_zahl TYPE ty_zahl,
ergebnis TYPE i,
multi TYPE i,
mal TYPE i.
* Tabelle mit Zahlen von 1-1000 füllen
DO 1000 TIMES.
gs_zahl-zahl = sy-index.
APPEND gs_zahl TO gt_zahl.
ENDDO.
* Zahl 1 aus Tabelle löschen, weil keine Primzahl.
DELETE gt_zahl WHERE zahl = 1.
* mit Multiplikand 2 beginnen
multi = 2.
WHILE multi LT 32. "32 ist die höchste Zahl
mal = 1.
* Vielfache von Multiplikand errechnen und aus Tabelle löschen
DO.
mal = mal + 1.
ergebnis = multi * mal.
IF ergebnis GT 1000.
EXIT.
ENDIF.
DELETE gt_zahl WHERE zahl = ergebnis.
ENDDO.
multi = multi + 1.
ENDWHILE.
* übrige Zahlen ausgeben
LOOP AT gt_zahl INTO gs_zahl.
WRITE: gs_zahl-zahl.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor PeterPaletti für den Beitrag:
Elcin
Beitrag
von PeterPaletti (Specialist / 336 / 29 /
96
)
»
Mit Divisionsrest könnte es so klappen
DATA: primzahl TYPE i.
DATA: weniger TYPE i.
DATA: ergebnis TYPE p DECIMALS 2.
DATA: keine_primzahl TYPE xfeld.
DATA: primzahl TYPE i.
DATA: weniger TYPE i.
DATA: ergebnis TYPE p DECIMALS 2.
DATA: keine_primzahl TYPE xfeld.
Code: Alles auswählen.
DO 1000 TIMES.
IF sy-index = 1.
CONTINUE.
ENDIF.
primzahl = sy-index.
weniger = primzahl - 1.
CLEAR keine_primzahl.
WHILE weniger GE 2.
ergebnis = primzahl MOD weniger.
IF ergebnis = 0.
keine_primzahl = 'X'.
EXIT.
ENDIF.
weniger = weniger - 1.
ENDWHILE.
IF keine_primzahl IS INITIAL.
WRITE: primzahl.
ENDIF.
ENDDO.
Folgende Benutzer bedankten sich beim Autor PeterPaletti für den Beitrag:
Elcin
Beitrag
von PeterPaletti (Specialist / 336 / 29 /
96
)
»
Ja man könnte das jetzt noch optimieren, in dem man den Teiler für den Divisionsrest bei der Hälfte der möglichen Primzahl beginnen lässt.
Beispiel: wenn ich die Zahl 12 am Wickel habe, dann ist klar, dass sie erst bei der Hälfte, also 6, einen Divisionsrest von 0 ergeben kann. Die Teiler 7 bis 11 kann ich getrost weglassen.
Beispiel: wenn ich die Zahl 12 am Wickel habe, dann ist klar, dass sie erst bei der Hälfte, also 6, einen Divisionsrest von 0 ergeben kann. Die Teiler 7 bis 11 kann ich getrost weglassen.
Seite 1 von 1
Vergleichbare Themen
4
Antw.
Antw.
2975
Views
Views
1
Antw.
Antw.
4956
Views
Views
3
Antw.
Antw.
223
Views
Views
1
Antw.
Antw.
1193
Views
Views
1
Antw.
Antw.
220
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.