一个简单的问题，若能答出，在下佩服

Question

形成数列1，2，3，5，16，231，.........的前20项，该数列的规律是从第三项起，每一项是前两项的平方差。
    这个题看起来很简单，但从13项后出现溢出，同胞们若能解决此问题，在下感激不尽！！！

Answer 1

数值太大了当然溢出了
  long型才4个字节

Answer 2

如果解决这个溢出的问题，怎么解决，像Windows自带的一个计算器，它就不会溢出。

Answer 3

这位GHGB(笨笨) 先生
改为双精度型的，也是溢出，不信你试试。
flyingscv(zlj) 
大数计算函数，怎么写，教教我，好吗？

Answer 4

好亲切，这是大学时做过的FORTRAN题目啊！简单来说，就是要你自己做个模拟乘法和模拟减法了。就是说，编程模拟原来手算的方式，用字符串进行运算，结果也返回字符串。

Answer 5

junglerover(灌木丛) 
这样好麻烦，用字符串编写，那得用到好多笔算的东西，稍不留神就会出错，有没有更好的方法呢？

Answer 6

可以用多个long型数来表示一个数，假设限制为最大60000，其平方不会溢出，大于60000的部分进位到高位，我只能给个思路，具体你自己去算

Answer 7

可以使用链表或数组，算到多少位都不是问题，一个例子（C＋＋）
#include<iostream>
#include<iomanip>
#include<fstream>
#include<windows.h>using namespace std ;void main()
{
    int i,j ;
    int max=0,n ;
    unsigned int tmp ;
    
    cout<<"Input N="<<flush ;
    cin>>n ;
    //n<=10000
    
    DWORD dwStart=:: GetTickCount(),dwStop ;
    
    int result[9000]=
    {
        0 
    }
    ;
    //int上界2147483647
    
    
    result[0]=1 ;
    for(i=1;i<=n;i++)
    {
        tmp=0 ;
        for(j=0;j<=max;j++)
        {
            tmp+=result[j]*i ;
            result[j]=tmp%10000 ;
            tmp/=10000 ;
        }
        
        if(result[j]=tmp)
        {
            max++;
        }
        
        
    }
    
    
    
    dwStop=:: GetTickCount();
    // ofstream outf("out.txt");
    for(j=max;j>=0;j--)
    {
        cout<<setw(4)<<setfill('0')<<result[j];
    }
    //
    // outf.close();
    // outf<<endl;
    
    
    cout<<"\nLength="<<max*4<<"\nTime="<<(dwStop-dwStart)<<"ms"<<endl ;
    
}

Answer 8

viena(晓琴) 
这位小姐的思路还算不错，我会好好考虑考虑，若大家还有更好的思路或建议，请给我做出答复，谢谢大家。

Answer 9

sonique(计算机与管理我选谁) 
这位先生，C++我没有学这么深，实在对不起，我看不懂，能不能不用C++呢，用VB好不好？

Answer 10

'多位数相乘
Private Function Multi(ByVal Str1 As String, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As String, Result As String
    
    If Len(Str1) < Len(Str2) Then '使Str2为较短的一个
        Str1 = Str1 + Str2
        Str2 = Left(Str1, Len(Str1) - Len(Str2))
        Str1 = Right(Str1, Len(Str1) - Len(Str2))
    End If
    
    Carry = "0"
    For i = Len(Str1) To 1 Step -1
        Result = AddStr(Multi1(Mid(Str1, i, 1), Str2), Carry)
        Multi = Right(Result, 1) & Multi
        Carry = Left(Result, Len(Result) - 1)
    Next i
    Multi = Carry & Multi
    
    Do While Left(Multi, 1) = "0" And Len(Multi) > 1
        Multi = Right(Multi, Len(Multi) - 1)
    Loop
End Function'一位数乘多位数
Private Function Multi1(ByVal Str1 As Integer, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As Integer, Result As Integer
    
    Carry = 0
    For i = Len(Str2) To 1 Step -1
        Result = Mid(Str2, i, 1)
        Result = Result * Str1
        Multi1 = ((Result + Carry) Mod 10) & Multi1
        Carry = (Result + Carry) \ 10
    Next i
    Multi1 = Carry & Multi1
    
    Do While Left(Multi1, 1) = "0" And Len(Multi1) > 1
        Multi1 = Right(Multi1, Len(Multi1) - 1)
    Loop
End FunctionPrivate Function AddStr(ByVal Str1 As String, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As Integer, Result As Integer
    Dim str3 As String
    
    If Len(Str1) < Len(Str2) Then  '使Str2为较短的一个
        Str1 = Str1 + Str2
        Str2 = Left(Str1, Len(Str1) - Len(Str2))
        Str1 = Right(Str1, Len(Str1) - Len(Str2))
    End If
    
    Carry = 0
    For i = Len(Str2) To 1 Step -1
        Result = Val(Mid(Str1, Len(Str1) - Len(Str2) + i, 1)) + Val(Mid(Str2, i, 1)) + Carry
        AddStr = (Result Mod 10) & AddStr
        Carry = Result \ 10
    Next i
    
    For i = Len(Str1) - Len(Str2) To 1 Step -1
        Result = Val(Mid(Str1, i, 1)) + Carry
        AddStr = (Result Mod 10) & AddStr
        Carry = Result \ 10
    Next i
    
    AddStr = Carry & AddStr
    
    Do While Left(AddStr, 1) = "0" And Len(AddStr) > 1
        AddStr = Right(AddStr, Len(AddStr) - 1)
    Loop
End Function

Answer 11

faint~~~
你怎么知道viena(晓琴)是小姐，又怎么知道sonique(计算机与管理我选谁) 是先生？！

Answer 12

'多位数相乘
Private Function Multi(ByVal Str1 As String, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As String, Result As String
    
    If Len(Str1) < Len(Str2) Then '使Str2为较短的一个
        Str1 = Str1 + Str2
        Str2 = Left(Str1, Len(Str1) - Len(Str2))
        Str1 = Right(Str1, Len(Str1) - Len(Str2))
    End If
    
    Carry = "0"
    For i = Len(Str1) To 1 Step -1
        Result = AddStr(Multi1(Mid(Str1, i, 1), Str2), Carry)
        Multi = Right(Result, 1) & Multi
        Carry = Left(Result, Len(Result) - 1)
    Next i
    Multi = Carry & Multi
    
    Do While Left(Multi, 1) = "0" And Len(Multi) > 1
        Multi = Right(Multi, Len(Multi) - 1)
    Loop
End Function'一位数乘多位数
Private Function Multi1(ByVal Str1 As Integer, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As Integer, Result As Integer
    
    Carry = 0
    For i = Len(Str2) To 1 Step -1
        Result = Mid(Str2, i, 1)
        Result = Result * Str1
        Multi1 = ((Result + Carry) Mod 10) & Multi1
        Carry = (Result + Carry) \ 10
    Next i
    Multi1 = Carry & Multi1
    
    Do While Left(Multi1, 1) = "0" And Len(Multi1) > 1
        Multi1 = Right(Multi1, Len(Multi1) - 1)
    Loop
End FunctionPrivate Function AddStr(ByVal Str1 As String, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As Integer, Result As Integer
    Dim str3 As String
    
    If Len(Str1) < Len(Str2) Then  '使Str2为较短的一个
        Str1 = Str1 + Str2
        Str2 = Left(Str1, Len(Str1) - Len(Str2))
        Str1 = Right(Str1, Len(Str1) - Len(Str2))
    End If
    
    Carry = 0
    For i = Len(Str2) To 1 Step -1
        Result = Val(Mid(Str1, Len(Str1) - Len(Str2) + i, 1)) + Val(Mid(Str2, i, 1)) + Carry
        AddStr = (Result Mod 10) & AddStr
        Carry = Result \ 10
    Next i
    
    For i = Len(Str1) - Len(Str2) To 1 Step -1
        Result = Val(Mid(Str1, i, 1)) + Carry
        AddStr = (Result Mod 10) & AddStr
        Carry = Result \ 10
    Next i
    
    AddStr = Carry & AddStr
    
    Do While Left(AddStr, 1) = "0" And Len(AddStr) > 1
        AddStr = Right(AddStr, Len(AddStr) - 1)
    Loop
End Function

Answer 13

晕，再发不出就不发了
'多位数相乘
Private Function Multi(ByVal Str1 As String, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As String, Result As String
    
    If Len(Str1) < Len(Str2) Then '使Str2为较短的一个
        Str1 = Str1 + Str2
        Str2 = Left(Str1, Len(Str1) - Len(Str2))
        Str1 = Right(Str1, Len(Str1) - Len(Str2))
    End If
    
    Carry = "0"
    For i = Len(Str1) To 1 Step -1
        Result = AddStr(Multi1(Mid(Str1, i, 1), Str2), Carry)
        Multi = Right(Result, 1) & Multi
        Carry = Left(Result, Len(Result) - 1)
    Next i
    Multi = Carry & Multi
    
    Do While Left(Multi, 1) = "0" And Len(Multi) > 1
        Multi = Right(Multi, Len(Multi) - 1)
    Loop
End Function'一位数乘多位数
Private Function Multi1(ByVal Str1 As Integer, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As Integer, Result As Integer
    
    Carry = 0
    For i = Len(Str2) To 1 Step -1
        Result = Mid(Str2, i, 1)
        Result = Result * Str1
        Multi1 = ((Result + Carry) Mod 10) & Multi1
        Carry = (Result + Carry) \ 10
    Next i
    Multi1 = Carry & Multi1
    
    Do While Left(Multi1, 1) = "0" And Len(Multi1) > 1
        Multi1 = Right(Multi1, Len(Multi1) - 1)
    Loop
End FunctionPrivate Function AddStr(ByVal Str1 As String, ByVal Str2 As String) As String
    Dim i As Integer, j As Integer
    Dim Carry As Integer, Result As Integer
    Dim str3 As String
    
    If Len(Str1) < Len(Str2) Then  '使Str2为较短的一个
        Str1 = Str1 + Str2
        Str2 = Left(Str1, Len(Str1) - Len(Str2))
        Str1 = Right(Str1, Len(Str1) - Len(Str2))
    End If
    
    Carry = 0
    For i = Len(Str2) To 1 Step -1
        Result = Val(Mid(Str1, Len(Str1) - Len(Str2) + i, 1)) + Val(Mid(Str2, i, 1)) + Carry
        AddStr = (Result Mod 10) & AddStr
        Carry = Result \ 10
    Next i
    
    For i = Len(Str1) - Len(Str2) To 1 Step -1
        Result = Val(Mid(Str1, i, 1)) + Carry
        AddStr = (Result Mod 10) & AddStr
        Carry = Result \ 10
    Next i
    
    AddStr = Carry & AddStr
    
    Do While Left(AddStr, 1) = "0" And Len(AddStr) > 1
        AddStr = Right(AddStr, Len(AddStr) - 1)
    Loop
End Function