Сложение больших чисел - VB
Формулировка задачи:
наработки сверху
объясните мне как сделать чтобы складывались большие числа которые не входят ни в один тип данных?
Решение задачи: «Сложение больших чисел»
textual
Листинг программы
Function add_long(ByVal a1 As String, ByVal a2 As String) As String L1% = Len(a1) L2% = Len(a2) Sh% = 0 If L1% < L2% Then a1 = String$(L2% - L1%, "0") & a1 If L2% < L1% Then a2 = String$(L1% - L2%, "0") & a2 Res$ = Space$(Len(a1) + 1) For i% = Len(a1) To 1 Step -1 c1% = Val(Mid$(a1, i%, 1)) c2% = Val(Mid$(a2, i%, 1)) r% = c1% + c2% + Sh% If r% >= 10 Then Sh% = 1 r% = r% - 10 Else Sh% = 0 End If Mid$(Res$, i% + 1, 1) = CStr(r%) Next i% If Sh% > 0 Then Mid$(Res$, 1, 1) = CStr(Sh%) add_long = Res$ End Function Sub Test() a1$ = "9999999999999999999999" a2$ = "2" Debug.Print add_long(a1$, a2$) a1$ = "3333333333333333333333333333333333333333" a2$ = "5555555555555555555555555555555555555555" Debug.Print add_long(a1$, a2$) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д