33 lines
629 B
QBasic
33 lines
629 B
QBasic
|
loop = 1
|
|||
|
|
while loop
|
|||
|
|
n$ = ""
|
|||
|
|
print
|
|||
|
|
input "Decimal number";d
|
|||
|
|
input "New base";b
|
|||
|
|
print : print d;" base 10 equals ";
|
|||
|
|
while d
|
|||
|
|
call convert
|
|||
|
|
wend
|
|||
|
|
print n$;" base ";b : print
|
|||
|
|
input "Convert another";r$
|
|||
|
|
c$ = left$(r$,1)
|
|||
|
|
if (c$ = "y" or c$ = "Y") _
|
|||
|
|
then loop = 1 _
|
|||
|
|
else loop = 0
|
|||
|
|
wend
|
|||
|
|
end
|
|||
|
|
sub convert static
|
|||
|
|
shared d,b,n$
|
|||
|
|
r = d mod b
|
|||
|
|
d = d\b
|
|||
|
|
if r > 9 then goto letter _
|
|||
|
|
else _
|
|||
|
|
dgt$ = str$(r)
|
|||
|
|
ln = len(dgt$) - 1
|
|||
|
|
n$ = right$(dgt$,ln) + n$
|
|||
|
|
exit sub
|
|||
|
|
letter:
|
|||
|
|
dgt$ = chr$(65 + r -10)
|
|||
|
|
n$ = dgt$ + n$
|
|||
|
|
end sub
|
|||
|
|
|