XProfan

Titre de la fenêtre "Bin2Gray et Gray2Bin"
' Binärcode pour Graycode et zurückwandeln
' (CL) Copyleft 2013-06 by P. Specht
' Q: https://de.wikipedia.org/wiki/Gray-Code
cls:font 2:Windowstyle 1048
var v$=mkstr$("0",32):declare gray&

whileloop 0,20000000

    locate 10,23:imprimer right$(v$+suis$(&Boucle),32)
    gray&=suis2gray(&Boucle)
    locate 14,23:imprimer right$(v$+suis$(gray&),32)
    locate 18,23:imprimer right$(v$+suis$(gray2suis(gray&)),32)
    waitinput 400

endwhile

waitinput
end

proc suis2Gray

    parameters bin&
    return xor(bin&,bin&\2)

endproc

proc Gray2suis

    parameters Gray&
    declare i&,k&

    whileloop 31,0,-1:i&=&Boucle

        k&=k& | XOR((((1 <<(&Boucle+1)) & k&)>>1),(1<<&Boucle) & Gray&)

    endwhile

    return k&'Binär

endproc