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

Kenster102.5

Mon Apr 07, 2008 6:28 pm


Need Help In Creating A Decimal to Hexadecimal Program

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

I am creating a program that takes Decimal numbers and results in a Hexadecimal number
I have figured it out so far, but I keep on getting a "String generated by string catenation too long" 

function dectohex (input : int) : string

    var hex := input
    var hexa := ""
    var hexadigit := 0

    loop

        hexadigit := hex mod 16

        if hexadigit > 9 then

            if hexadigit = 10 then

                hexa := "A" + hexa -------------------> This is where the error message occurs.

            elsif hexadigit = 11 then
                hexa := "B" + hexa

            elsif hexadigit = 12 then
                hexa := "C" + hexa

            elsif hexadigit = 13 then
                hexa := "D" + hexa

            elsif hexadigit = 14 then
                hexa := "E" + hexa

            elsif hexadigit = 15 then
                hexa := "F" + hexa

                
                end if

                else hexa := intstr(hexadigit)
                hex := hex div 16
                exit when hex = 0
               
end if

end loop


end dectohex

put dectohex (10)

----------------------------------------------------------
Also what else do I need to get a result of A, B, C, D, E, or F, and where do I place the result statement.
Thank you
Ken


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

LaZ3R

Mon Apr 07, 2008 7:48 pm


RE:Need Help In Creating A Decimal to Hexadecimal Program

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

First of all, use the syntax code if you ever want to post code again.

Secondly... just LOOK at your code...

The value of HEX isn't changing after you leave the if statement within the loop, so you're constantly getting a value of 10 for hexadigit and you will constantly be entering the first part of the if statement which is adding an "A" to the hexa string. 

Strings can only store maximum of 255 characters and that's why yuo are a getting that error when you run it.

Fix it.