XProfan

English

Julian
Schmidt

cls
print Gerade_oder_Ungerade(7)
print Gerade_oder_Ungerade(900)
print Gerade_oder_Ungerade(32879237497893)
waitinput

Proc Gerade_oder_Ungerade

    Parameters number%
    Return If(number% MOD 2=0,"Gerade","Ungerade")

or as Constant...
Compile Mark Separation

Def Gerade_oder_Ungerade(1) If(@%(1) MOD 2=0,"Gerade","Ungerade")
cls
print Gerade_oder_Ungerade(7)
print Gerade_oder_Ungerade(900)
print Gerade_oder_Ungerade(32879237497893)
waitinput

XProfan X2
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

10/07/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

or as Constant...

the called incidentally a function.

If you the Result this function for many/speedy Berechnungen need should, is it better simply a 0 for "gerade" and a 1 for "nicht gerade" zurückzugeben.
Compile Mark Separation

Def NotEven(1) &(1) Mod 2

WhileLoop 20

    Print &Loop,&Loop Mod 2,NotEven(&Loop)

Wend

WaitI

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/07/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Have too another...
Compile Mark Separation

cls
print nValueIsEvenBench()/valueIsEvenBench(),"times faster"
waitinput
end

valueIsEvenBench(){

    long c,tme=getTickCount+1000

    while getTickCount<tme {

        valueIsEven(getTickCount)
        c++

    }

    return c

}

nProc nValueIsEvenBench(){

    long c,tme=getTickCount+1000

    while getTickCount<tme {

        nValueIsEven(getTickCount)
        c++

    }

    return c

}

valueIsEven(long value){return value mod 2}

nProc nValueIsEven(long value){return value mod on>}