XProfan

English

Jac
de
Lad

Folgender of me entwickelter and of my opinion to right effective code accounts in Parcival The Primzahlen (here The profanisierte Variante):
Compile Mark Separation

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

knows someone a better, 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

06/16/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

https://www.maths.de/mde/information/landkarte/numbers/primzahlen.html

How can systematic any Primzahlen find?

the bekannteste take action is the Sieb the Eratosthenes, benannt to the greek Mathematiker Eratosthenes of Kyrene, the in the third vorchristlichen centenary lived.
here his suggestion, circa any Primzahlen to find:

write The natural numbers, beginnend with 2, one after another there:
2, 3, 4, 5, 6, 7, 8, 9, ...
Streiche any real Vielfachen of 2, means 4, 6, ...:
2, 3, 4, 5, 6, 7, 8, 9, ...
Streiche any real Vielfachen of 3, means 6, 9, ... (The 6 is already in the first round ausgeschieden): 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, ...

an so on: as nächstes go The Vielfachen of 5 gestrichen, then The of 7 etc. Accurate: in the k-ten Passage streiche The Vielfachen the k-ten number, The by then yet ,,survive hat; this is then The k-th Primzahl.

The Begründung for success the Verfahrens is easy: Each not-Primzahl n has a real Primteiler p, and so becomes n with the To p gehörigen Streichungsrunde gestrichen.

06/16/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

No, me GEHTS therefore, whether a number z& a Primzahl is. The function ought to means sooner IsPrim hot.

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

06/16/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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

Compile Mark Separation

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