如何实现数组回朔

zxjt30920087

1. Params
   
2. 
   
3.         Numeric n(99);
   
4. Vars
   
5. 
   
6.         NumericArray arr[100];     //数组1声明，定义数值型数组arr，数值的长度函数中可延伸
   
7.         NumericArray arry[100];          //数组2声明
   
8.         Numeric i;
   
9.         Numeric j;
   
10. 
    
11.         
    
12. Begin
    
13.           arr[0]=o;                                //数组1
    
14.          
    
15.            For i = 1 To n
    
16.     {
    
17.             arr[i] = c[i];
    
18.          }
    
19.         
    
20.         
    
21.          arry[0]=C;                                //数组2
    
22.          
    
23.            For j = 1 To n
    
24.     {
    
25.             arry[j] = C[j];
    
26.         }
    
27. end
    
28.      

复制代码