bigint + bigreal try

[bluatigro]

i know that JB can haldle big int's
but i want big real's to
this is a try to make them

first step : + and * for positive big int's
i need help whit - and / for al big int's
and if have them i wil try big real


'' bluatigro 31 jul 2018
'' bigint + bigreal
q$ = "2"
f$ = "2"
for i = 1 to 20
 print i , q$
 q$ = multiply$( q$ , f$ )
next i
end
function zero$( i )
 zero$ = left$( "00000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 , i )
end function
function add$( a$ , b$ )
 if len( a$ ) < len( b$ ) then
   a$ = zero$( len( b$ ) - len( a$ ) ) + a$
 end if
 if len( b$ ) < len( a$ ) then
   b$ = zero$( len( a$ ) - len( b$ ) ) + b$
 end if
 a$ = "0" + a$
 b$ = "0" + b$
 for t = len( a$ ) to 1 step -1
   i = val( mid$( a$ , t , 1 ) )
   j = val( mid$( b$ , t , 1 ) )
   k = i + j + m
   uit$ = str$( k mod 10 ) + uit$
   m = int( k / 10 )
 next t
 if left$( uit$ , 1 ) = "0" then
   uit$ = right$( uit$ , len( uit$ ) - 1 )
 end if
 add$ = uit$
end function
function x$( a$ , i )
 a$ = "0" + a$
 for t = len( a$ ) to 1
   j = val( mid$( a$ , t , 1 ) )
   k = j * i + m
   uit$ = str$( k mod 10 ) + uit$
   m = int( k / 10 )
 next t
 if left$( uit$ , 1 ) = "0" then
   uit$ = right$( uit$ , len( uit$ ) - 1 )
 end if
 x$ = uit$
end function
function multiply$( a$ , b$ )
 for t = len( b$ ) to 1
   i = val( mid$( b$ , t , 1 ) )
   uit$ = add$( uit$ , x$( a$ , i ) )
   a$ = a$ + "0"
 next t
 multiply$ = uit$
end function


[bluatigro]

update :
try at : * + - /


WARING :
this was not tested jet
i have a lunch now so i stop


'' bluatigro 31 jul 2018
'' bigint + bigreal
q$ = "2"
f$ = "2"
for i = 1 to 15
 print i , q$
 q$ = multiply$( q$ , f$ )
next i
end
function zero$( i )
 zero$ = left$( "00000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 + "0000000000000000000000000000000000000000000000000000" _
 , i )
end function
function add$( a$ , b$ )
 singa = 1
 if left$( a$ ) = "-" then
   signa = -1
   a$ = right$( a$ , len( a$ ) - 1 )
 end if
 signb = 1
 if left$( b$ ) = "-" then
   signb = -1
   b$ = right$( b$ , len( b$ ) - 1 )
 end if
 if signa = signb then
   if len( a$ ) < len( b$ ) then
     a$ = zero$( len( b$ ) - len( a$ ) ) + a$
   end if
   if len( b$ ) < len( a$ ) then
     b$ = zero$( len( a$ ) - len( b$ ) ) + b$
   end if
   a$ = "0" + a$
   b$ = "0" + b$
   for t = len( a$ ) to 1 step -1
     i = val( mid$( a$ , t , 1 ) )
     j = val( mid$( b$ , t , 1 ) )
     k = i + j + m
     uit$ = str$( k mod 10 ) + uit$
     m = int( k / 10 )
   next t
   if left$( uit$ , 1 ) = "0" then
     uit$ = right$( uit$ , len( uit$ ) - 1 )
   end if
 else
   uit$ = minu$( a$ , b$ )
 end if
 if signa = -1 and signb = -1 then uit$ = "-" + uit$
 if left$( uit$ , 2 ) = "--" then
   uit$ = right$( uit$ , len( uit$ ) - 2 )
 end if
 add$ = uit$
end function
function x$( a$ , i )
 a$ = "0" + a$
 for t = len( a$ ) to 1
   j = val( mid$( a$ , t , 1 ) )
   k = j * i + m
   uit$ = str$( k mod 10 ) + uit$
   m = int( k / 10 )
 next t
 if left$( uit$ , 1 ) = "0" then
   uit$ = right$( uit$ , len( uit$ ) - 1 )
 end if
 x$ = uit$
end function
function multiply$( a$ , b$ )
 for t = len( b$ ) to 1
   i = val( mid$( b$ , t , 1 ) )
   uit$ = add$( uit$ , x$( a$ , i ) )
   a$ = a$ + "0"
 next t
 multiply$ = uit$
end function
function big( a$ , b$ )
 uit = 0
 if len( a$ ) > len( b$ ) then
   uit = 1
 else
   t = 1
   while  mid$( a$ , t , 1 ) = mid$( b$ , t , 1 ) _
   and t <= len( a$ )
     t = t + 1
   wend
   if t <= len( a$ ) then
     uit = mid$( a$ , t , 1 ) > mid$( b$ , t , 1 )
   end if
 end if
 big = uit
function
function minu$( a$ , b$ )
 singa = 1
 if left$( a$ ) = "-" then
   signa = -1
   a$ = right$( a$ , len( a$ ) - 1 )
 end if
 signb = 1
 if left$( b$ ) = "-" then
   signb = -1
   b$ = right$( b$ , len( b$ ) - 1 )
 end if
 if signa <> signb then
   sign = 1
   if big( b$ , a$ ) then
     sign$ = "-"
     sign = -1
     h$ = a$
     a$ = b$
     b$ = h$
   end if
   if len( a$ ) < len( b$ ) then
     a$ = zero$( len( b$ ) - len( a$ ) ) + a$
   end if
   m = 0
   for t = len( a$ ) to 1 step -1
     i = val( mid$( a$ , t , 1 ) )
     j = val( mid$( b$ , t , 1 ) )
     k = i - j - m
     if k < 0 then
       m = 1
     else
       m = 0
     end if
     uit$ = str$( k mod 10 ) + uit$
   next t
 else
   uit$ = add$( a$ , b$ )
 end if
 if sign * signa * signb = -1 _
 xor left$( uit$ , 1 ) = "-" then
   uit$ = sign$ + uit$
 end if
 minu$ = uit$
end function
function divide$( a$ , b$ )
 singa = 1
 if left$( a$ ) = "-" then
   signa = -1
   a$ = right$( a$ , len( a$ ) - 1 )
 end if
 signb = 1
 if left$( b$ ) = "-" then
   signb = -1
   b$ = right$( b$ , len( b$ ) - 1 )
 end if
 temp$ = a$
 if not( big( b$ , a$ ) )
   while not( big( b$ , temp$ ) )
     temp$ = temp$ + "0"
   wend
   while right$( temp$ , 1 ) = "0"
     q = 9
     w$ = x$( temp$ , q )
     while big( w$ , a$ ) and q > 0
       w$ = x$( temp$ , q )
       q = q - 1
     wend
     a$ = minu$( a$ , temp$ )
     temp$ = left$( temp$ , len( temp$ ) - 1 )
     uit$ = uit$ + str$( q )
   wend
 else
   uit$ = "0"
 end if
 divide$
end sub