[VB.NET]大数阶乘
问题描述:编写程序,对给定的n(n <= 100),计算并输出k的阶乘k!的全部有效数字。
注意:如果要求一个5的阶乘,用整型可以存储,求10的阶乘可以用长整型表示,但若要求100的阶乘,就无法用长整型表示,此时就必须考虑别的方法。
要求的k!的值,必定已求得(k-1)!的值,依次地推,当 k = 2时,要求的1! = 1为已知。求得(k-1)!的值后,对(k-1)!连续累加k-1此后即可求得K!值。
例如:5!= 120,计算6!,可对原来的120累加5次120后得到720.
由于k!可能大大超出一般整数的位数,因此程序用一个一维数组存储长整型,存储长整数数组的每个元素只存储长整数的一位数字。如有m位长整数N用数组a[]存储,并用a[0]存储长整数N的位数m,即a[0] = m。按上述约定,数组的每个元素存储k的阶乘k!的一位数字,并从低位到高位依次存于数组的第二个元素、第三个元素….
例如:6! = 720,在数组中的存储形式为:
a[0] a[1] a[2] a[3]
3 0 2 7
a[0] = 3表示长整数是一个3位数,接着从低位到高位依次是0、2、7,表示成整数720.
程序实现:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 |
Private MAXN As Integer = 1000 Private Sub PreNext(ByRef a() As Integer, ByVal k As Integer) Dim b(1000) As Integer Dim m As Integer = a(0) Dim r, carry As Integer For i As Integer = 1 To 1000 b(i) = a(i) Next For j As Integer = 1 To k - 1 carry = 0 For i As Integer = 1 To m r = IIf(i <= a(0), a(i) + b(i), a(i)) + carry '计算加的结果 a(i) = r Mod 10 '计算本位结果 carry = r 10 '计算进位数字 Next If (carry) Then '向最高为进位 m += 1 a(m) = carry End If Next a(0) = m End Sub Private Sub Prnt(ByRef a() As Integer, ByVal k As Integer) Dim m As Integer For i As Integer = a(0) To 1 Step -1 Console.Write(a(i)) m += 1 If (m Mod 5 = 0) Then '每5个数字空一格 Console.Write(" ") End If If (40 = m) Then '每行输出40个数字 Console.Write(vbLf) m = 0 End If next Console.Write(vbLf) End Sub Sub Main() Dim a(MAXN), n, k As Integer n = 1 Console.WriteLine("本程序计算任意位数的阶乘!") While (n) Console.WriteLine("请输入一个数:") n = Console.ReadLine() Array.Clear(a, 0, MAXN) a(0) = 1 a(1) = 1 For k = 2 To n PreNext(a, k) If (k = n) Then Prnt(a, k) Next End While End Sub |
原文链接:http://blog.csdn.net/u012027907/article/details/14156915
有公众号之类的吗,之前这个网站打不开了
[…] 关于使用Change…
[…] 关于使用Functi…
谢谢提醒,已删 :)
还有你上边文章的图片里有一个账户名没有打…