XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zahlensysteme: binär <-> dezimal
Autor: Dieter Zornow
code zur freien Verwendung
XProfan 9 beta

proc BinToDez

    parameters bin$
    declare count%,sum&,place%
    sum& = 0
    count% = len(bin$)
    place% = count%

    whileloop 0,count%-1 Profan ab 7.0

        sum& = sum& + Val(mid$(bin$,place%,1)) * 2 ^ &loop
        dec place%

    endwhile

    return sum&

endproc

proc DezToBin

    parameters dez&
    @Set(Decimals,0) Profan 9.0
    declare rest$,temp&,return$
    rest$ =

    whilenot dez& < 1

        temp& = dez&  2
        rest$ = rest$ + str$(dez& mod 2)
        dez& = temp&

    endwhile

    temp& = len(rest$)
    return$ =

    whileloop len(rest$) Profan ab 7.0

        return$ = return$ + mid$(rest$,temp&,1)
        dec temp& Profan ab 8.0

    endwhile

    @Set(Decimals,6) Profan 9.0
    return Trim$(return$)

endproc

cls
BinToDez str$(11101101)
print @&(0)
DezToBin @&(0)
print @&(0)
waitinput
end