fcn tobinary (num1 : string) : real
    %Converts a decimal number to a binary number
    var whole : string := ""
    var remainder : string := ""
    var Whole : int
    var Remainder : real
    var position : int
    for i : 1 .. length (num1)
        if num1 (i) = "." then
            position := i
        end if
    end for
    for i : 1 .. length (num1)
        if i < position then
            whole += num1 (i)
        elsif i >= position then
            remainder += num1 (i)
        end if
    end for

    Whole := strint (whole)
    Remainder := strreal (remainder)






    var temp : int
    var binary : string
    var num := Whole
    var intPower : int := 0
    var decimal : int := 0
    loop
        temp := num mod 2
        if temp = 1 then
            decimal := decimal + (10 ** intPower)
        end if
        intPower := intPower + 1
        num := num div 2
        exit when num = 0
    end loop
    binary := intstr (decimal)
    if Whole < 0 then
        binary := "-" + binary
    end if












    var decimalremainder : real := Remainder
    var decimalremainder1 : real
    var tempdecimal : string := ""
    var check : string
    var count : int := 0
    var del : real
    var remainder1 : string := "0"
    loop
        decimalremainder1 := decimalremainder * 2
        if decimalremainder1 >= 1 then
            tempdecimal += "1"
        else
            tempdecimal += "0"
        end if

        check := realstr (decimalremainder1, 1)
        for i : 1 .. length (check)
            if num1 (i) = "." then
                position := i
            end if
        end for
        for i : position .. length (check)
            remainder1 := check (i)
        end for
        del := strreal (remainder1)
        count += 1
        exit when del <= 0.10 or count = 14
    end loop

    var reorder : string := "."

    for decreasing i : length (tempdecimal) .. 1
        reorder += tempdecimal (i)
    end for

    var finally := strreal (binary) + strreal (reorder)

    result finally
end tobinary


put tobinary ("5.5")

decimalremainder1 := decimalremainder * 2
        if decimalremainder1 >= 1 then
            tempdecimal += "1"
        else
            tempdecimal += "0"
        end if