Español
Fuente/ Codesnippets

Berechnen Primzahl

 

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):
KompilierenMarcaSeparació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  
 



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  
 




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  
 



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

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



Mach veces después de XProfan...
 
16.06.2008  
 




Jac
de
Lad
Was es el Diferencia zwischen != y ==?
 
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  
 



!= es ungleich (<>), == es igual (=)

Lol Yo sehe grad uno sólo una Línea ändern y XPSE sería lo XProfan hacer muhhaa...
 
16.06.2008  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

8.346 Views

Untitledvor 0 min.
Uwe Lang vor 10 Tagen
p.specht17.10.2018
Jörg Sellmeyer18.05.2018
Michael W.27.03.2016
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

iF (3x)
Jac de Lad (3x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie