XProfan

Français

Jac
de
Lad

Folgender de mir entwickelter et meiner attitude pour droite effektiver Code berechnet dans Parcival qui Primzahlen (ici qui profanisierte variante):
Kompilieren Marque Séparation

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 quelqu'un une besseren, 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 citation

Absatzweise Citation Zeilenweise Citation

https://www.mathématique.de/mde/information/la carte/payons/primzahlen.html

comment peux on systematisch alle Primzahlen trouver?

cela bekannteste procéder ist cela Sieb des Eratosthenes, benannt pour dem griechischen Mathematiker Eratosthenes de Kyrene, qui im dritten vorchristlichen siècle lebte.
ici son Vorschlag, um alle Primzahlen pour trouver:

Schreibe qui natürlichen payons, beginnend avec 2, hintereinander hin:
2, 3, 4, 5, 6, 7, 8, 9, ...
Streiche alle echten Vielfachen de 2, alors 4, 6, ...:
2, 3, 4, 5, 6, 7, 8, 9, ...
Streiche alle echten Vielfachen de 3, alors 6, 9, ... (qui 6 ist déjà dans qui ersten Runde ausgeschieden): 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...

et so plus: comme nächstes volonté qui Vielfachen de 5 gestrichen, ensuite qui de 7 usw. Genauer: Im k-ten Durchgang streiche qui Vielfachen qui k-ten numéro, qui jusqu'à dahin encore ,,überlebt hat; c'est ensuite qui k-te Primzahl.

qui Begründung pour den Erfolg des Verfahrens ist léger: chacun pas-Primzahl n hat une echten Primteiler p, et avec cela wird n chez qui trop p gehörigen Streichungsrunde gestrichen.

16.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

non, mir gehts tout autor, si une numéro z& une Primzahl ist. qui Funktion sollte alors plutôt IsPrim appeler.

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 citation

Absatzweise Citation Zeilenweise Citation

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

Kompilieren Marque Séparation

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>}