Option Explicit
'''' Vladimir-vladimirko@ramler.ru

Public Function FormatNumbe$(ByVal Numbe$)
    Dim i%
    Numbe$ = Trim(Numbe$)
    
    Numbe$ = Left(Numbe$, 300)
'Очистка нули слева 0000.56, 000787
        i% = 0
    Do
        i% = i% + 1
    If Left(Numbe$, 1) <> "0" Then Exit Do
        Numbe$ = Right(Numbe$, Len(Numbe$) - 1)
    Loop

    If Left(Numbe$, 1) = "." Then Numbe$ = "0" & Numbe$

    'Очистка нули справа 23.883000
        i% = 0
    Do
        i% = i% + 1
    If Mid(Numbe$, i%, 1) = "." Then Exit Do
    If i% >= Len(Numbe$) Then Exit Do
    Loop
    
    If i% < Len(Numbe$) Then
    Do
        i% = i% + 1
    If Right(Numbe$, 1) <> "0" Then Exit Do
        Numbe$ = Left(Numbe$, Len(Numbe$) - 1)
    Loop
    End If
    If Right(Numbe$, 1) = "." Then Numbe$ = Left(Numbe$, Len(Numbe$) - 1)

    If Numbe$ = "" Then Numbe$ = 0
    
    If Numbe$ = "-0" Then Numbe$ = 0
    
    FormatNumbe$ = Trim(Numbe$)
End Function



'word length - длина слова
'integer part - целая часть
'fractional part - дробная часть
'numeral - цифра
'displacement
'augend - первое слагаемое
'addend - второе слагаемое
'summand - слагаемое
'sum - сумма
Public Function sum$(ByVal Augend$, ByVal Addend$)
ReDim NumeralAugend%(350)
ReDim NumeralAddend%(350)
ReDim NumeralSum(350) As String
Dim znak$
Dim IntegerPartAugend%, IntegerPartAddend%
Dim FractionalPartAugend%, FractionalPartAddend%
Dim FractionalPartSum%
Dim a$
Dim WordLengthSum%, WordLengthAugend%, WordLengthAddend%, i%, j%, n%

Augend$ = FormatNumbe(Augend$)
Addend$ = FormatNumbe$(Addend$)

WordLengthAugend% = Len(Augend$)
WordLengthAddend% = Len(Addend$)

IntegerPartAugend% = 0: IntegerPartAugend% = InStr(Augend$, "."): If IntegerPartAugend% = 0 Then IntegerPartAugend% = WordLengthAugend%
If IntegerPartAugend% <> WordLengthAugend% Then Augend$ = Mid(Augend$, 1, IntegerPartAugend% - 1) & Mid(Augend$, IntegerPartAugend% + 1, WordLengthAugend% - IntegerPartAugend%): WordLengthAugend% = WordLengthAugend% - 1: IntegerPartAugend% = IntegerPartAugend% - 1

IntegerPartAddend% = 0:  IntegerPartAddend% = InStr(Addend$, "."): If IntegerPartAddend% = 0 Then IntegerPartAddend% = WordLengthAddend%
If IntegerPartAddend% <> WordLengthAddend% Then Addend$ = Mid(Addend$, 1, IntegerPartAddend% - 1) & Mid(Addend$, IntegerPartAddend% + 1, WordLengthAddend% - IntegerPartAddend%): WordLengthAddend% = WordLengthAddend% - 1: IntegerPartAddend% = IntegerPartAddend% - 1

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FractionalPartAugend% = WordLengthAugend% - IntegerPartAugend%
FractionalPartAddend% = WordLengthAddend% - IntegerPartAddend%

If FractionalPartAugend% > FractionalPartAddend% Then
For i% = 1 To FractionalPartAugend% - FractionalPartAddend%
Addend$ = Addend$ & "0"
WordLengthAddend% = WordLengthAddend% + 1
Next i%
End If

If FractionalPartAugend% < FractionalPartAddend% Then
For i% = 1 To FractionalPartAddend% - FractionalPartAugend%
Augend$ = Augend$ & "0"
WordLengthAugend% = WordLengthAugend% + 1
Next i%
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For i% = 1 To WordLengthAugend%
NumeralAugend%(i%) = Mid(Augend$, WordLengthAugend% + 1 - i%, 1)
Next i%

For j% = 1 To WordLengthAddend%
NumeralAddend%(j%) = Mid(Addend$, WordLengthAddend% + 1 - j%, 1)
Next j%

If WordLengthAugend% < WordLengthAddend% Then WordLengthSum% = WordLengthAddend% Else WordLengthSum% = WordLengthAugend%

For n% = 1 To WordLengthSum%
NumeralSum(n%) = NumeralAugend%(n%) + NumeralAddend%(n%)
Next n%

For n% = 1 To WordLengthSum% + 1
NumeralSum(n% + 1) = Val(NumeralSum(n% + 1)) + Val(Mid(NumeralSum(n%), 1, Len(NumeralSum(n%)) - 1))
NumeralSum(n%) = Right(NumeralSum(n%), 1)
sum$ = NumeralSum(n%) & sum$
Next n%

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FractionalPartSum% = 0
If NumeralSum(WordLengthSum% + 1) = "0" Then sum$ = Mid(sum$, 2, Len(sum$) - 1) 'Else FractionalPartSum%  = FractionalPartSum%  + 1

If IntegerPartAugend% > IntegerPartAddend% Then FractionalPartSum% = IntegerPartAugend% - 1 Else FractionalPartSum% = IntegerPartAddend% - 1

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If NumeralSum(WordLengthSum% + 1) <> "0" Then FractionalPartSum% = FractionalPartSum% + 1


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Left(sum$, 1) = "0" Then
sum$ = Left(sum$, 1) & "." & Mid(sum$, 2)
Else
sum$ = Left(sum$, FractionalPartSum% + 1) & "." & Mid(sum$, FractionalPartSum% + 2)
End If



sum$ = FormatNumbe$(sum$)

End Function


'descend - уменьшаемое
'subtrahend - вычитаемое
'difference - разность
Public Function difference$(ByVal Descend$, ByVal Subtrahend$)
ReDim NumeralDescend%(350)
ReDim NumeralSubtrahend%(350)
ReDim NumeralDifference$(350)
Dim znak$
Dim IntegerPartDescend%, IntegerPartSubtrahend%, IntegerPartDifference%
Dim FractionalPartDescend%, FractionalPartSubtrahend
Dim WordLengthDifference%, WordLengthDescend%, WordLengthSubtrahend%, i%, j%, n%

Descend$ = FormatNumbe$(Descend$)
Subtrahend$ = FormatNumbe$(Subtrahend$)

WordLengthDescend% = Len(Descend$)
WordLengthSubtrahend% = Len(Subtrahend$)

If Left(Descend$, 1) = "-" Then
WordLengthDescend% = WordLengthDescend% - 1

Descend$ = Mid(Descend$, 2, WordLengthDescend%)
End If


If Left(Subtrahend$, 1) = "-" Then
WordLengthSubtrahend% = WordLengthSubtrahend% - 1

Subtrahend$ = Mid(Subtrahend$, 2, WordLengthSubtrahend%)
End If

IntegerPartDescend% = 0: Do: IntegerPartDescend% = IntegerPartDescend% + 1: Loop Until Mid(Descend$, IntegerPartDescend%, 1) = "." Or IntegerPartDescend% = WordLengthDescend%
If IntegerPartDescend% <> WordLengthDescend% Then Descend$ = Mid(Descend$, 1, IntegerPartDescend% - 1) & Mid(Descend$, IntegerPartDescend% + 1, WordLengthDescend% - IntegerPartDescend%): WordLengthDescend% = WordLengthDescend% - 1: IntegerPartDescend% = IntegerPartDescend% - 1

IntegerPartSubtrahend% = 0: Do: IntegerPartSubtrahend% = IntegerPartSubtrahend% + 1: Loop Until Mid(Subtrahend$, IntegerPartSubtrahend%, 1) = "." Or IntegerPartSubtrahend% = WordLengthSubtrahend%
If IntegerPartSubtrahend% <> WordLengthSubtrahend% Then Subtrahend$ = Mid(Subtrahend$, 1, IntegerPartSubtrahend% - 1) & Mid(Subtrahend$, IntegerPartSubtrahend% + 1, WordLengthSubtrahend% - IntegerPartSubtrahend%): WordLengthSubtrahend% = WordLengthSubtrahend% - 1: IntegerPartSubtrahend% = IntegerPartSubtrahend% - 1


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FractionalPartDescend% = WordLengthDescend% - IntegerPartDescend%
FractionalPartSubtrahend = WordLengthSubtrahend% - IntegerPartSubtrahend%

If FractionalPartDescend% > FractionalPartSubtrahend Then
For i% = 1 To FractionalPartDescend% - FractionalPartSubtrahend
Subtrahend$ = Subtrahend$ & "0"
WordLengthSubtrahend% = WordLengthSubtrahend% + 1
Next i%
End If

If FractionalPartDescend% < FractionalPartSubtrahend Then
For i% = 1 To FractionalPartSubtrahend - FractionalPartDescend%
Descend$ = Descend$ & "0"
WordLengthDescend% = WordLengthDescend% + 1
Next i%
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For i% = 1 To WordLengthDescend%
NumeralDescend%(i%) = Mid(Descend$, WordLengthDescend% + 1 - i%, 1)
Next i%

For j% = 1 To WordLengthSubtrahend%
NumeralSubtrahend%(j%) = Mid(Subtrahend$, WordLengthSubtrahend% + 1 - j%, 1)
Next j%

If WordLengthDescend% < WordLengthSubtrahend% Then WordLengthDifference% = WordLengthSubtrahend% Else WordLengthDifference% = WordLengthDescend%

For n% = 1 To WordLengthDifference%
If NumeralDescend%(n%) >= NumeralSubtrahend%(n%) Then
NumeralDifference$(n%) = NumeralDescend%(n%) - NumeralSubtrahend%(n%)
Else
NumeralDifference$(n%) = 10 + NumeralDescend%(n%) - NumeralSubtrahend%(n%)
NumeralDescend%(n% + 1) = NumeralDescend%(n% + 1) - 1
End If
Next n%

For n% = 1 To WordLengthDifference% + 1
NumeralDifference$(n% + 1) = Val(NumeralDifference$(n% + 1)) - Val(Mid(NumeralDifference$(n%), 1, Len(NumeralDifference$(n%)) - 1))
NumeralDifference$(n%) = Right(NumeralDifference$(n%), 1)
difference$ = NumeralDifference$(n%) & difference$
Next n%

If NumeralDifference$(WordLengthDifference% + 1) = "0" Then difference$ = Mid(difference$, 2, Len(difference$) - 1) 'Else IntegerPartDifference% = IntegerPartDifference% + 1

If IntegerPartDescend% > IntegerPartSubtrahend% Then IntegerPartDifference% = IntegerPartDescend% - 1 Else IntegerPartDifference% = IntegerPartSubtrahend% - 1

difference$ = Left(difference$, IntegerPartDifference% + 1) & "." & Mid(difference$, IntegerPartDifference% + 2)

difference$ = FormatNumbe(difference$)
End Function

'total - итог
'augend - первое слагаемое
'addend - второе слагаемое
'summand - слагаемое
'sum - сумма
'substitute - заместитель
Public Function TotalPluss$(ByVal TotalAugend$, ByVal TotalAddend$)
Dim TotalCharacterAugend As Byte
Dim TotalCharacterAddend As Byte
Dim TotalPlussSubstitute$

TotalAugend$ = FormatNumbe$(TotalAugend$)
TotalAddend$ = FormatNumbe$(TotalAddend$)

If Left(TotalAugend$, 1) = "-" Then
TotalCharacterAugend = 0
TotalAugend$ = Mid(TotalAugend$, 2, Len(TotalAugend$) - 1)
Else
TotalCharacterAugend = 2
End If

If Left(TotalAddend$, 1) = "-" Then
TotalAddend$ = Mid(TotalAddend$, 2, Len(TotalAddend$) - 1)
TotalCharacterAddend = 0
Else
TotalCharacterAddend = 2
End If

If compare(TotalAugend$, TotalAddend$) = 0 Then

If TotalCharacterAugend = 2 And TotalCharacterAddend = 2 Then TotalPluss$ = sum(TotalAugend$, TotalAddend$)
If TotalCharacterAugend = 0 And TotalCharacterAddend = 0 Then TotalPluss$ = "-" & sum(TotalAugend$, TotalAddend$)


TotalPlussSubstitute$ = TotalAugend$: TotalAugend$ = TotalAddend$: TotalAddend$ = TotalPlussSubstitute$
If TotalCharacterAugend = 2 And TotalCharacterAddend = 0 Then TotalPluss$ = "-" & difference(TotalAugend$, TotalAddend$)
If TotalCharacterAugend = 0 And TotalCharacterAddend = 2 Then TotalPluss$ = difference(TotalAugend$, TotalAddend$)

Else

If TotalCharacterAugend = 0 And TotalCharacterAddend = 2 Then TotalPluss$ = "-" & difference(TotalAugend$, TotalAddend$)
If TotalCharacterAugend = 2 And TotalCharacterAddend = 2 Then TotalPluss$ = sum(TotalAugend$, TotalAddend$) ''''''''''
If TotalCharacterAugend = 0 And TotalCharacterAddend = 0 Then TotalPluss$ = "-" & sum(TotalAugend$, TotalAddend$) ''''''''''
If TotalCharacterAugend = 2 And TotalCharacterAddend = 0 Then TotalPluss$ = difference(TotalAugend$, TotalAddend$)
End If

TotalPluss$ = FormatNumbe$(TotalPluss$)
End Function

'total - итог
'substitute - заместитель
'descend - уменьшаемое
'subtrahend - вычитаемое
'difference - разность

Public Function Totalminuss$(ByVal TotalDescend$, ByVal TotalSubstrahend$)
Dim TotalCharacterDescend As Byte
Dim TotalCharacterSubstrahend As Byte
Dim TotalminussSubstitute$

TotalDescend$ = FormatNumbe$(TotalDescend$)
TotalSubstrahend$ = FormatNumbe$(TotalSubstrahend$)

If Left(TotalDescend$, 1) = "-" Then
TotalCharacterDescend = 0
TotalDescend$ = Mid(TotalDescend$, 2, Len(TotalDescend$) - 1)
Else
TotalCharacterDescend = 2
End If

If Left(TotalSubstrahend$, 1) = "-" Then
TotalSubstrahend$ = Mid(TotalSubstrahend$, 2, Len(TotalSubstrahend$) - 1)
TotalCharacterSubstrahend = 0
Else
TotalCharacterSubstrahend = 2
End If

If compare(TotalDescend$, TotalSubstrahend$) = 0 Then
If TotalCharacterDescend = 2 And TotalCharacterSubstrahend = 0 Then Totalminuss$ = sum(TotalDescend$, TotalSubstrahend$)
If TotalCharacterDescend = 0 And TotalCharacterSubstrahend = 2 Then Totalminuss$ = "-" & sum(TotalDescend$, TotalSubstrahend$)

TotalminussSubstitute$ = TotalDescend$: TotalDescend$ = TotalSubstrahend$: TotalSubstrahend$ = TotalminussSubstitute$
If TotalCharacterDescend = 0 And TotalCharacterSubstrahend = 0 Then Totalminuss$ = difference(TotalDescend$, TotalSubstrahend$)
If TotalCharacterDescend = 2 And TotalCharacterSubstrahend = 2 Then Totalminuss$ = "-" & difference(TotalDescend$, TotalSubstrahend$)

Else
If TotalCharacterDescend = 2 And TotalCharacterSubstrahend = 0 Then Totalminuss$ = sum(TotalDescend$, TotalSubstrahend$)
If TotalCharacterDescend = 0 And TotalCharacterSubstrahend = 2 Then Totalminuss$ = "-" & sum(TotalDescend$, TotalSubstrahend$)
If TotalCharacterDescend = 2 And TotalCharacterSubstrahend = 2 Then Totalminuss$ = difference(TotalDescend$, TotalSubstrahend$)
If TotalCharacterDescend = 0 And TotalCharacterSubstrahend = 0 Then Totalminuss$ = "-" & difference(TotalDescend$, TotalSubstrahend$)
End If

Totalminuss$ = FormatNumbe$(Totalminuss$)
End Function


Public Function compare(ByVal ao$, ByVal bo$) As Byte
    Dim la%, lb%, ia%, ib%, i%
    Dim znakao, znakbo
        ao$ = FormatNumbe$(ao$)
        bo$ = FormatNumbe$(bo$)
        la% = Len(ao$)
        lb% = Len(bo$)
        znakbo = 0
        znakao = 0
        ia% = InStr(ao$, "."): If ia% = 0 Then ia% = la%
    If ia% <> la% Then ao$ = Mid(ao$, 1, ia% - 1) & Mid(ao$, ia% + 1, la% - ia%): la% = la% - 1: ia% = ia% - 1
        ib% = InStr(bo$, "."): If ib% = 0 Then ib% = lb%
    If ib% <> lb% Then bo$ = Mid(bo$, 1, ib% - 1) & Mid(bo$, ib% + 1, lb% - ib%):  ib% = ib% - 1
    If Left(ao$, 1) = "-" Then znakao = -1: ia% = ia% - 1: ao$ = Mid(ao$, 2)
    If Left(bo$, 1) = "-" Then znakbo = -1: ib% = ib% - 1: bo$ = Mid(bo$, 2)
    If znakao = -1 And znakbo = 0 Then compare = 0: Exit Function
    If znakao = 0 And znakbo = -1 Then compare = 2: Exit Function
    If ia > ib Then compare = 2: Exit Function
    If ia < ib Then compare = 0: Exit Function
    If znakao = -1 And znakbo = -1 Then compare = -StrComp(ao$, bo$) + 1
    If znakao = 0 And znakbo = 0 Then compare = StrComp(ao$, bo$) + 1
   
    End Function



Public Function division10(ByVal numeral$)
Dim IntegerPartDivisor%
Dim WordLengthDivisor%
Dim Divisor$
Dim Nuuul
Dim i%
numeral$ = FormatNumbe$(numeral$)

'Найти точку
Divisor$ = numeral$
WordLengthDivisor% = Len(Divisor$)

IntegerPartDivisor% = 0: Do: IntegerPartDivisor% = IntegerPartDivisor% + 1: Loop Until Mid(Divisor$, IntegerPartDivisor%, 1) = "." Or IntegerPartDivisor% = WordLengthDivisor%
If IntegerPartDivisor% <> WordLengthDivisor% Then Divisor$ = Mid(Divisor$, 1, IntegerPartDivisor% - 1) & Mid(Divisor$, IntegerPartDivisor% + 1, WordLengthDivisor% - IntegerPartDivisor%): WordLengthDivisor% = WordLengthDivisor% - 1: IntegerPartDivisor% = IntegerPartDivisor% - 1
'division10 = IntegerPartDivisor%

If IntegerPartDivisor% <> 1 Then
          Nuuul = ""
        For i% = 1 To IntegerPartDivisor% - 2
        Nuuul = Nuuul & "0"
        Next i%
        division10 = "0." & Nuuul & "1"
        
Else
        Nuuul = ""
        For i% = 1 To WordLengthDivisor% - IntegerPartDivisor%
        Nuuul = Nuuul & "0"
        Next i%
        division10 = "1" & Nuuul
End If

End Function


'division - деление
'dividend - делимое
'divisor - делитель
'MathQuotient- частное
'displacement - сдвиг
'numeral - цифра
'Integer part - целая часть
'fractional part - дробная часть
'word length - длина слова
'PartZero
'character. letter. mark. digit. sign. symbol - знак
'sign digit - цифра знака ( определяющая знак ); знаковый разряд
'arithmetial - арифметический
'reciprocal numbe - обратное число
Public Function Reciprocal$(ByVal Divisor$)

'word length
'division - деление
'dividend - делимое
'divisor - делитель
    'Dim WordLengthDivisor%
    Dim Dividend$
    Dim i%
    Dim m%
    Dim t%
    Dim a$(350)
    Dim c$(10)
    Dim ProductCharacter$
    Dim iT%
    Dim IntegerPartDivisor%
    Dim WordLengthDivisor%
    Dim BWordLengthDivisor%
    Dim Nuuul$
    Dim ADivisor$
    Dim Bdivisor$
    
Divisor$ = FormatNumbe(Divisor$)

ProductCharacter$ = ""
If Left(Divisor$, 1) = "-" Then ProductCharacter$ = "-"

If Left(Divisor$, 1) = "-" Then Divisor$ = Mid(Divisor$, 2)
WordLengthDivisor% = Len(Divisor$)

ADivisor$ = Divisor$

IntegerPartDivisor% = 0: Do: IntegerPartDivisor% = IntegerPartDivisor% + 1: Loop Until Mid(Divisor$, IntegerPartDivisor%, 1) = "." Or IntegerPartDivisor% = WordLengthDivisor%
If IntegerPartDivisor% <> WordLengthDivisor% Then Divisor$ = Mid(Divisor$, 1, IntegerPartDivisor% - 1) & Mid(Divisor$, IntegerPartDivisor% + 1, WordLengthDivisor% - IntegerPartDivisor%): WordLengthDivisor% = WordLengthDivisor% - 1: IntegerPartDivisor% = IntegerPartDivisor% - 1
    
    
    
            iT% = 0
            For i% = 1 To 350
            If Left(Divisor$, 1) = "0" Then Divisor$ = Mid(Divisor$, 2)
            If Left(Divisor$, 1) = "." Then Divisor$ = Mid(Divisor$, 2)
            If Val(Left(Divisor$, 1)) > 0 Then Exit For
            iT% = iT% + 1
            Next i%
    
    
Divisor$ = Left(Divisor$, IntegerPartDivisor% - 1) & Mid(Divisor$, IntegerPartDivisor%)

    
    
    For i% = 1 To WordLengthDivisor% + 1
    If Mid(Divisor$, 1, 1) = "0" Then
    Divisor$ = Right(Divisor$, Len(Divisor$) - 1)
    Else
    Exit For
    End If
    Next i%
    
    Bdivisor$ = Divisor$
    BWordLengthDivisor% = Len(Divisor$)
    For i% = 1 To BWordLengthDivisor% - 1
    If Right(Bdivisor$, 1) = "0" Then
    Bdivisor$ = Left(Bdivisor$, Len(Bdivisor$) - 1)
    Else
    Exit For
    End If
    Next i%
    
    Dividend$ = "1"
    
    If Divisor$ = "0" Then Reciprocal$ = "N/0": Exit Function
 
    If Bdivisor$ = "1" Then
    Reciprocal$ = ProductCharacter$ & division10(ADivisor$)
    Exit Function
    End If
    
    
    For i% = 0 To 10
    c$(i%) = product(i%, Divisor$)
    Next i%
    c$(0) = "0"
   
     
        
    For t% = 1 To 350
        m% = 0
    Dividend$ = Dividend$ & "0"
 
        Do
        m% = m% + 1
        If compare(Dividend$, c$(m%)) = 0 Then Exit Do
        Loop

            Dividend$ = Totalminuss(Dividend$, c$(m% - 1))
      
            a$(t%) = m% - 1
           
    Next t%
    
        Reciprocal$ = ""
    For i% = 1 To 350
       Reciprocal$ = Reciprocal$ & a(i%)
    Next i%
        
        Reciprocal$ = FormatNumbe(Reciprocal$)
        
        
        If IntegerPartDivisor% = 1 Then
        
        If Val(Mid(ADivisor$, 1, 3)) < 1 Then
        Reciprocal$ = Left(Reciprocal$, iT% + 1) & "." & Mid(Reciprocal$, iT% + 2)
        Else
        Reciprocal$ = Left(Reciprocal$, iT%) & "." & Mid(Reciprocal$, iT% + 1)
        End If

        
        Else
        
          Nuuul = ""
        
        For i% = 1 To IntegerPartDivisor% - 1
        Nuuul = Nuuul & "0"
        Next i%
      
        Reciprocal$ = Nuuul & Reciprocal$
        
        If Left(Reciprocal$, 1) = "0" Then Reciprocal$ = "0." & Reciprocal$
        End If
        
        
        If Left(Reciprocal$, 1) = "." Then Reciprocal$ = "0" & Reciprocal$
        
        
        
        Reciprocal$ = ProductCharacter$ & Reciprocal$
      

End Function
'dividend - делимое
'divisor - делитель
'MathQuotient- частное
'displacement - сдвиг
'numeral - цифра
'Integer part - целая часть
'fractional part - дробная часть
'word length - длина слова
'PartZero
'character. letter. mark. digit. sign. symbol - знак
'sign digit - цифра знака ( определяющая знак ); знаковый разряд
'arithmetial - арифметический
'reciprocal numbe - обратное число
Public Function MathQuotient$(ByVal Dividend$, ByVal Divisor$)  'divisor

Divisor$ = Reciprocal(Divisor$)
MathQuotient$ = product(Dividend$, Divisor$)
End Function





'product - произведение
'multiplicand - множимое
'multiplier. factor - множитель
'multiply - умножать
'word length - длина слова
'integer part - целая часть
'fractional part - дробная часть
'numeral - цифра
'displacement
'zero - ноль
'Public NameArray(1 To 600) As String
'Public uNameArray(1 To 600) As String

Public Function product$(ByVal Multiplicand$, ByVal Factor$)


Dim FractionalPartMultiplicand%, FractionalPartFactor%
Dim WordLengthMultiplicand%, WordLengthFactor%
Dim IntegerPartMultiplicand%, IntegerPartFactor%
Dim Displacement%
ReDim NumeralProduct(600) As String
ReDim NumeralMultiplicand(600) As Byte
ReDim NumeralFactor(600) As Byte
Dim PartZeroProduct$
Dim k%, n%, i%, j%
Dim ProductCharacter$
Dim GM As String

Multiplicand$ = FormatNumbe(Multiplicand$)

Factor$ = FormatNumbe(Factor$)

Multiplicand$ = Trim(Multiplicand$): WordLengthMultiplicand% = Len(Multiplicand$)
Factor$ = Trim(Factor$): WordLengthFactor% = Len(Factor$)

ProductCharacter$ = ""
If Left(Multiplicand$, 1) = "-" And Left(Factor$, 1) <> "-" Then ProductCharacter$ = "-"
If Left(Multiplicand$, 1) <> "-" And Left(Factor$, 1) = "-" Then ProductCharacter$ = "-"

If Left(Multiplicand$, 1) = "-" Then Multiplicand$ = Mid(Multiplicand$, 2)
WordLengthMultiplicand% = Len(Multiplicand$)

If Left(Factor$, 1) = "-" Then Factor$ = Mid(Factor$, 2)
WordLengthFactor% = Len(Factor$)

IntegerPartMultiplicand% = 0: Do: IntegerPartMultiplicand% = IntegerPartMultiplicand% + 1: Loop Until Mid(Multiplicand$, IntegerPartMultiplicand%, 1) = "." Or IntegerPartMultiplicand% = WordLengthMultiplicand%
If IntegerPartMultiplicand% <> WordLengthMultiplicand% Then Multiplicand$ = Mid(Multiplicand$, 1, IntegerPartMultiplicand% - 1) & Mid(Multiplicand$, IntegerPartMultiplicand% + 1, WordLengthMultiplicand% - IntegerPartMultiplicand%): WordLengthMultiplicand% = WordLengthMultiplicand% - 1: IntegerPartMultiplicand% = IntegerPartMultiplicand% - 1

IntegerPartFactor% = 0: Do: IntegerPartFactor% = IntegerPartFactor% + 1: Loop Until Mid(Factor$, IntegerPartFactor%, 1) = "." Or IntegerPartFactor% = WordLengthFactor%
If IntegerPartFactor% <> WordLengthFactor% Then Factor$ = Mid(Factor$, 1, IntegerPartFactor% - 1) & Mid(Factor$, IntegerPartFactor% + 1, WordLengthFactor% - IntegerPartFactor%): WordLengthFactor% = WordLengthFactor% - 1: IntegerPartFactor% = IntegerPartFactor% - 1

FractionalPartMultiplicand% = 0: Do: FractionalPartMultiplicand% = FractionalPartMultiplicand% + 1: Loop Until Mid(Multiplicand$, FractionalPartMultiplicand%, 1) <> "0"
FractionalPartFactor% = 0: Do: FractionalPartFactor% = FractionalPartFactor% + 1: Loop Until Mid(Factor$, FractionalPartFactor%, 1) <> "0"

For i% = 1 To WordLengthMultiplicand%
NumeralMultiplicand(i) = Mid(Multiplicand$, WordLengthMultiplicand% + 1 - i%, 1)
Next i%

For j% = 1 To WordLengthFactor%
NumeralFactor(j) = Mid(Factor$, WordLengthFactor% + 1 - j%, 1)
Next j%

k% = 0
For i% = 1 To WordLengthMultiplicand%
For j% = 1 To WordLengthFactor%
n% = j% + k%

NumeralProduct(n%) = Val(NumeralProduct(n%)) + Val(NumeralMultiplicand(i%)) * Val(NumeralFactor(j%))
NumeralProduct(n% + 1) = Val(NumeralProduct(n% + 1)) + Val(Mid(NumeralProduct(n%), 1, Len(NumeralProduct(n%)) - 1))
NumeralProduct(n%) = Right(CByte(NumeralProduct(n%)), 1)

Next j%
k% = k% + 1
Next i%

For n% = 1 To WordLengthMultiplicand% + WordLengthFactor%
product$ = CByte(NumeralProduct(n%)) & product$
Next n%


n% = 0: Do: n% = n% + 1: Loop Until Mid(product$, n%, 1) <> 0
If n% <> 0 Then product$ = Mid(product$, n%)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Multiplicand$ = Mid(Multiplicand$, FractionalPartMultiplicand%)
Factor$ = Mid(Factor$, FractionalPartFactor%)

If NumeralProduct(Len(Multiplicand$) + Len(Factor$)) = "0" Then
Displacement% = 0
Else
Displacement% = 1
End If

If -(FractionalPartFactor% + FractionalPartMultiplicand%) + IntegerPartMultiplicand% + IntegerPartFactor% + 2 > 0 Then
product$ = Left(product$, IntegerPartMultiplicand% + IntegerPartFactor% - (FractionalPartFactor% + FractionalPartMultiplicand%) + Displacement% + 1) & "." & Mid(product$, IntegerPartMultiplicand% + IntegerPartFactor% - (FractionalPartFactor% + FractionalPartMultiplicand%) + Displacement% + 2)
Else
For n% = 1 To -(IntegerPartMultiplicand% + IntegerPartFactor% - (FractionalPartFactor% + FractionalPartMultiplicand%) + Displacement% + 1)
PartZeroProduct$ = PartZeroProduct$ & "0"
Next n%
product$ = "0." & PartZeroProduct$ & product$
End If

product$ = ProductCharacter$ & FormatNumbe(product$)

End Function