PureBoard

Verfasst: **13.11.2006 23:12**

Was hälst du davon:

Procedure.q IsPrimzahl(Zahl.q)
    For Z=2 To (Zahl/2)
        If((Zahl%Z)=0)
            ProcedureReturn #False
        EndIf
    Next
    ProcedureReturn #True
EndProcedure

Verfasst: **13.11.2006 23:26**

Noch besser :

bis zur Wurzel von Zahl reich auch

Code: Alles auswählen

Procedure.q IsPrimzahl(Zahl.q) 
    For Z=2 To int(sqr(Zahl)) 
        If((Zahl%Z)=0) 
            ProcedureReturn #False 
        EndIf 
    Next 
    ProcedureReturn #True 
EndProcedure

PureBoard

Primzahlen