Someone can helpme and tell me that this program works well
Posted: Mon Aug 18, 2008 2:53 pm
Deleted!!!
Discuss QBasic, Freebasic, QB64 and more
http://petesqbsite.com/phpBB3/
Code: Select all
'De base 10 lo transformamos a la base destino
DO
d# = a# MOD basdes
IF d# > 10 THEN
d$ = CHR$(55 + d#)
ELSE
d$ = LTRIM$(STR$(d#))
END IF
a1$ = d$ + a1$
a# = a# \ basdes
LOOP UNTIL a# = 0
PRINT a1$
SYSTEM
Code: Select all
FUNCTION Dec2Base$(decnum&, CBase%)
DO
remain% = decnum& MOD CBase% 'remainder sets next digit
decnum& = decnum& \ CBase% 'discard any remainder with integer division
Rnum$ = LTRIM$(STR$(remain%)) 'make base string number from remainder
Dec2Base$ = Rnum$ + Dec2Base$ 'add remainder to base number
LOOP UNTIL decnum& = 0
END FUNCTION