设为首页收藏本站
开启辅助访问

200的阶乘即200!是多少?一个简陋的大数加、乘方法

 您所在的位置：网站首页 › 4的阶乘等于几 › 200的阶乘即200!是多少?一个简陋的大数加、乘方法

200的阶乘即200!是多少?一个简陋的大数加、乘方法

2024-05-26 22:17| 来源: 网络整理| 查看: 265

Author：水如烟

首先列出结果，共375位：200 ,375 ,788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000

说它简陋，一是算法欠妥（不懂），二是没发挥计算机的计算能力（线程和服务）。只是，管它黑猫白猫，抓到老鼠就是了。它的应用还是蛮大的，可以算递归数列，特别将它与数据库结合后，可以得到数表。现在我只是简单的算算阶乘。在100之内，它还是蛮快的。可能与我的计算机有关。300之后，就慢多了，不过数据位数已大于615位了。

测试：

 

Public   Class  Form1     Dim  a  As   New  UnitString     Dim  b  As   New  UnitString     Dim  s  As  UnitString     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button1.Click        a.Value  =   " 1 "          For  i  As   Integer   =   1   To   300             b.Value  =  i.ToString            a  =  a  *  b         Next          Me .RichTextBox1.AppendText( String .Format( " {0,-4},{1,-4},{2} " ,  300 , a.Length, a.Value)  &  vbCrLf)     End Sub End Class

就两个文件。注释没写，不好意思。UnitChar.vb

 

Public   Class  UnitChar     Private  gCarry  As   Integer   =   0      ' ''       ' '' 最后一次运算的进位      ' ''       ' '' 仅保存最后一次运算      Public   ReadOnly   Property  Carry()  As   Integer          Get              Return  gCarry         End   Get      End Property      Private  gValue  As   Char   =   " 0 " c     ' ''       ' '' 值      ' ''       Public   Property  Value()  As   Char          Get              Return  gValue         End   Get          Set ( ByVal  value  As   Char )            gValue  =  value         End   Set      End Property      ' ''       ' '' 副本      ' ''       Public   Function  Clone()  As  UnitChar         Dim  mResult  As   New  UnitChar         With  mResult            .gValue  =   Me .gValue            .gCarry  =   Me .gCarry         End   With          Return  mResult     End Function      ' ''       ' '' 整数      ' ''       Public   Function  ToInteger()  As   Integer          Return   CType (gValue.ToString,  Integer )     End Function      '  进位清零      Private   Sub  ClearCarry()        gCarry  =   0      End Sub      Public   Sub  Add( ByVal  unit  As  UnitChar)         Me .ClearCarry()         Dim  mAddResult()  As   Char         mAddResult  =  ( Me .ToInteger  +  unit.ToInteger).ToString.ToCharArray         If  mAddResult.Length  =   2   Then              Me .gCarry  =   CType (mAddResult( 0 ).ToString,  Integer )             Me .gValue  =  mAddResult( 1 )         Else              Me .gValue  =  mAddResult( 0 )         End   If      End Sub      Public   Sub  Multiply( ByVal  unit  As  UnitChar)         Me .ClearCarry()         Dim  mAddResult()  As   Char         mAddResult  =  ( Me .ToInteger  *  unit.ToInteger).ToString.ToCharArray         If  mAddResult.Length  =   2   Then              Me .gCarry  =   CType (mAddResult( 0 ).ToString,  Integer )             Me .gValue  =  mAddResult( 1 )         Else              Me .gValue  =  mAddResult( 0 )         End   If      End Sub      Public   Shared  Operator  + ( ByVal  a  As  UnitChar,  ByVal  b  As  UnitChar)  As  UnitChar         Dim  mResult  As  UnitChar  =  a.Clone        mResult.Add(b)         Return  mResult     End  Operator     Public   Shared  Operator  * ( ByVal  a  As  UnitChar,  ByVal  b  As  UnitChar)  As  UnitChar         Dim  mResult  As  UnitChar  =  a.Clone        mResult.Multiply(b)         Return  mResult     End  Operator End Class

UnitString.vb

Public   Class  UnitString     ' 进位      Protected  gCarry  As   Integer   =   0      Protected  gOriginalValue  As   String      Protected  gCurrentUniChars()  As  UnitChar     Protected  gLength  As   Integer      Public   ReadOnly   Property  Length()  As   Integer          Get              Return  gLength         End   Get      End Property      Private  gValue  As   String   =   " 0 "      ' ''       ' '' 值      ' ''       Public   Property  Value()  As   String          Get              Dim  mBuilder  As   New  System.Text.StringBuilder             If  gCarry  >   0   Then                 mBuilder.Append(gCarry.ToString)             End   If              For  i  As   Integer   =   0   To   Me .gLength  -   1                 mBuilder.Append( Me .gCurrentUniChars(i).Value)             Next              Return  mBuilder.ToString         End   Get          Set ( ByVal  value  As   String )             Me .gValue  =  value             Me .gOriginalValue  =  value            Initialize()         End   Set      End Property      Public   ReadOnly   Property  NewUnitString()  As  UnitString         Get              Dim  mResult  As   New  UnitString            mResult.Value  =   Me .Value             Return  mResult         End   Get      End Property      Private   Sub  Initialize()         Me .ClearCarry()         Me .gCurrentUniChars  =  ToUnitChars( Me .gOriginalValue)         Me .gLength  =   Me .gCurrentUniChars.Length     End Sub      Private   Function  ToUnitChars( ByVal  value  As   String )  As  UnitChar()         Dim  mChars()  As   Char   =  value.ToCharArray         Dim  mResult(mChars.Length  -   1 )  As  UnitChar         For  i  As   Integer   =   0   To  mChars.Length  -   1             mResult(i)  =   New  UnitChar            mResult(i).Value  =  mChars(i)         Next          Return  mResult     End Function      ' ''       ' '' 副本      ' ''       Public   Function  Clone()  As  UnitString         Dim  mResult  As   New  UnitString         With  mResult            .Value  =   Me .Value         End   With          Return  mResult     End Function      '  进位清零      Private   Sub  ClearCarry()        gCarry  =   0      End Sub      Public   Sub  Add( ByVal  unit  As  UnitString)         Dim  mValue1  As  UnitString         Dim  mValue2  As  UnitString         If   Me .Length  >=  unit.Length  Then             mValue1  =   Me             mValue2  =  unit         Else             mValue1  =  unit            mValue2  =   Me          End   If          Dim  tmpUnitChars()  As  UnitChar  =   Me .ToUnitChars(mValue2.Value)         For  i  As   Integer   =  mValue2.Length  -   1   To   0   Step   - 1             mValue1.AddChar(tmpUnitChars(mValue2.Length  -  i  -   1 ), i)         Next          Me .Value  =  mValue1.Value     End Sub      Public   Sub  Multiply( ByVal  unit  As  UnitString)         Dim  mValue1  As  UnitString         Dim  mValue2  As  UnitString         If   Me .Length  >=  unit.Length  Then             mValue1  =   Me .Clone            mValue2  =  unit.Clone         Else             mValue1  =  unit.Clone            mValue2  =   Me .Clone         End   If          Dim  tmpUnitStrings(mValue2.Length  -   1 )  As  UnitString         Dim  tmpUnitChars()  As  UnitChar  =   Me .ToUnitChars(mValue2.Value)         For  i  As   Integer   =   0   To  mValue2.Length  -   1             tmpUnitStrings(i)  =  mValue1.Clone            tmpUnitStrings(i).MultiplyChar(tmpUnitChars(i))             If  tmpUnitStrings(i).gCarry  >   0   Then                 tmpUnitStrings(i)  =  tmpUnitStrings(i).NewUnitString             End   If          Next          Dim  mResult  As   New  UnitString         Dim  tmp  As  UnitString         For  i  As   Integer   =   0   To  mValue2.Length  -   1             mResult  =  mResult.NewUnitString            tmp  =   New  UnitString            tmp.Value  =  tmpUnitStrings(i).Value  &   New   String ( " 0 " c, mValue2.Length  -  i  -   1 )            mResult.Add(tmp)         Next          Me .Value  =  mResult.Value     End Sub      Public   Shared  Operator  + ( ByVal  a  As  UnitString,  ByVal  b  As  UnitString)  As  UnitString         Dim  mResult  As  UnitString  =  a.Clone        mResult.Add(b)         Return  mResult     End  Operator     Public   Shared  Operator  * ( ByVal  a  As  UnitString,  ByVal  b  As  UnitString)  As  UnitString         Dim  mResult  As  UnitString  =  a.Clone        mResult.Multiply(b)         Return  mResult     End  Operator     Protected   Overridable   Sub  AddChar( ByVal  unit  As  UnitChar,  ByVal  OperateDigit  As   Integer )         Dim  mCurrentUnitChar  As  UnitChar  =   Me .gCurrentUniChars( Me .gLength  -  OperateDigit  -   1 )        mCurrentUnitChar.Add(unit)         If  mCurrentUnitChar.Carry  >   0   Then              If   Me .gLength  -  OperateDigit  -   1   =   0   Then                  Me .gCarry  +=  mCurrentUnitChar.Carry             Else                  Dim  tmp  As   New  UnitChar                tmp.Value  =   CType (mCurrentUnitChar.Carry.ToString,  Char )                AddChar(tmp, OperateDigit  +   1 )             End   If          End   If      End Sub      Protected   Overridable   Sub  MultiplyChar( ByVal  unit  As  UnitChar)         For  i  As   Integer   =   Me .gLength  -   1   To   0   Step   - 1             MultiplyCharSingle(unit, i)         Next      End Sub      Protected   Overridable   Sub  MultiplyCharSingle( ByVal  unit  As  UnitChar,  ByVal  OperateDigit  As   Integer )         Dim  mCurrentUnitChar  As  UnitChar  =   Me .gCurrentUniChars( Me .gLength  -  OperateDigit  -   1 )        mCurrentUnitChar.Multiply(unit)         If  mCurrentUnitChar.Carry  >   0   Then              If   Me .gLength  -  OperateDigit  -   1   =   0   Then                  Me .gCarry  +=  mCurrentUnitChar.Carry             Else                  Dim  tmp  As   New  UnitChar                tmp.Value  =   CType (mCurrentUnitChar.Carry.ToString,  Char )                AddChar(tmp, OperateDigit  +   1 )             End   If          End   If      End Sub End Class

一并列出测试加、乘：

Public   Class  Form1     Dim  a  As   New  UnitString     Dim  b  As   New  UnitString     Dim  s  As  UnitString     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button1.Click        a.Value  =   New   String ( " 9 " c,  CInt (Math.Pow( 2 ,  10 )))  ' 相加超过14就不行了，相乘没试过。         b.Value  =   New   String ( " 9 " c,  CInt (Math.Pow( 2 ,  10 )))        s  =  a  +  b         Me .RichTextBox1.AppendText(a.Value  &  vbCrLf)         Me .RichTextBox1.AppendText( " + "   &  vbCrLf)         Me .RichTextBox1.AppendText(b.Value  &  vbCrLf)         Me .RichTextBox1.AppendText( " = "   &  vbCrLf)         Me .RichTextBox1.AppendText(s.Value  &  vbCrLf)        s  =  a  *  b         Me .RichTextBox1.AppendText(a.Value  &  vbCrLf)         Me .RichTextBox1.AppendText( " * "   &  vbCrLf)         Me .RichTextBox1.AppendText(b.Value  &  vbCrLf)         Me .RichTextBox1.AppendText( " = "   &  vbCrLf)         Me .RichTextBox1.AppendText(s.Value  &  vbCrLf)     End Sub End Class

结果：

9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999+9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999=19999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999998

9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999*9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999=99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999980000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001



【本文地址】


今日新闻

推荐新闻

CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3