Anonymous user
Decimal floating point number to binary: Difference between revisions
Decimal floating point number to binary (view source)
Revision as of 11:40, 1 November 2018
, 5 years ago→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 596:
neg=left$(n$,1)="-": if neg then n$=mid$(n$,2)
if instr(n$, dp$)>0 then {
n2$=Piece$(n$,dp$,2)
n$=Piece$(n$, dp$,1)
} else n2$=""
n0=0
Line 609:
next i
if n2$<>"" then {
For i=1 to len(n2$)
dig$=Mid$(n2$,i,1)
dig=asc(dig$)-48
Line 615:
if dig>=frombase then error "not in base:"+frombase
n0+=dig/frombase^i
if neg then n0-!
=n0
Line 623:
a$=""
neg=false
if dec<0 then neg=
dec=abs(dec)
n2=frac(dec)
Line 633:
} until dec==0
if n2<>0 then {
do {
dec=n2*tobase
n2=frac(dec)
dec-=n2
if dec>=10 then dec+=7
a$+=chr$(dec+48)
}
if neg then {="-"+a$} else
}
Print Conv2dec("10111.01011",2); " => ";Conv2Any$(23.34375,2)
Line 657:
11,90625
</pre>
=={{header|Maple}}==
|