Well, if you want the negative sign (-) to be before the reversed number, try this:
| code: |
function reverseNumber (rev : real) : real var snum : string var srevnum2 : string := "" snum := realstr (abs (rev), 0) if sign (rev) = -1 then %you could just use if rev < 0 but this is more fun ;) srevnum2 += "-" end if for decreasing i : length (snum) .. 1 srevnum2 += snum (i) end for result strreal (srevnum2) end reverseNumber var rnum : real put "Enter an number" get rnum put "The reverse of your number is: ", reverseNumber (rnum) |
Otherwise, if you want it at the end (as if everything were reversed), you're going to need to output a string. For that, try this:
| code: |
function reverseNumber (rev : real) : string var snum : string var srevnum2 : string := "" snum := realstr (rev, 0) for decreasing i : length (snum) .. 1 srevnum2 += snum (i) end for result srevnum2 end reverseNumber var rnum : real put "Enter an number" get rnum put "The reverse of your number is: ", reverseNumber (rnum) |
EDIT: notice my post is a little hard to read? It's because everything has been shoved to the right due to your over-sized avatar. Please, shrink it down.
EDIT EDIT: much better
