Code: Select all
a=1.111111
b$="#.###########"
itog$=str$(a,b$)
print itog$
Code: Select all
a=1.111111
b$="#.###########"
itog$=str$(a,b$)
print itog$
Code: Select all
option base 1
a=21455.1111
b$="#.###########"
itog$=str$(a,b$)
itog$=REVERSE$ (itog$)
for i=1 to 13
if INSTR (itog$, "0")=1 then itog$=MID$ (itog$, 2) else goto 5
next i
5 itog$=REVERSE$ (itog$)
print itog$