-----------------------------------

TokenHerbz

Mon Jul 31, 2006 12:49 pm


Im trying to get Base10 numbers to show as Base2

-----------------------------------

Here is my code:
Needing help with >>>fcn base10_base2 base2


var total : int

%%will change a base10 number into base2
fcn base10_base2 (base_number : int) : int
    var base2 : flexible array 1 .. 0 of int
    var number : int := base_number
    var join_numbers : string := ""

    loop
        new base2, upper (base2) + 1    %%adds an array as the numbers are coming
        if number rem 2 = 1 then            %%if numbers odd it will add a one
            base2 (upper (base2)) := 1
        else
            base2 (upper (base2)) := 0      %%if numbers even it will add a zero
        end if
        number div= 2               %%we divide the number by 2

        exit when number / 2