XProfan

Español

Jac
de
Lad

Folgender de me entwickelter y meiner Meinung después de bastante effektiver Code berechnet en Parcival el Primzahlen (hier el profanisierte Variante):
Kompilieren Marca Separación

proc Primzahl

    Parameters z&
    declare f&,n&,x%,y%

    if z&>0

        Select z&

            CaseOf 3,2,7,5

            Return 1

            CaseOf 1

            Return 0
            Otherwise
            casenot z& MOD 2:Return 0
            f&=1
            n&=Int(Sqrt(z&))
            Inc x%

            while (f&<n&) & x%

                Inc f&,2
                casenot z& MOD f&:Dec x%
                y%=Not(y%)

            endwhile

            Return x%

        EndSelect

    else

        Return -1 Ungültige Zahl

    endif

ENDPROC

Kennt alguien mejor, effektiveren Code?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

16.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

https://www.mathematik.de/mde/information/landkarte/zahlen/primzahlen.html

¿Cómo se puede uno systematisch todos Primzahlen encontrar?

Das bekannteste Verfahren es el Sieb des Eratosthenes, benannt después de el griechischen Mathematiker Eratosthenes de Kyrene, el en el dritten vorchristlichen Jahrhundert lebte.
Hier ser Vorschlag, en todos Primzahlen para encontrar:

Schreibe el natürlichen Pagar, beginnend con 2, hintereinander hin:
2, 3, 4, 5, 6, 7, 8, 9, ...
Streiche todos echten Vielfachen de 2, also 4, 6, ...:
2, 3, 4, 5, 6, 7, 8, 9, ...
Streiche todos echten Vielfachen de 3, also 6, 9, ... (el 6 es ya en el ersten Runde ausgeschieden): 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...

Und así más: Als nächstes voluntad el Vielfachen de 5 gestrichen, entonces el de 7 usw. Genauer: Im k-ten Durchgang streiche el Vielfachen el k-ten Zahl, el a dahin todavía ,,überlebt hat; el es entonces el k-te Primzahl.

El Begründung para el Erfolg des Verfahrens es ligeramente: Jede No-Primzahl n ha una echten Primteiler p, y así se n en a p gehörigen Streichungsrunde gestrichen.

16.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Nein, me gehts por lo tanto, si una Zahl z& una Primzahl es. El Función debería also más IsPrim heißen.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

16.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

https://www.hackerboard.de/thread.php?threadid=4852

Kompilieren Marca Separación

int isprimzahl(int value)

{

    int tempo = 0;
    int testa = 0;

    if (value == 0)

        return -1;
        for(tempo = 2; tempo < value; tempo++)

        {

            testa = value % tempo;

            if ( (testa == 0) && (tempo != value) && (tempo != 1))

                return 0;

            }

            return 1;

        r=#0000FF>}